Max compteur toupie.

[Hulk]

Hello les couches-tard 😀

Encore moi !

J'ai autre chose que je n'arrive pas à grr faire 😡

Petite explication dans le fichier joint.

Merci pour votre aide les pros 😀

Hulk.

 

[kjin]

Re : Max compteur toupie.

Bonsoir,
Dans le code du Spinbutton

Private Sub SpinButton1_Change()
SpinButton1.Max = Application.CountA(Range("A1:A50"))
End Sub

A+
kjin

 

[Hulk]

Re : Max compteur toupie.

Re,

Cool ça joue Kjin merci.

Autre petite question..

Merci de l'aide.

Hulk.

 

[kjin]

Re : Max compteur toupie.

Re,
Pourquoi faire simple...enfin si j'ai bien compris 😀

Private Sub SpinButton1_Change()
SpinButton1.Max = Application.CountA(Range("A1:[COLOR="Red"][B]B[/B][/COLOR]50"))
End Sub

A+
kjin

 

[Hulk]

Re : Max compteur toupie.

Yop,

Te promets avais essayé tout bêtement comme ça, mais ça ne jouait pas (je croyais), mais au fait oui 😀

C'est parce que si t'es à 6 et tu modifie la macro et tu clique direct sur +(flèche haut) il bouge pas, faut d'abord abboyer, pardon, appuyer sur la flèche du bas. Et là ça joue.
Et comme moi j'ai directement cliqué sur + ben voili 😀

Impec Kjin et thanks.

Hulk.

 

[Hulk]

Re : Max compteur toupie.

Hello le Forum,

Je relance ce post car j'ai encore un souci que je n'arrive pas à corriger.

Voyez plutôt le fichier joint.

Merci pour votre aide.

Hulk.

 

[Hulk]

Re : Max compteur toupie.

Hello,

Ayuto 😀

 

[kjin]

Re : Max compteur toupie.

Bonsoir,
A en attrapper des (Spin)Button 😀
Essaie plutôt comme ça si tu effaces tout

Private Sub SpinButton1_SpinUp()
With Sheets("Feuil2")
    SpinButton1.Max = Application.CountA(.Range("A2:B50"))
End With
[D1] = SpinButton1
End Sub

Par contre je n'ai pas cherché à comprendre le reste
A+
kjin

 

[Hulk]

Re : Max compteur toupie.

Re le Forum, Kjin,

Bon j'espère que tu as de la pommade contre les SpinButton 😀

Ben non Kjin ça ne jouait pas, toujours bloqué, et de plus il incrémentait le compteur de 1 qu'au deuxième coup.

Mais je crois que j'ai trouvé... ou presque 😀 avec ça, mais il y a encore un petit détail qui me grr 😀

Private Sub SpinButton1_Change()
If Sheets("Feuil2").Range("A2") = "" Then
SpinButton1.Max = 100
Else
SpinButton1.Max = Application.CountA(Sheets("Feuil2").Range("A2:B50"))
End If
End Sub


Juste encore un truc...

J'ai joins le fichier.

 

[Hulk]

Re : Max compteur toupie.

Hello les amis,

Je relance ce post, si si j'insiste 😀

J'ai remis le fichier avec des explications, je pense, plus claires.

Merci pour votre aide et bonne journée à tous.

Hulk.

 

[kjin]

Re : Max compteur toupie.

Bonjour,
je n'ai rien compris mais bon à tester
A+
kjin

 

[Hulk]

Re : Max compteur toupie.

Re le Forum, Kjin,

Détrompe-toi Kjin, tu as tout compris, c'est exactement ce que je voulais !

Tu peux laisser tomber la pommade contre les (Spin)boutons 😀

Merci et bonne après-midi.

Au plaisir.

Hulk.