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
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
Code:
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