ecrire dans plusieurs cellules

[Evelynetfrancois]

Rebonsoir à tous et toutes

Comment faire pour que toutes les cellules selectionneés prennent cette macro
et non pas que la cellule active

Sub Macro1()
ActiveCell = "©"
ActiveCell.Font.Size = 22
ActiveCell.Font.ColorIndex = 3
End Sub

merci et bonne soirée
Evelyne et francois

 

[dj.run]

Bonsoir,

j'ai essayé un "truc" chez moi et ça marche, je ne sais pas si c'est la meilleure solution .

Sub Macro1()
Selection.FormulaR1C1 = "©"
Selection.Font.Size = 22
Selection.Font.ColorIndex = 3
End Sub

bonne prog.

dj.run

 

[Evelynetfrancois]

j'avais trouve juste apres avoir poste
en fait il suffit de changer activecell par selection
et tout fonctionne
sur ce coup là je suis honteusebonne soirée
et merci pour ta reponse rapide
evelynetfrancois