XL 2019 bouton incrémentation d'une valeur sur plusieurs cellules VBA

[Did25]

Bonjour ,je suis actuellement sur un planning perpétuel et j'ai opté pour la mise en place d'un bouton avec lequel je voudrais qu'il implante une valeur numérique ,par exemple 1 dans plusieurs cellules que j'aurais au préalable sélectionnées ,merci de bien vouloir m'apporter votre aide .

 

[mapomme]

Bonjour @didier Costille,

Associez à un bouton la macro ci-dessous :

Sub Valeur()
Dim x
   x = InputBox("Valeur pour les cellules sélectionnées ?")
   If x <> "" Then Selection = x
End Sub

 

[Did25]

Bonjour mapomme ,j'avais commencer par ceci

Private Sub CommandButton1_Click()
Worksheets("Feuil2").Activate
ActiveCell.Value = 1
End Sub

Merci de ton retour je vais tester

 

[Did25]

Je viens de tester ,ce n'est pas tout à fait ce que je cherchais mais en testant un peu j'ai trouver c'était plutôt simple avec ceci :
Private Sub commandbutton1_click()
Worksheets("Feuil1").Activate
Selection.FormulaR1C1 = "1"
Merci beaucoup votre code peut me servir pour une autre étape de mon fichier . A+

 

[Staple1600]

Bonjour le fil, didier Costille, mapomme

Pour le fun, et parce que il fait trop bon dehors pour prendre l'air.

Sub Incrémentez()
Dim Uno As Range, P As Range
Set Uno = Cells(Rows.Count, Columns.Count): Uno = 1
Set P = Application.InputBox("Sélectionnez une plage de cellules", "Sélection", Type:=8)
Uno.Copy: P.PasteSpecial Operation:=2
End Sub

NB: Je m'en suis tenu au titre de la discussion où l'on pouvait lire le mot incrémentation.
Bizarrement la solution retenue n'incrémente rien, non ?

 

[Did25]

Bonsoir Staple 1600, merci de retour oui en effet je me suis mal exprimer et je m'en excuse mais votre travail va me servir pour la suite de mes travaux ,merci encore