Autres Copier-Coller en recherchant une ligne spécifique VBA

[sambio2]

Bonjour,

je cherche le bon code VBA qui me permettrait de copier une cellule et coller les valeurs dans une feuille différente, le tout en recherchant une ligne spécifique qui posséderait le même TAG.

Code actuel :
Sheets("Fiche réception GAZ").Range("C8").Copy
Sheets("Liste bouteille GAZ PERL").Range("L6").PasteSpecial Paste:=xlPasteValues

qui me permet seulement de copier coller mais sans la recherche spécifique de ligne.

Ce qu'il me manque : prendre la valeur de la feuille "Fiche réception GAZ" cellule "C6" et aller chercher sur la feuille : "Liste bouteille GAZ PERL" et chercher le tag correspondant de la cellule "A3" jusqu'à "A1000" .
Puis enfin venir coller la valeur sur la ligne avec la correspondance trouvée sur la cellule "L"

 

[sylvanu]

Bonjour Sambio,
Sans fichier test, on ne peut que proposer un code au pif sans pouvoir le tester.
Et immanquablement cela conduit à moult allers retours pour converger.

 

[sambio2]

Bonjour,

effectivement c'est plus pratique..
Voila le fichier, la macro présente toutes les première lignes servent a l'impression, elles ne sont pas vraiment nécessaire pour des essais.

Merci d'avance

 

[sylvanu]

Re,
Un essai en PJ avec cette macro, qui ne remet à jour que la date et pas les autres champs (comme demandé)

Sub UpdateGazPerl()
Dim L%
With Sheets("Liste bouteille GAZ PERL")
    L = Application.Match([C6], .[A:A], 0)
    If Not IsError(L) Then .Cells(L, "L") = [C8]
End With
End Sub

 

[sambio2]

Re,
Un essai en PJ avec cette macro, qui ne remet à jour que la date et pas les autres champs (comme demandé)

Sub UpdateGazPerl()
Dim L%
With Sheets("Liste bouteille GAZ PERL")
    L = Application.Match([C6], .[A:A], 0)
    If Not IsError(L) Then .Cells(L, "L") = [C8]
End With
End Sub

Super merci ça fonctionne parfaitement! 😉