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

mapomme

XLDnaute Barbatruc

Supporter XLD

• 28 Février 2021

• #2

Bonjour @didier Costille,

Associez à un bouton la macro ci-dessous :

VB:

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

 

Vote positif 0 Vote négatif

D

Did25

XLDnaute Occasionnel

• 28 Février 2021

• #3

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

 

Vote positif 0 Vote négatif

D

Did25

XLDnaute Occasionnel

• 28 Février 2021

• #4

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+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Février 2021

• #5

Bonjour le fil, didier Costille, mapomme

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

VB:

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 ?

 

Vote positif 0 Vote négatif

Solution

D

Did25

XLDnaute Occasionnel

• 28 Février 2021

• #6

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

 

Vote positif 0 Vote négatif