recherche VBA

Re : recherche VBA

Merci Jean Marcel pour cette réponse,
Oui effectivement la copie est réalisée juste avant dans mon code mais après un essai, il semblerait qu'un simple "Paste" fonctionne...
a confirmer

Re : recherche VBA

Finalement après vérification le "Paste" ne fonctionne pas.

Mon code était le suivant (Je n'ai pas encore vérifié la dernière ligne du code):

Dim Contr As Range

Set Contr = Worksheets("Bilan").Range("B2:B100")

For Each Contr In Worksheets("Bilan").Range("B2:B100")

Selection.Copy
Sheets("Comparaison2").Select
Range("B2:B200").Select
Selection.Find(What:=Paste, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select

Contr.Offset(0, 1) = Selection.Offset(0, -1).value


Next

End Sub

Re : recherche VBA

ok alors voilà ce que j'essaie de faire:

Je recherche mes cellules de la plages(B2:B200) de ma feuille2, dans la plage (B2:B200) dans ma feuille1,
ensuite une fois la cellule trouvée dans la feuille1,
je veux copier la première cellule à gauche de ma plage (B2:B200) de ma feuille1
et la recopiée dans la première cellule à droite pour mes cellules de la plages(B2:B200) de ma feuille2

En espérant avoir été clair...

Re : recherche VBA

Merci Jean-Marcel,
C'est juste parfait!!