XL 2013 clic changement de texte

[pralo]

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

 

[Staple1600]

Bonsoir le fil, le forum

Une possibilité

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

 

[Lone-wolf]

Bonsoir pralo

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

EDIT: re Jean Marie

 

[Modeste geedee]

Bonsour®

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

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

 

[Staple1600]

Bonsoir Modeste

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

 

[Lone-wolf]

Bonsoir Modeste geedee, re Jean Marie

Et dans l'ordre

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

 

[pralo]

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

 

[Staple1600]

Re

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

 

[Lone-wolf]

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

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

 

[Staple1600]

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

 

[pralo]

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

 

[Staple1600]

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.

 

[Lone-wolf]

Re Jean Marie

@Staple1600

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

 

[Modeste geedee]

Bonsour®

Bonsoir Modeste

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

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 ???

 

[Lone-wolf]

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 ???

Comme on dit: à chaqun ces goûts.