Afficher valeur dans A1

[Hulk]

Hello,

Encore une de mes idées tordues et bizarres et pas faciles à expliquer..

Comment dire, je souhaite faire une boucle de trois avec un CommandButton et sur une seule cellule.

j'ai essayé d'être le plus clair possible dans le fichier joint.

😀 😀 😀

Merci pour l'aide !

Hulk.

 

[vbacrumble]

Re : Afficher valeur dans A1

Bonsoir Hulk



Il me semble avoir lu un fil à ce sujet

Je vais voir si je retrouve le code VBA en question
EDITION
Voila:

'dans un  module :
Public n As Byte

'dans le code du bouton
Private Sub CommandButton1_Click()
n = n + 1
If n > 3 Then n = 1
Select Case n
Case 1: [A1] = 1
Case 2: [A1] = 2
Case 3: [A1] = 3
End Select
End Sub

 

[Hulk]

Re : Afficher valeur dans A1

Hello tout l'monde, Vbacrumble,

Mais c'est magnifique ça Vba !

Merci bien chef.

Bonne soirée !!

@+.

 

[tora]

Re : Afficher valeur dans A1

Hello,

Encore une de mes idées tordues et bizarres et pas faciles à expliquer..

Comment dire, je souhaite faire une boucle de trois avec un CommandButton et sur une seule cellule.

j'ai essayé d'être le plus clair possible dans le fichier joint.

😀 😀 😀

Merci pour l'aide !

Hulk.

ca doit jouer aussi :

Private Sub CommandButton1_Click()
Dim Rg As Range: Set Rg = Range("A1")
Rg.Value = Rg.Value + 1
If Rg.Value > 3 Then Rg.Value = 1
End Sub

 

[ROGER2327]

Re : Afficher valeur dans A1

Bonjour à tous

Une variation du même genre dans le classeur joint.​

Bonne journée !
ROGER2327

 

[Hulk]

Re : Afficher valeur dans A1

Hello tout le monde,

C'est ok Tora et Roger, vos versions fonctionnent parfaitement aussi !

Bonne journée à vous tous.

Cdt, Hulk.