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

chris6999 · 3 Mars 2012

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 · 3 Mars 2012

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

JP

chris6999 · 3 Mars 2012

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 · 3 Mars 2012

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

En tous ca la macro marche super bien.
Merci encore

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

chris6999

XLDnaute Impliqué

jp14

XLDnaute Barbatruc

chris6999

XLDnaute Impliqué

chris6999

XLDnaute Impliqué

Discussions similaires

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

chris6999

XLDnaute Impliqué

jp14

XLDnaute Barbatruc

chris6999

XLDnaute Impliqué

chris6999

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency