Trouver deux noms identiques sur 2 listes

ce serait parfait en effet !

proposition donnée à 11h59.....

Oui j'ai vu! Merci beaucoup!

Bonjour,

JE suis désolée pour l'oubli de remerciement. JE pensais l'avoir fait et j'ai dû être overbooké par le boulot comme toujours.. Toutes mes excuses...

En attendant, j'ai trouvé cette solution mais j'aurais aimé avoir une vraie belle formule...

https://www.cjoint.com/c/HAFoZVjyDBP

Merci pour votre proposition avec macro. Il faut que je regarde car je ne travaille pas sur macro. Je débute sur excel encore. Je veux rajouter aussi la suppression des accents.

Bonjour,

Merci beaucoup pour votre lien et votre aide.

Je viens de voir votre tableau. En effet, il est beaucoup plus précis que le mien! :) (j'ai essayé de trouver une solution rapide au cas où vous ne m'auriez pas répondu!) Ainsi si j'ai des données plus importantes, ce qui arrivera à l'avenir, je saurai les étudier correctement.

Super pour les accents! :) Au moins, j'aurais normalement tout le monde.

Michel a proposé le code en macro suivant, que je trouve super car les noms s'affichent directement quand je clique sur une touche. Par contre je dois avouer que je n'y comprends rien. Je souhaiterais du coup décaler la réponse car elle s'affiche sur une colonne que je vais finir par supprimer car votre méthode est meilleure que la mienne. Et du coup, elle couvre d'autre données. Je vais étudier tout ça pour comprendre et pouvoir le modifier.

Option Explicit
'------------------------------------------------------
Sub qui_est_en_immo_arte()
Dim T_immo, Derlig As Integer, DIco As Object
Dim Cptr As Integer
Dim Identite As String, Lig As Integer
'--------------------------------------initialisations
'mémorisation tableau immo avec prénom nom
Derlig = Columns("C").Find(what:="*", searchdirection:=xlPrevious).Row 'dernière ligne
ReDim T_immo(1 To Derlig)
For Cptr = 1 To UBound(T_immo)
T_immo(Cptr) = Cells(Cptr + 1, "C") & " " & Cells(Cptr + 1, "D")
Next
'Mémorisation des identités " arte" dans un objet dictionary
Set DIco = CreateObject("scripting.dictionary")
Derlig = Columns("H").Find(what:="*", searchdirection:=xlPrevious).Row
For Cptr = 2 To Derlig
Identite = Cells(Cptr, "H") & " " & Cells(Cptr, "I")
If Not DIco.exists(Identite) Then DIco.Add Identite, ""
Next

'---------------------Détection m^me identité dans immo et arte
Lig = 1
For Cptr = 1 To UBound(T_immo)
'si il existe identité nom_prenom dans immo et dans le dico
If DIco.exists(T_immo(Cptr)) Then
Lig = Lig + 1
Cells(Lig, "L") = T_immo(Cptr)
End If
Next
End Sub



Merci à vous deux pour votre aide. C'est super! :)

Juste une petite question, peut-on lier deux documents excel entre eux?

Je m'explique, les noms ARTE sont un "copier coller " d'un autre document. J'ai besoin de connaître le mode de contact + école sur mon autre document. puis je faire une requête via ce document ou c'est impossible? (Comme un lien hypertexte sur du web).

Pour le moment je me débrouille autrement, j'ai que "73 contacts à chercher" mais s'il y en avais davantage ça me simplifierait la tache ! ;)

Merci à vous et bonne journée! Moi je retourne à mes contacts!

Le document que je vous avais envoyé n'avait qu'une seule feuille! Là je vous ai envoyé tout le document que j'avais continué avec toutes mes résidences.

JE vais regarder votre macro qui est fort intéressante et qui fonctionne pour les autres feuilles aussi!

Je vais essayer de faire un mix des deux aides.

Pour la liaison des deux excels génial ! JE vais m'en servir alors! :)

Merci beaucoup!