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

sambio2

XLDnaute Nouveau
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"
 
Solution
Re,
Un essai en PJ avec cette macro, qui ne remet à jour que la date et pas les autres champs (comme demandé)
VB:
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

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

Pièces jointes

  • Test liste GAZ.xlsm
    52.2 KB · Affichages: 4

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
Un essai en PJ avec cette macro, qui ne remet à jour que la date et pas les autres champs (comme demandé)
VB:
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
 

Pièces jointes

  • Test liste GAZ.xlsm
    52.7 KB · Affichages: 6

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
313 271
Messages
2 096 724
Membres
106 720
dernier inscrit
Alain EDZOA