Copie resultats entre 2 feuilles

[yves03]

Bonsoir,
J'ai dans le meme classeur 2 feuilles, une feuille "Inventaire" et un "resultat", je voudrais pouvoir a partir d'un bouton place dans la feuille "Inventaire" copier les valeurs qui se trouvent en colonne E ( de la feuille Inventaire ) dans la colonne F de la feuille "resultat" .
Les colonnes qui servent de references sont la colonne B dans la feuille "Inventaire" et la colonne A dans la feuille "resultat".
Je voudrais la faire a partir d'une macro et non pas une formule, car il s'agit a chaque fois d'une nouvelle feuille "resultat" que j'insere et qui remplace la precedente.
Je vous joint un bout de fichier
Merci encore

 

[kjin]

Re : Copie resultats entre 2 feuilles

Bonsoir,
Code à associer à ton bouton de la feuille "Inventaire"

Sub Recopie()
For Each cell In Range("B1:B" & Range("B65000").End(xlUp).Row)
Set C = Sheets("Resultat").Range("A1:A" & Range("A65000").End(xlUp).Row).Find(cell.Value)
If Not C Is Nothing Then
C.Offset(0, 5).Value = cell.Offset(0, 3).Value
End If
Next
End Sub

A+
kjin

 

[yves03]

Re : Copie resultats entre 2 feuilles

Merci beaucoup cela fonctionne tres bien.
🙂