comment ecrire une Valeur X dans plusieurs cellule selectionner?

[Oudjat]

Comment ecrire une Valeur X dans plusieurs cellules selectionner?

j'ai tester cela

sub test ()
For Each cell In Selection
ActiveCell.FormulaR1C1 = "test"
Next cell
end sub

mais il ecrit Test que dans la 1ere cellule selectionné et pas dans les autres.

merci d'avance

oudjat

 

[doncoucou]

bonjour

sub test ()
For Each cell In Selection
selection.FormulaR1C1 = "test"
Next cell
end sub


selection ald ActiveCell

a+

 

[Oudjat]

grand merci a DONCOUCOU

cela fonctionne

merci

Oudjat

 

[STéphane]

bonjour
range("A1,B2,C5").value="test"


faut juste apporter une modif à la soluce de doncoucou
sub test ()
For Each cell In Selection
cell.FormulaR1C1 = "test"
'cell.value="test"
Next cell
end sub



bye
stephane

ps : merci à doncoucou et aux autres pour les clins d'oeil à mon site