Bouton clic = nombre+1 ???

RENAUDER

Nous a quitté

Repose en paix

• 13 Novembre 2007

• #2

Re : Bouton clic = nombre+1 ???

Bonjour,

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

Code:

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

 

Vote positif 0 Vote négatif

C

cyrilzim

Guest

• 13 Novembre 2007

• #3

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

 

Pièces jointes

• exemple simple de mon probleme.xls

  19.5 KB · Affichages: 63
• exemple simple de mon probleme.xls

  19.5 KB · Affichages: 65
• exemple simple de mon probleme.xls

  19.5 KB · Affichages: 68

Vote positif 0 Vote négatif

matthieu33

XLDnaute Occasionnel

• 13 Novembre 2007

• #4

Re : Bouton clic = nombre+1 ???

Bonsoir Cyrilzim,

Voici une solution.

@+

 

Pièces jointes

• exemple simple de mon probleme_v1.xls

  32.5 KB · Affichages: 89

Vote positif 0 Vote négatif

C

ccpapy

XLDnaute Impliqué

• 13 Novembre 2007

• #5

Re : Bouton clic = nombre+1 ???

bonsoir,
voilà ton fichier modifié
à+

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

 

Pièces jointes

• exemple simple de mon probleme.xls

  33 KB · Affichages: 115
• exemple simple de mon probleme.xls

  33 KB · Affichages: 126
• exemple simple de mon probleme.xls

  33 KB · Affichages: 113

Dernière édition: 13 Novembre 2007

Vote positif 0 Vote négatif

C

cyrilzim

Guest

• 13 Novembre 2007

• #6

Re : Bouton clic = nombre+1 ???

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

 

Vote positif 0 Vote négatif

RENAUDER

Nous a quitté

Repose en paix

• 13 Novembre 2007

• #7

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.

Code:

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

 

Pièces jointes

• exemple simple sans boutons.xls

  28 KB · Affichages: 80

Vote positif 0 Vote négatif

C

cyrilzim

Guest

• 14 Novembre 2007

• #8

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

 

Vote positif 0 Vote négatif

C

ccpapy

XLDnaute Impliqué

• 14 Novembre 2007

• #9

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 à+

 

Vote positif 0 Vote négatif

E

elokapo

Guest

• 14 Décembre 2007

• #10

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

 

Dernière modification par un modérateur: 14 Décembre 2007

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 14 Décembre 2007

• #11

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

 

Vote positif 0 Vote négatif

E

elokapo

Guest

• 14 Décembre 2007

• #12

Re : Bouton clic : insérer une formule

jeanpierre à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 14 Décembre 2007

• #13

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

 

Vote positif 0 Vote négatif

E

elokapo

Guest

• 14 Décembre 2007

• #14

Re : Bouton clic = nombre+1 ???

RENAUDER à dit:

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.

Code:

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

Cliquez pour agrandir...

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'

 

Dernière modification par un modérateur: 14 Décembre 2007

Vote positif 0 Vote négatif

E

elokapo

Guest

• 18 Décembre 2007

• #15

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

 

Vote positif 0 Vote négatif