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
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