Bonjour,
Je fais une recherche dans une plage en utilisant le code si dessous:
For lgLig = 2 To NbLigCaisseI
bTrouve = False
' Boucle de la première à la dernière ligne de la colonne X
For lgCpt = 1 To NbLigCaisseI
' Si donnée de la colonne C trouvée dans la colonne X, sortir de la boucle
If Range("X" & lgCpt).Value = Range("D" & lgLig).Value Then
bTrouve = True
Exit For
End If
Next lgCpt
' Si donnée de la colonne D non trouvée dans la colonne X, l'afficher dans la colonne W
If bTrouve = False Then
If Range("C2").Value = vbNullString Then
Range("X" & Range("X65536").End(xlUp).Row).Value = Range("D" & lgLig).Value
Else
Range("X" & Range("X65536").End(xlUp).Row + 1).Value = Range("D" & lgLig).Value
End If
End If
Next lgLig
Par contre, je fais la recherche sur la totalité de la colonne x, je connais le nombre de ligne de ma colonne X, je voudrais savoir comment je pourrais faire pour remplacer: "x65536" du code si dessous
Range("X" & Range("X65536").End(xlUp).Row).Value
par la variable du nombre de ligne
d'avance merci,
je reste à votre écoute pour tout renseignement complémentaire.
JF
Je fais une recherche dans une plage en utilisant le code si dessous:
For lgLig = 2 To NbLigCaisseI
bTrouve = False
' Boucle de la première à la dernière ligne de la colonne X
For lgCpt = 1 To NbLigCaisseI
' Si donnée de la colonne C trouvée dans la colonne X, sortir de la boucle
If Range("X" & lgCpt).Value = Range("D" & lgLig).Value Then
bTrouve = True
Exit For
End If
Next lgCpt
' Si donnée de la colonne D non trouvée dans la colonne X, l'afficher dans la colonne W
If bTrouve = False Then
If Range("C2").Value = vbNullString Then
Range("X" & Range("X65536").End(xlUp).Row).Value = Range("D" & lgLig).Value
Else
Range("X" & Range("X65536").End(xlUp).Row + 1).Value = Range("D" & lgLig).Value
End If
End If
Next lgLig
Par contre, je fais la recherche sur la totalité de la colonne x, je connais le nombre de ligne de ma colonne X, je voudrais savoir comment je pourrais faire pour remplacer: "x65536" du code si dessous
Range("X" & Range("X65536").End(xlUp).Row).Value
par la variable du nombre de ligne
d'avance merci,
je reste à votre écoute pour tout renseignement complémentaire.
JF