Moi je n’ai aucun souci donc le code est bon
Dans la barre de recherche je saisis que les 3 premiers chiffres puis je clique sur le bouton rechercher cela me ramène dans la listbox qui suit toutes les lames dont la référence débute par ses 3 premiers chiffres :
Puis je sélectionne l’une d’entre elles la première par exemple :
Puis je clique sur le bouton « Controler » une boîte de dialogue me demande de saisir la date :
Je saisi par exemple 01/01/2050 :
Puis je clique sur OK
J’obtiens bien dans la bonne colonne ma lame avec la date 01/01/2050 colonne suivante :
Aucune donnée en fin d’onglet :
La partie de code qui traite cette partie :
colonne = 0
'-------Pb ici, code ne reconnait pas numéro1
colonne = ws_Verif.Rows("1:1").Find(What:=numéro1, After:=ws_Verif.Range("A1"), LookIn:=xlValues, LookAt:=xlWhole).Column 'Trouver la bonne colonne qui correspond au numero de la lame
If colonne > 0 Then
'Ajouter la lames controleé dans la feuille Verif_Mx
ws_Verif.Activate
ws_Verif.Cells(ws_Verif.Rows.Count, colonne).End(xlUp).Offset(1, 0) = Me.ListBox1.Value & "-001"
ws_Verif.Cells(ws_Verif.Rows.Count, colonne).End(xlUp).Offset(0, 1) = Date2
End If
Met d’abord la variable colonne à 0 :
colonne = 0
Puis cherche la colonne à remplir :
colonne = ws_Verif.Rows(« 1:1 »).Find(What:=numéro1, After:=ws_Verif.Range(« A1 »), LookIn:=xlValues, LookAt:=xlWhole).Column
Avec la donnée à rechercher numéro1 dans l’onglet « Verif_M1 » 1° ligne
Si celle-ci est trouvée la variable colonne récupère le numéro de la colonne :
colonne = ws_Verif.Rows(« 1:1 »).Find(What:=numéro1, After:=ws_Verif.Range(« A1 »), LookIn:=xlValues, LookAt:=xlWhole).Column
Les instructions qui suivent pour intégrer la référence de la lame et la date saisie ne peuvent s’effectuer que si la variable colonne n’est pas resté à 0 donc la colonne correspondant à la donnée recherchée portée par la variable numéro1 a été trouvée :
If colonne > 0 Then
'Ajouter la lames controleé dans la feuille Verif_Mx
ws_Verif.Cells(ws_Verif.Rows.Count, colonne).End(xlUp).Offset(1, 0) = Me.ListBox1.Value & « -001 »
ws_Verif.Cells(ws_Verif.Rows.Count, colonne).End(xlUp).Offset(0, 1) = Date2
Et ce dans l’onglet « Verif_M1 » dans la colonne que désigne la variable colonne 1° ligne libre :
ws_Verif.Cells(ws_Verif.Rows.Count, colonne).End(xlUp).Offset(1, 0)
Si aucune colonne n’est trouvée ces lignes de remplissage ne sont pas exécutées
Donc aucune mise à jour n’est effectuée dans l’onglet « Verif_M1 » et notamment en fin d’onglet
Es tu certain que la présence des données en fin est bien liée à ce traitement ?
As tu effectué ce traitement après un nettoyage de cet onglet de ces données ?
Vérifies car pour moi soit il y a intégration dans les bonnes colonnes soit aucune intégration mais certainement pas intégration en bout d’onglet dans une colonne dont la ligne 1 est vide avec ce traitement
Je ne peux pas t’en dire plus sur ce que tu obtiens car pour moi cela fonctionne