ecrire dans plusieurs cellules

Evelynetfrancois · 13 Septembre 2003

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 · 13 Septembre 2003

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 · 13 Septembre 2003

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

ecrire dans plusieurs cellules

Evelynetfrancois

Guest

dj.run

Guest

Evelynetfrancois

Guest

Discussions similaires