MACRO Coller une valeur dans les cellules d'une colone avec condition

[chris6999]

Bonsoir

Je souhaiterais récupérer la valeur d'une cellule (toujours la même exemple C1) et la coller sur toutes les cellules de la colonne A lorsque sur la même ligne la cellule G n'est pas vide.

ex si G2 n'est pas vide coller dans A2, la valeur de C1
si G3 n'est pas vide coller dans A3, la valeur de C1
Idem ligne suivante jusqu'à ligne 500

Je ne sais pas si c'est possible

Merci de me donner votre avis
Cordialement

 

[jp14]

Re : MACRO Coller une valeur dans les cellules d'une colone avec condition

Bonjour

Une formule à tester a coller dans "a2"
=SI(G2<> "";$C$1;"")


Par macro

Sub travdem()
Dim Cellule As Range
'parametre

With Sheets("Feuil1")

For Each Cellule In .Range("a2:a500")
    If Cellule.Offset(0, 6) <> "" Then Cellule = .Range("C1")

Next Cellule

End With
End Sub

JP

 

[chris6999]

Re : MACRO Coller une valeur dans les cellules d'une colone avec condition

Bonsoir

Je connais cette fonction mais elle est malheureusement compatible avec ce que je souhaite faire.
Merci quand même

 

[chris6999]

Re : MACRO Coller une valeur dans les cellules d'une colone avec condition

En tous ca la macro marche super bien.
Merci encore