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

sambio2 · 13 Décembre 2023

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 · 13 Décembre 2023

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

sylvanu · 13 Décembre 2023

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 · 13 Décembre 2023

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 · 13 Décembre 2023

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 · 14 Décembre 2023

sylvanu à dit:
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

Super merci ça fonctionne parfaitement!

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

sambio2

XLDnaute Nouveau

sylvanu

sylvanu

XLDnaute Barbatruc

sambio2

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

sambio2

XLDnaute Nouveau

Discussions similaires