XL 2013 clic changement de texte

Staple1600

XLDnaute Barbatruc

• 11 Juin 2018

• #2

Bonsoir le fil, le forum

Une possibilité

VB:

Public X%
Private Sub CommandButton1_Click()
If X = 0 Then
[I1] = "Devis": X = 1
ElseIf X = 1 Then
X = 0: [I1] = "Facture"
End If
End Sub

EDITION: Re, Lone-Wolf 😉

 

Dernière édition: 11 Juin 2018

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 11 Juin 2018

• #3

Bonsoir pralo

Et combien de clique pense-tu vouloir faire?? 😵. De plus, où tu veux en venir avec ça ?? 🙄

EDIT: re Jean Marie 😉

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 11 Juin 2018

• #4

Bonsour®

pralo à dit:

bonsoir le forum
j'aimerais faire un petit code mais même ca je n'y arrive pas
en cliquant sur un bouton, la cellule I1 change de text
ex: un clic =Devis, un autre clic = Facture et ainsi de suite
merci encore pour votre aide

Cliquez pour agrandir...

😵 sans macro...
cela ne serait-il pas plus simple d'utiliser une liste de validation ???
🙄

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Juin 2018

• #5

Bonsoir Modeste

Le client veut un bouton alors j'ai bêtement pondu un bouton.
Le client veut cliquer alors y clique 😉

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 11 Juin 2018

• #6

Bonsoir Modeste geedee, re Jean Marie🙂

Et dans l'ordre

VB:

Public X%
Private Sub CommandButton1_Click()
If X = 0 Then
[I2] = "Devis": X = 1
ElseIf X = 1 Then
X = 2: [I2] = "Bon de commande"
ElseIf X = 2 Then
X = 3: [I2] = "Confirmation de commande"
ElseIf X = 3 Then
X = 4: [I2] = "Bulletin de livraison"
ElseIf X = 4 Then
X = 0: [I2] = "Facture"
End If
End Sub

 

Dernière édition: 11 Juin 2018

Vote positif 0 Vote négatif

P

pralo

XLDnaute Junior

• 11 Juin 2018

• #7

bonsoir Modest effectivement un bouton c'est mieux
lone-wolf j'ai essayer ton code
ca place le premier texte mais au prochain clic plus rien

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Juin 2018

• #8

Re

@pralo
Et mon code?
Pas essayé?
(voir message#2)
Tu auras remarqué que le code de Lone-Wolf reprend le mien, non ?

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 11 Juin 2018

• #9

Re

@pralo : bizarre, chez moi ça marche. Tu as sûrement mis un bouton contrôle formulaire au lieu d'un bouton activex.

bonsoir Modest effectivement un bouton c'est mieux

Cliquez pour agrandir...

C'est d'une liste de validation dont il parlait.

 

Pièces jointes

• Classeur2.xlsm

  19.5 KB · Affichages: 35

Dernière édition: 11 Juin 2018

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Juin 2018

• #10

Re

Le mien (qui est désormais le nôtre 😉) marchait également dès le message 2...
N'est-ce pas pralo? 😉

EDIT: Lone-Wolf:
pralo avait dit I1 pas I2 😉

 

Vote positif 0 Vote négatif

P

pralo

XLDnaute Junior

• 11 Juin 2018

• #11

desolé staple je me suis embrouillé dans le fil
le tien fait pareil
le premier text ok puis prochain clic il ne se passe rien

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Juin 2018

• #12

Re

@pralo
Cela fonctionne si tu insères un CommandButton (ActiveX) et non pas un Bouton (contrôle de la barre Outils Formulaire)
Que ce soit mon code ou son fils (celui de Lone-Wolf 😉 ) les deux fonctionnent avec un CommandButton
En mode création, clic-droit sur le CommandButton et choisir Visualiser le code
C'est là qu'il faut coller le code VBA.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 11 Juin 2018

• #13

Re Jean Marie

@Staple1600

C'est corrigé. Mais notre ami, n'a pas vu le classeur exemple que j'ai mis.

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 11 Juin 2018

• #14

Bonsour®

Staple1600 à dit:

Bonsoir Modeste

Le client veut un bouton alors j'ai bêtement pondu un bouton.
Le client veut cliquer alors y clique 😉

Cliquez pour agrandir...

ROTFL
selon mon humble expertise d'Excel😀
il me semble qu'une liste de validation
- comporte un bouton
- réagisse au click


🙄 maintenant si le demandeur veut que Excel réagisse à sa pensée avec un bouton qui fait tout …
les concepteurs ont encore de beaux jours devant eux 😛
Excel Neuronal ???

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 11 Juin 2018

• #15

Re

@Modeste geedee

🙄 maintenant si le demandeur veut que Excel réagisse à sa pensée avec un bouton qui fait tout …
les concepteurs ont encore de beaux jours devant eux 😛
Excel Neuronal ???

Cliquez pour agrandir...

Comme on dit: à chaqun ces goûts. 😎

 

Vote positif 0 Vote négatif