Vba - ecrire dans une cellule

[pepsi]

Bonjour le forum,

Je cherche à colorier une cellule et à écrire "1" dedans.

La cellule se colore bien en orange, mais je ne sais pas comment écrire "1" dedans.

J'ai essayé avec text = 1 mais cela ne marche pas.

Worksheets("feuil1").Range("a" + CStr(i)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 300000
.TintAndShade = 0
.PatternTintAndShade = 0
End With

Merci pour votre aide,

Pepsi

 

[pierrejean]

Re : Vba - ecrire dans une cellule

bonjour pepsi

A tester

Worksheets("feuil1").Range("a" + CStr(i)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 300000
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.Value=1

 

[pepsi]

Re : Vba - ecrire dans une cellule

Merci ! Cette solution marche parfaitement