Select case checkbox

[Claudy]

Bonjour à tous,
dans un usf, j'ai deux checkbox....
Je voudrais que lorsqu l'on coche un des deux ,
Range("H500").End(xlUp)(2)="Q"
ou Range("H500").End(xlUp)(2)="T"

Si les deux sont cochées, Range("H500").End(xlUp)(2)="Q & T"
Si aucun coché,Range("H500").End(xlUp)(2)=" "
J'ai essayé avec Select case, mais ça va pas!
Je tourne en rond....
merci d'avance,
Claudy

 

[Raja]

Re : Select case checkbox

Bonjour l'ami Belge,

Veux-tu nous donner ton code ?

 

[Claudy]

Re : Select case checkbox

Bonjour, et merci

Select Case CheckBox1.Value
Case True
sit = "Quai"
Case False
sit = " "

End Select

Select Case CheckBox2.Value
Case True
sit = "Train"
Case False
sit = " "

End Select

Range("H500").End(xlUp)(2) = sit

 

[Papou-net]

Re : Select case checkbox

Bonjour Claudy, Raja,

Est-ce bien ce que tu désires, Claudy ?

Cordialement.

 

[Claudy]

Re : Select case checkbox

Bonjour, Papou net...
Désolé, mais je suis à mon boulot, derrière un solide parefeu et impossible de télécharger ton fichier!
Pourrais tu mettre le code sur le forum?
Merci d'avance,
Claudy

 

[Papou-net]

Re : Select case checkbox

Re-bonjour Claudy,

J'ai créé un module de code nommé 'Coche' dont voici la teneur :

Sub Coche()
With UserForm1
  Select Case .CheckBox1.Value
    Case False
      Select Case .CheckBox2.Value
        Case False
        Range("A500").End(xlUp) = ""
        Case True
        Range("A500").End(xlUp) = "T"
      End Select
    Case True
      Select Case .CheckBox2.Value
        Case False
        Range("A500").End(xlUp) = "Q"
        Case True
        Range("A500").End(xlUp) = "Q & T"
    End Select
  End Select
End With

End Sub

Puis je fais appel à ce module dans l'événement 'Click' des CheckBox :

Private Sub CheckBox1_Click()
Coche

End Sub

Private Sub CheckBox2_Click()
Coche

End Sub

Voilà, c'est aussi simple ! Il ne reste plus qu'à adapter les références de cellules et d'objets, éventuellement.

Espérant t'avoir aidé.

Cordialement.

 

[Claudy]

Re : Select case checkbox

Bingo!
En adaptant à mon USF et ma feuille, j'y suis arrivé.
Bon week end,
Claudy