Inserer un "X" dans une selection de cellules.

Bonjour !

'Jed' nous a écrit ...

J'aimeria savoir comment faire pour mettre un "X" dans plusieurs cellules
selectionnées dans un tableau.
J'ai essayer de faire un code comme ca :

For each cell in selection
Cell.text = "X"
Next

Mais je ne sais pas comment vraiment le coder en vba.
Merci pour votre aide

Sub CellulesX()
For Each C In Selection.Cells
C.Range.Text = "X"
Next C
End Sub

Attention : vos cellules sélectionnées doivent être contigües
car le VBA ne sait pas gérer la multisélection...

Anacoluthe
« Le monde est une prison, où il vaut mieux occuper une cellule
individuelle. »
- Karl KRAUS

Merci Anacoluthe;

C'est bien ce que je voulais...
CA marche parfaitement pour ce que j'ai a faire.

Merci encore

Bonjour !

'Jed' nous a écrit ...

J'aimeria savoir comment faire pour mettre un "X" dans plusieurs cellules
selectionnées dans un tableau.
J'ai essayer de faire un code comme ca :

For each cell in selection
Cell.text = "X"
Next

Mais je ne sais pas comment vraiment le coder en vba.
Merci pour votre aide

Sub CellulesX()
For Each C In Selection.Cells
C.Range.Text = "X"
Next C
End Sub

Attention : vos cellules sélectionnées doivent être contigües
car le VBA ne sait pas gérer la multisélection...

Anacoluthe
« Le monde est une prison, où il vaut mieux occuper une cellule
individuelle. »
- Karl KRAUS