Incrementer une cellule en cliquant sur un bouton

anthony_unac

XLDnaute Junior
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 :confused:
Par contre pour l incrementation pas de soucis :
A1=A1+1 par exemple

Cordialement
Anthony
 
G

Guest

Guest
Re : Incrementer une cellule en cliquant sur un bouton

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

XLDnaute Junior
Re : Incrementer une cellule en cliquant sur un bouton

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 ;)
 

Discussions similaires

Statistiques des forums

Discussions
312 928
Messages
2 093 701
Membres
105 789
dernier inscrit
dulcioso