2 Bouton un qui compte un qui décompte

[pat le fou]

Bonjour à tous

Je souhaiterais Deux bonton un qui compte (de 1 à 31) L'autre qui décompte (de 31 à 1)
dans une même cellule Ex: A5 si Je clic sur un bonton 1 s'affiche en A5 si je clic de nouveaux 2 S'affiche eb A5 et ainsi de suite
Par contre si je clic sur le deuxieme bouton de 2 je passe à 1.

J'espère être clair dans ma demande

Merci beaucoup à l'avance

@+

 

[ziopizza]

Bonjour pat le fou,

Pourquoi tu place pas une toupie dans ta feuille.

Yves

 

[deudecos]

Salut Pat le fou, Ziopizza, le forum,

Oui Msieur Ziopizza, y a la toupie... Mais comment ca marche ca la toupie ?

Sinon, moi qui aime bien me prendre la tete, ben j'utilise deux boutons differents... Ouarf !

Tiens Msieur le fou, pis dis moi si ca te va.

Bonne soiree

Olivier [file name=Pat.zip size=7470]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Pat.zip[/file]

 

[myDearFriend!]

Bonsoir pat le fou, ziopizza, deudecos,

Ci-joint une autre façon de faire (avec 2 boutons et une seule procédure) :

Sub Compteur()
Dim Plus As Boolean
      Plus = Application.Caller = 'Zone de texte 1'
      With Sheets('Feuil1').Range('A5')
            .Value = Val(.Value) + IIf(Plus, 1, -1)
            .Value = WorksheetFunction.Max(1, .Value)
            .Value = WorksheetFunction.Min(31, .Value)
      End With
End Sub

Cordialement, [file name=PourPat.zip size=6622]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PourPat.zip[/file]

 

[Gérard DEZAMIS]

Bonsoir à Tous

Allez va un p'tit tour de toupie façon Ziopizza !

@+ GD [file name=Pat2.zip size=8737]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Pat2.zip[/file]

 

[deudecos]

Geraaaaaard !

C'est pas d'jeu !!! :angry:

Dire c'est ca et pas expliquer comment, ou pas meme donner un exemple c'est pas sympa ! C'est m'sieur de la Pizza qu'aurait du expliquer !!!

Sinon, ca va du cote des bruleurs de voitures ???

Bonne soiree

Olivier

 

[pat le fou]

Bonsoir Gérard DEZAMIS, myDearFriend!, deudecos, ziopizza

Merci beaucoup à tous

Toutes vos solutions fonctionnent à merveille
Mais le plus dur laquelle choisir en tout cas je garde tout
la toupie... Mais comment ca marche ca la toupie ?
J'y avais pensé mais mes connaissances sont vraiment trop limité
Mais j'aime bien (quand ca marche :lol: ) EN plus les chiffres defilent quand on reste appuyé
Par contre une chose m'intrigue Mr myDearFriend!
Que ces bouton sont jolies
Quand je fais un clic droit puis format de la zone de texte dans mes propre fichier pas d'option couleurs et trait Bizare NON :whistle:

Bon je vous quitte pour ce soir Taf oblige

Encore merci
Au plaisir

@+++++++

 

[Gérard DEZAMIS]

Salut TATOUS

Bon je vais me faire pardonner

Salut Didier tu as de jolis boutons ? Fais une photo ça m'interesse :woohoo:

T'es en colère Olivier ?
A cause de mon article sur le 'Bouchon'

Allez attends un petit peu chacun va y avoir droit !

Si tu as des photos en rab, car toi aussi tu a dégainé pas mal je place mon mail sur la boite privée et tu m'envoies qq chose ....

Excuses : pour cette parenthèse excellienne....

@+ GD [file name=Pat3.zip size=9538]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Pat3.zip[/file]

 

[pat le fou]

Bonjour à tous

Merci Gérard DEZAMIS pour ces explications

Je m'en vais mettre des couleur partout

@+++++

PS: Désolé pas de photo X :lol: