VBA Copier lignes suite à comparaison

[Kouik Kouik jr]

Bonsoir tout le monde !


J'ai un encore un ptit probleme (c'est surement pas le dernier 😉)

Avec la formule ci dessous j'arrive à copier les cellules de la colonne A feuille "SYZ" correspondant mais j'aimerais copier non seulement la cellule mais également la ligne de la cellule correspondante

Ca doit pas être très compliqué mais je suis pas une bête en VBA !


Merci beaucoup d'avance


Sub ()
'Comparaison nom entre syz et hsbc
Dim Déb As Integer, Fin As Integer, I As Integer, J As Integer
With Sheets("SYZ")
Déb = 1
Fin = .Range("a" & .Rows.Count).End(xlUp).Row
End With
With Sheets("HSBC")
I = 1
Do While I < Fin
For J = Déb To Fin
If .Range("p" & I).Value = Sheets("SYZ").Range("a" & J).Value Then .Range("q" & I).Value = Sheets("SYZ").Range("a" & J).Value
Next J
I = I + 1
Loop
End With

End Sub

 

[JNP]

Re : VBA Copier lignes suite à comparaison

Bonjour Kouik Kouik jr🙂,
Tu as du faire une erreur en postant, tu est hors Excel...
Si j'ai tout compris :

For J = Déb To Fin
If .Range("p" & I).Value = Sheets("SYZ").Range("a" & J).Value Then
.Range("q" & I).Value = Sheets("SYZ").Range("a" & J).Value
.Range("r" & I).Value = J
End If
Next J

Bonne journée 😎

 

[Kouik Kouik jr]

Re : VBA Copier lignes suite à comparaison

Merci bcp

Ca m'aide énormément