Bouton clic = nombre+1 ???

[cyrilzim]

bonjour
j'ai facilement insere un bouton mais mon probleme et comment le faire marcher.
voila je veu mettre un bouton a coter de chaque ligne d'un tableau et quand je clic sur le bouton la valeur a coter du boutton s'incremente de 1.

Sinon si vous pouvez m'expliquer une autre facons simple pour que quand je click sur une cellule, le numero dans la cellule s'incremente de 1.

desoler novice, mais on dit qu'aucune question est conne... 😉
zimm

 

[RENAUDER]

Re : Bouton clic = nombre+1 ???

Bonjour,

Code à mettre dans la feuille et à condition que ça convienne ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveCell.Value = ActiveCell.Value + 1
End Sub

 

[cyrilzim]

Re : Bouton clic = nombre+1 ???

bon sa a l'ere simple mais sa na pas marche alors je met en attacher mon probleme.
voila je souhaite juste que lorsque j'appuie sur le boutton le nombre de la colonne B s'incremente. merci
zim

 

[matthieu33]

Re : Bouton clic = nombre+1 ???

Bonsoir Cyrilzim,

Voici une solution.

@+

 

[ccpapy]

Re : Bouton clic = nombre+1 ???

bonsoir,
voilà ton fichier modifié
à+

edit;
bonsoir mathieu33,
pas le même code mais même résultat...

 

[cyrilzim]

Re : Bouton clic = nombre+1 ???

merci bcp a tout le monde, et merci de penser aux novise.😉

 

[RENAUDER]

Re : Bouton clic = nombre+1 ???

Bonjour,
Un autre exemple mais sans bouton. Un clic dans la plage incrémente la valeur de 1.
Cela peut servir à d'autres au cas où tu gardes ce que les autres XLDnautes t'ont proposé.

Code crée dans la feuille Sheet1, feuille ou sont les données à traiter.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set isect = Application.Intersect(Range("BD"), ActiveCell)
    If isect Is Nothing Then
    Else
        ActiveCell.Value = ActiveCell.Value + 1
    End If
End Sub

 

[cyrilzim]

Re : Bouton clic = nombre+1 ???

super la derniere formule! sa marche super bien je l'ai appliquer pour 50 tableau en 2min!
Merci bcp
super ce forum

 

[ccpapy]

Re : Bouton clic = nombre+1 ???

bonjour à tous,

en essayant cette dernière méthode, (qui marche à merveille) je me demandais si il ne vallait pas mieux passer par un double-clic sur la cellule plutot qu'une sélection simple, cela pour éviter d'éventuelles erreurs de manipulations

en changeant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
dans le code
par
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Bonne journée à+

 

[elokapo]

Re : Bouton clic : insérer une formule

Bonjour à vous et merci pour cette aide fort utile !

J'aimerai juste savoir quel code remplacer puisque je voudrai qu'une formule apparaisse dans la cellule A7 lorsque je clique en B7 par exemple (que la formule vienne à gauche de la celule cliquée)

J'avais pensé à quelquechose du style : ActiveCell.FormulaR1C1 = "=today()" <<< mais comment le faire reculer d'une colonne ??

Merci pour vos idées.

Elokapo

 

[jeanpierre]

Re : Bouton clic : insérer une formule

Bonsoir le fil, elokapo,

Une macro évenementielle peut le faire, mais ce sera une formule, une seule....

Mais quelle formule et où la prendre... ?

Y'a des soirs où je ne comprends pas tout....

Surtout qu'au besoin, un simple Copier/Coller peut résoudre la chose....

Rendre simple et sympathique une utilisation d'excel, mais pas du rentre dedans, pour faire beau, pour faire pro, pour faire valoir....

Donc, la question est : Pourquoi ?

A plus

 

[elokapo]

Re : Bouton clic : insérer une formule

Surtout qu'au besoin, un simple Copier/Coller peut résoudre la chose....

Rendre simple et sympathique une utilisation d'excel, mais pas du rentre dedans, pour faire beau, pour faire pro, pour faire valoir....

Donc, la question est : Pourquoi ?

A plus

Si tu le dis 🙂

Bref, je récapitule : j'aimerai savoir le code de la macro pour que lorsqu'un clic est effectué dans une cellule, un événement se passe. (mais dans une autre cellule en fait ; dans mon cas, la cellule juste à gauche de celle "cliquée")

Est-ce plus clair ? 😉

A très bientot
Elokapo

 

[jeanpierre]

Re : Bouton clic : insérer une formule

Re,

C'était mon anniv.il y a peu et pourtant aucun excés.....

Je dois donc avoir l'esprit clair.... tu parles de quelle macro.... ?

Lorsque un clic est effectué dans une cellule : laquelle ?
Un événement se passe (mais dans une autre cellule), laquelle ?

Pour être clair, c'est clair comme une nuit sans lune... un astronome bénévole au rythme du monde (pas un amateur)...

 

[elokapo]

Re : Bouton clic = nombre+1 ???

Bonjour,
Un autre exemple mais sans bouton. Un clic dans la plage incrémente la valeur de 1.
Cela peut servir à d'autres au cas où tu gardes ce que les autres XLDnautes t'ont proposé.

Code crée dans la feuille Sheet1, feuille ou sont les données à traiter.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set isect = Application.Intersect(Range("BD"), ActiveCell)
    If isect Is Nothing Then
    Else
        ActiveCell.Value = ActiveCell.Value + 1
    End If
End Sub

Je parle de cette macro là : je voudrai remplacer ceci :'ActiveCell.Value = ActiveCell.Value + 1' par autre chose. C'est-à-dire qu'en cliquant en b4, une formule apparaisse en a4 : meme ligne, mais colonne A) : voir dernier fichier ci -joint.

Et au fait : joyeux anniv'... ! mais je ne pourrai etre plus clair que je ne l'ai été ! 😉

A tout'

 

[elokapo]

Re : Bouton clic = nombre+1 ???

Bonjour à tous,

Voici une réponse à ma question (que je n'ai pas pu tester encore...) :

SendKeys "+{tab}"

Simule un shift+tab

A bientot
Elokapo