Macro pour plusieurs cells

[Max Warn]

Bonjour!
Ma demande est assez simple. Je suis très débutant en macro, et j'aurai besoin d'un faire une mettant le chiffre 1.
Mon problème est que le 1 n'apparait seulement que dans la première cellules.

Par exemple :
Je sélectionne de... A1 à B2 (soyons original ), mon 1 n'apparait que dans A1 alors que je veux qu'il apparaisse dans les 4 cellules.

Merci de votre aide.

 

[roro69]

Re : Macro pour plusieurs cells

Bonsoir a mettre dans un module:

Sub Prem()
Dim c As range 'Déclaration d'une variable type cellule
range("A1:B4").Select 'Plage de selection
For Each c In Selection.Cells 'Boucle dans la sélection
c.Value = 1
Next c
range("A1").Select
End Sub

Bnne soirée

 

[Pierrot93]

Re : Macro pour plusieurs cells

Bonjour Max, Roro

une autre solution :

Range("A1:B2").Value = 1

bonne soirée
@+

 

[Max Warn]

Re : Macro pour plusieurs cells

Merci pour vos réponses!
La sélection doit se faire à la souris.
Grâce au code (et aux commentaires surtout) de Roro69, je me suis fait ça, ce qui correspond parfaitement:

Sub Macro1()
Dim c As Range
For Each c In Selection.Cells
c.Value = 1
Next c
End Sub

Je vous remercie donc vivement!
Bonne soirée.

 

[Pierrot93]

Re : Macro pour plusieurs cells

Re

pour affecter la valeur 1 à la selection, pas besoin de boucle :

Selection.Value = 1

@+