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]

Re

Pour rester dans le non nécessaire donc forcément indispensable
(et en reprenant le code de Wolfy ayant repris le mien, de code 😉 )

Private Sub CommandButton1_Click()
Static X%
X = X + 1
[I1] = Choose(X, "Devis", "Bon de commande", "Confirmation de commande", "Bon de livraison", "Facture")
If X = 5 Then X = 0
End Sub

 

[Modeste geedee]

Re

@Modeste geedee -
Comme on dit: à chaqun ces goûts. 😎

🙄 simplement le demandeur aurait pu expliciter le contexte et l'usage prévu
ou s'agissait-il d'un simple exemple de code à usage didactique …

🙁 sans autres explications toutes les élucubrations*** sont permises (SpinButton, ScrollBar, détection position du curseur etc...)

*** je suis assez friand de sortir des chemins battus 😛

 

[Staple1600]

Bonsour®
il me semble qu'une liste de validation
- comporte un bouton

Comme dirait le gars à la pipe
Ceci n'est pas un bouton 😉

Sub a()
Debug.Print ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name
End Sub

😉
NB: A tester avec une seule et seulement une seule liste de validation sur l'activesheet 😉

 

[pralo]

staple ton code en message #16
fonctionne très bien
merci encore de ne jamais laisser tomber et de chercher des solutions
personnellement avec la validation des données, si le zoom de la feuille et petite on ne voit pas grande chose
merci encore

 

[Si...]

Bon_jour

... sans autres explications toutes les élucubrations*** sont permises (SpinButton, ScrollBar, détection position du curseur etc...)
*** je suis assez friand de sortir des chemins battus 😛

Comme j'aime bien "élucubrer " 😵😳😎
... et tout ça pour en arriver à un va et vient (bouton bascule - ToggleButton) dont peut initialiser les propriétés couleurs , tailles * …

Private Sub ToggleButton1_Click()
  [I1] = IIf(ToggleButton1, "Devis", "Facture")
End Sub [\Code]

* on peut même passer par le "tiers état" pour intercaler du "vide".