Incrementer une cellule en cliquant sur un bouton

[anthony_unac]

Bonjour,

Est il possible d incrementer de 1 une cellule en appuyant sur un bouton.
J ai cru comprendre qu il fallait dessiner le bouton et lui affecter une macro mais j ignore comment faire tout ca
Par contre pour l incrementation pas de soucis :
A1=A1+1 par exemple

Cordialement
Anthony

[ya_v_ka]

Salut

Comme ça ?...

Ya'v

[Hasco]

Bonjour Anthony,

Menu Affichage/Barre d'outils/Boiîte à outils contrôles

Sur la barre d'outil tu as un bouton avec une équerre , un crayon une règle dessous. Tu le cliques pour qu'il devienne grisé.

Un peu plus loin, tu as bouton rectangulaire gris passe la souris dessus.
Une info bulle t'indique qu'il s'agit d'un bouton de commande.

Tu cliques dessus ton curseur devient une croix. tu peux alors dessiner ton bouton sur la feuille. En maintenant le bouton de souris enfoncé.

toujours sur la barre d'outils tu as un bouton avec une page montrée par une doigt. Cliques dessus. Une fenêtre s'ouvre 'Propriétés'.

Dans la liste des 'Propriétés' dans la colonne de gauche tu as une ligne nommée 'caption' et en face 'Command Button 1'.

Remplace 'Command Button 1 ' par le texte que tu veux voir affiché sur le bouton. Ferme la fenêtre.

double-clique sur le bouton. Une grande fenêtre s'ouvre. Dans le volet de droite tu verras:

Private Sub CommandButton1_Click()

End Sub

Entre ces deux ligne tu mets [A1]=[A1]+1 pour obtenir

Private Sub CommandButton1_Click()
[A1] = [A1] + 1
End Sub

Tu reviens à la feuille de travail en fermant la fenêtre. Tu dégrise le premier bouton de la barre d'outil.


Et le tour est joué.

A bientÔt

[anthony_unac]

Envoyé par ya_v_ka

Salut

Comme ça ?...

Ya'v

C est exactement ce que je recherchais merci par contre comment as tu fais au juste et autre chose peut on changer le nom du bouton qui se nomme Ajout dans ton fichier ?

[anthony_unac]

Envoyé par Hasco

Bonjour Anthony,

Menu Affichage/Barre d'outils/Boiîte à outils contrôles

Sur la barre d'outil tu as un bouton avec une équerre , un crayon une règle dessous. Tu le cliques pour qu'il devienne grisé.

Un peu plus loin, tu as bouton rectangulaire gris passe la souris dessus.
Une info bulle t'indique qu'il s'agit d'un bouton de commande.

Tu cliques dessus ton curseur devient une croix. tu peux alors dessiner ton bouton sur la feuille. En maintenant le bouton de souris enfoncé.

toujours sur la barre d'outils tu as un bouton avec une page montrée par une doigt. Cliques dessus. Une fenêtre s'ouvre 'Propriétés'.

Dans la liste des 'Propriétés' dans la colonne de gauche tu as une ligne nommée 'caption' et en face 'Command Button 1'.

Remplace 'Command Button 1 ' par le texte que tu veux voir affiché sur le bouton. Ferme la fenêtre.

double-clique sur le bouton. Une grande fenêtre s'ouvre. Dans le volet de droite tu verras:

Private Sub CommandButton1_Click()

End Sub

Entre ces deux ligne tu mets [A1]=[A1]+1 pour obtenir

Private Sub CommandButton1_Click()
[A1] = [A1] + 1
End Sub

Tu reviens à la feuille de travail en fermant la fenêtre. Tu dégrise le premier bouton de la barre d'outil.


Et le tour est joué.

A bientÔt

Merci super explication

[ya_v_ka]

Salut

Envoyé par anthony_unac

C est exactement ce que je recherchais merci par contre comment as tu fais au juste et autre chose peut on changer le nom du bouton qui se nomme Ajout dans ton fichier ?

En effet l'explication de Hasco décrit exactement la mise en route et la marche à suivre... je ne saurais mieux faire...

Ya'v