Bonjour,
j'ai mis une macro que je me sers souvent pour extraire des données entre deux listes. Le probleme c'est que la elle ne marche pas....
la voici:
Dim derlign1 As Long
Dim derlign2 As Long
derlign1 = Sheets("XXX").Range("C65536").End(xlUp).Row
derlign2 = Sheets("WWW").Range("F65536").End(xlUp).Row
For i2 = 14 To derlign2
For i1 = 14 To derlign1
If Sheets("XXX").Range("C14" & i1) = Sheets("WWW").Range("F14" & i2) Then ,ici quand je laisse C et F sans le 14 il plante et me dis incompatibilité de type, mais avec il ne trouve rien....
Exist = 1
GoTo Suivant1
End If
Next
If Exist = 1 Then GoTo Suivant1
Sheets("XXX").Range("C" & derligne1 + 1) = Sheets("WWW").Range("F" & i2)
derligne1 = Sheets("XXX").Range("C65536").End(xlUp).Row
Suivant1:
Exist = 0
Next
merci de vos lumieres!