alterner des calculs par un bouton

[niko]

bonjour,

je cherche a remplacer une fonction de mon tableau par un bouton. Dans mon tableau, je fais des calculs suivant une condition. si la cellue T5=1 ou T5=2 et mettant simplement un 1 ou un 2 dans cette cellule je fais evoluer mon tableau. je voudrais remplacer ça par un bouton qui me permttrait de basculer de l'un a l'autre etat sans avoir a mettre 1 ou 2... juste un bouton...

merci d'avance pour votre aide et @+

 

[PascalXLD]

Bonjour

Voici un code qui pourrait te faire cela

Private Sub CommandButton1_Click()
Range('T5') = IIf(Range('T5') = 1, 2, 1)
End Sub

Bon courage

Message édité par: Pascal76, à: 24/03/2005 13:30

 

[Creepy]

Hello le forum,

Bon alors comme post il n'y a pas plus flou !!!!!!!!!

Pas d'exemple, pas de detail sur les changements entre la position 1 et 2, bref rien qui nous permette de t'aider ...

Donc réponse logique :

Oui c'est possible !! Fait un bouton qui bascule en 1 ou 2 la valeur de T5.

Private Sub CommandButton1_Click()
Select Case Range('a1').Value
Case 1
Range('a1').Value = '2'
Case 2
Range('a1').Value = '1'
Case Else
Range('a1').Value = '2'
End Select
End Sub


++

Creepy (qui est de mauvaise humeur!)

 

[niko]

merci, c'est impecable 🙂

@+

 

[PascalXLD]

Re

Content que cela t'aille

Thierry (@+Thierry) si tu passes par là tu as vu j'ai bien retenu la leçon je l'ai fait en une ligne 🙂 🙂 🙂

Bonne journée

 

[Coyote]

et pourquoi pas une case à cocher ou option.
pas besoin de macro dans ce cas