adition avec un bouton

[Jean-Michel Mercanton]

Bonjour,

J'aimerai pouvoir donner une certaine valeur à un bouton (par exemplela valeur 5)et à chaque fois que je clic dessus, j'ai une addition qui se fasse dans une cellule définie (par exemple A1).
avec un clic sur le bouton A1 devrait être = à 5. ensuite si je reclic, A1 devrai avoir une valeur de 10 etc...

Quelq'un peut-il (elle) m'aider à résoudre ce problème.
Je tiens préciser que je ne suis pas un expert mais j'ai quelques petites bases avec Excel sans jamais avoir toucher au VBA.

Merci d'avance

Meilleures salutions

Jean-Michel

 

[Antoine]

voili voila un truc qui correspond un peu près a ce que tu demande en VBA
fait alt + f11 depuis exel pour lancer l'éditeur VBA

 

[Jean-Michel Mercanton]

super grand merci !!!!!
c'est exactement ce que je cherche

comment je fais pour savoir comment construire cette macro pour l'utiliser dans d'autres circonstances ( par exemple avec d'autre chiffres)

Merci pour ce dédut qui me sort d'une situation épineuse.

 

[@+Thierry]

Bonjour Jean-Michel, Antoine, le Forum

Je n'ai pas le droit de télécharger quoique ce soit depuis le bureau sécurité oblige, mais cependant je suppose que le code proposé par Antoine doit ressembler à ceci :

Sub AddingButton()
Dim TheSumToAdd As Double
Dim ThePrevious As Double

On Error GoTo ErrorHandler
TheSumToAdd = Sheets("TaFeuille").Range("A1")
ThePrevious = ActiveCell.Value

ActiveCell.Value = ThePrevious + TheSumToAdd

Exit Sub
ErrorHandler:
MsgBox "Une Valeur Numérique est requise pour que cette macro fonctionne"
End Sub


En Clair avec explication de texte !
Sub AddingButton() '= Nom de la macro
Dim TheSumToAdd As Double '= Déclaration de Variable de type numérique
Dim ThePrevious As Double ' Idem

On Error GoTo ErrorHandler 'Gestionnaire d'erreur si NON-Numérique

TheSumToAdd = Sheets("TaFeuille").Range("A1") 'Initialisation de la valeur à ajouter
ThePrevious = ActiveCell.Value 'Récupération de la valeur initiale de la cellule

ActiveCell.Value = ThePrevious + TheSumToAdd 'On fait l'addition

Exit Sub 'On sort si tout s'est bien passé
ErrorHandler: 'Ici label du gestionnaire d'erreur plus haut avec message approprié
MsgBox "Une Valeur Numérique est requise pour que cette macro fonctionne"
End Sub 'Fin de macro

Ici je préfère récupérer la valeur d'une cellule pour "TheSumToAdd" plutôt que d'écrire en dûr dans le code ceci :

TheSumToAdd = 5

A la place de ceci :
TheSumToAdd = Sheets("TaFeuille").Range("A1")
mais on peut faire comme çà si on est toujours sûr de ne rajouter que 5

Sinon on peut faire ceci :
TheSumToAdd = InputBox("Saisir un Nombre à ajouter", "Valeur à Ajouter")

Ce qui aura pour effet de lancer une Input Box qui demandera la valeur à ajouter...


Bon App
@+Thierry

 

[Willy]

Wouaouw, tu va loin là

le code dans le zip :

Private Sub CommandButton1_Click()
Compteur = Feuil1.Cells(1, 1)

CommandButton1.Caption = "A1 " + CStr(Compteur + 5)
Feuil1.Cells(1, 1) = Feuil1.Cells(1, 1) + 5


End Sub

 

[@+Thierry]

Merci Willy, re Jean-Michel, Antoine, le Forum

En fait en voyant le code du Zip, je comprends que je n'avais rien compris à la question !!! LoL !

Bon ben je m'enfuie à plat ventre !!!
@+Thierry