Recherche

Bonjour je demande votre aide car je galère à faire fonctionner mon code .

Objectif du code :

Simplifiée : dans le premier onglet je possède une série de numéro sans le nom, dans mon onglet 2 je possède une même série de numéro avec les Noms. L’objectif est de faire une boucle (ou une fonction Find ?) pour associer sur l’onglet 1 le numéro au nom correspondant sur l’onglet 2. ( fichier en PJ)

J’ ai testé avec le code suivant pour voir si dans un premier temps la recherche des valeurs se faisait bien mais ça ne marche pas vraiment…

Sub nom()

Dim maxligneIM As Long

NligIM = ThisWorkbook.Sheets("feuil1").Range("A" & Rows.Count).End(xlUp).Row

NligAG = ThisWorkbook.Sheets("feuil2").Range("A" & Rows.Count).End(xlUp).Row

Set plageIM = Range(Cells(2, 1), Cells(NligIM, 2))

Set plageAG = Range(Cells(2, 1), Cells(NligAG, 1))

ligneIM = 2

ligneAG = 2

For ligneIM = 2 To NligIM

For ligneAG = 2 To NligAG

If ThisWorkbook.Sheets("Import").Cells(ligneIM, 1).Value = ThisWorkbook.Sheets("agent").Cells(ligneAG, 1) Then

Cells(ligneIM, 2) = "OK"

Else

Cells(ligneIM, 2) = " PAS OK"

End If

Next

Next

End Sub

Avez-vous une idée pour faire fonctionner et ou optimiser le code ?

D' avance merci

Bonjour,

pas de nom (dans aucun onglet) °_°

et pourquoi réinventer la roue, un simple rechercheV trouvera aussi

P.