écrire valeur dans plusieurs cellules selectionnées par la souris (RESOLU)

[regnum]

bonjour à tous

petite question bête

j'ai un code qui me sert à écrire une valeur dans une cellule sélectionnée (par la souris) à l'aide d'un bouton

Sub repos()
With ActiveCell
.Value = "REPOS"
.Interior.ColorIndex = 6
End With
End Sub

je voudrais maintenant avec la souris sélectionnée une plage de cellule (au hasard),cliquer sur le bouton et écrire dans toutes les cellules de la plage la valeur (ici REPOS) .

merci d'avance

 

[Pierrot93]

Re : écrire valeur dans plusieurs cellules selectionnées par la souris

Bonjour,

remplace "ActiveCell" par "selection", devrait fonctionner...

bon après midi
@+

 

[GIBI]

Re : écrire valeur dans plusieurs cellules selectionnées par la souris

Bonjour,

un truc du genre

for each MaCellule in Selection
   With MaCellule
       .Value = "REPOS"
       .Interior.ColorIndex = 6
   End With

Next

GIBI

 

[regnum]

Re : écrire valeur dans plusieurs cellules selectionnées par la souris

re

merci GIBI et PIERROT93

vos 2 solutions fonctionnent.

merci beaucoup