Sub Test3()
Dim Lig As Integer, Cellule As Range
Dim sID As String, eMail As String, number As String, agreement As String
' Avec l'objet conteneur - La Feuille : LogsKDI
With Sheets("LogsKDI")
For Lig = 2 To .Range("A" & Rows.Count).End(xlUp).Row
' Ne pas oublier le point devant range, pour qu'il soit en relation
' avec l'objet conteneur, qui est la feuille LogsKDI
'
' Vérifier si l'ID est le même ou pas
If sID <> "" And .Range("A" & Lig) = sID Then
' Si c'est le même on inscrit le mail mémorisé
.Range("E" & Lig) = eMail
Else
' Sinon on récupère l'ID
sID = .Range("A" & Lig).Value
' On cherche l'ID dans l'autre feuille en colonne AB
Set Cellule = Sheets("NewKDI").Range("AB:AB").Find(What:=sID, LookAt:=xlPart)
' Si une cellule est trouvée
If Not Cellule Is Nothing Then
' On mémorise l'email de l'ID pour maintenant et après
eMail = Sheets("NewKDI").Range("T" & Cellule.Row)
' On l'inscrit dans la colonne E
.Range("E" & Lig) = eMail
End If
End If
Next Lig
End With
With Sheets("LogsKDI")
For Lig = 2 To .Range("A" & Rows.Count).End(xlUp).Row
' Ne pas oublier le point devant range, pour qu'il soit en relation
' avec l'objet conteneur, qui est la feuille LogsKDI
'
' Vérifier si l'ID est le même ou pas
If sID <> "" And .Range("A" & Lig) = sID Then
' Si c'est le même on inscrit le nombre mémorisé
.Range("F" & Lig) = number
Else
' Sinon on récupère l'ID
sID = .Range("A" & Lig).Value
' On cherche l'ID dans l'autre feuille en colonne AB
Set Cellule = Sheets("NewKDI").Range("AB:AB").Find(What:=sID, LookAt:=xlPart)
' Si une cellule est trouvée
If Not Cellule Is Nothing Then
' On mémorise le nombre de l'ID pour maintenant et après
number = Sheets("NewKDI").Range("W" & Cellule.Row)
' On l'inscrit dans la colonne F
.Range("F" & Lig) = number
End If
End If
Next Lig
End With
With Sheets("LogsKDI")
For Lig = 2 To .Range("A" & Rows.Count).End(xlUp).Row
' Ne pas oublier le point devant range, pour qu'il soit en relation
' avec l'objet conteneur, qui est la feuille LogsKDI
'
' Vérifier si l'ID est le même ou pas
If sID <> "" And .Range("A" & Lig) = sID Then
' Si c'est le même on inscrit le mail mémorisé
.Range("G" & Lig) = agreement
Else
' Sinon on récupère l'ID
sID = .Range("A" & Lig).Value
' On cherche l'ID dans l'autre feuille en colonne AB
Set Cellule = Sheets("NewKDI").Range("AB:AB").Find(What:=sID, LookAt:=xlPart)
' Si une cellule est trouvée
If Not Cellule Is Nothing Then
' On mémorise l'agreement de l'ID pour maintenant et après
agreement = Sheets("NewKDI").Range("L" & Cellule.Row)
' On l'inscrit dans la colonne E
.Range("G" & Lig) = agreement
End If
End If
Next Lig
End With
End Sub