Bonjour,
Je reviens vers vous car je n'arrive pas à trouver mon erreur sur ce code que j'ai créée (avec mes moyen)
With Sheets("Donn?es")
Derlig = .Range("A" & Rows.Count).End(xlUp).Row + 1
For I = 4 To Derlig - 1
If .Range("A" & I) & " " & .Range("B" & I) = Me.TBNom & " " & Me.TBPr?nom Then
Exit For
End If
Next I
.Range("A" & Derlig) = Me.TBNom
.Range("B" & Derlig) = Me.TBPr?nom
.Range("A3:B" & Rows.Count).Sort Key1:=.Range("A3"), order1:=xlAscending, Key2:=.Range("B3"), order2:=xlAscending, Header:=xlYes
End With
J'ai mis une condition if, (si A ET B = TBNOM et TBPRENOM) je quitte
If .Range("A" & I) & " " & .Range("B" & I) = Me.TBNom & " " & Me.TBPr?nom Then
Exit For
Pour lui le "I" est toujours A4.
Vous avez une idée les experts?