Problème dans boucle "For Each"

[GillesC]

Bonjour le forum

Mon souci :
J'ai un fichier avec 2 onglets,Tab1 et Tab2, contenant chacun une colonne de numéros.
Je voudrais alimenter mon premier onglet avec les valeurs trouvées dans le second.
Je ne souhaite pas utiliser RECHERCHEV mais une macro.

Sub MAJ()
Range("A2:A12").Select
For Each Cell In Selection
Cell.Offset(0, 1) = Sheets("Tab2").Range("A2:A10").Find(What:=(Cell), after:=ActiveCell).Offset(0, 1).Value
Next
End Sub


Ma macro fonctionne sauf quand un numéro du premier onglet n'est pas dans le second et là la macro stoppe. J'ai essayé on error goto sans succès.

Je joins un exemplaire de mon fichier si quelqu'un pouvait me trouver une solution.
Merci d'avance et bonne journée

 

[Robert]

Re : Problème dans boucle "For Each"

Bonjour Gilles, bonjour le forum,

Ton code modifié :

Sub MAJ()
Dim cell As Range
Dim r As Range
For Each cell In Sheets("Tab1").Range("A2:A12")
    With Sheets("Tab2").Range("A2:A10")
        Set r = .Find(cell)
        If Not r Is Nothing Then cell.Offset(0, 1).Value = r.Offset(0, 1).Value
    End With
Next
End Sub

 

[GillesC]

Re : Problème dans boucle "For Each"

Impeccable! Merci beaucoup Robert !