alterner des calculs par un bouton

PascalXLD

XLDnaute Barbatruc

Modérateur

• 24 Mars 2005

• #2

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

 

Vote positif 0 Vote négatif

C

Creepy

XLDnaute Accro

• 24 Mars 2005

• #3

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!)

 

Vote positif 0 Vote négatif

N

niko

Guest

• 24 Mars 2005

• #4

merci, c'est impecable

@+

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 24 Mars 2005

• #5

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

 

Vote positif 0 Vote négatif

Coyote

XLDnaute Junior

• 24 Mars 2005

• #6

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

 

Vote positif 0 Vote négatif