Bonjour,
Je bloque, en même temps, je débute en VBA.
Je souhaiterais récupérer des adresses mail d'une feuille dans une autre en fonction des noms en colonne A et des prénoms en colonne B (sur les 2 feuilles.)
J'ai un bout de code qui fonctionne:
Option Explicit
Dim c, cell
Sub AdresseMailFeuil1()
For Each c In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
Set cell = Sheets("Feuil2").Range("A:A").Find(c.Value, lookat:=xlWhole)
If Not cell Is Nothing Then
c.Offset(0, 2) = cell.Offset(0, 2)
End If
Next c
End Sub
Le problème, c'est avec les noms identiques, vu que je ne compare pas les prénoms en colonne B dans mon code, il ne me renvoie pas forcément le bon mail.
J'ai essayé de rajouter une condition mais ça ne fonctionne pas:
If Not cell Is Nothing and c.Offset(0, 1).value = cell.Offset(0, 1).value Then
Et maintenant je sèche !!!
J'espère qu'une bonne âme pourra m'aider.
Merci.
P.S un fichier en exemple pour mieux saisir.