Discussion :

[moilou2]

Bonjour, j'ai une petite question concernant l'usage des check box dans un user form.

Je voudrais savoir comment faire, pour que si je coche ou non des check box dans mon userform, cela aille mettre un x (une croix) ou non dans une feuille de classeur excel, mais plus particulièrement, dans une zonne de dessin (objet rectangle).

Merci pour votre aide

[nawake]

Salut,

dans le module de code de la userform tu crée la méthode évènement click sur le checkbox et tu test s'il est coché ou non

Ps : pour créer la méthode utilise la liste déroulante en haut à gauche du module et sélectionne l'objet auquel tu veut créer une méthode évènement

++

[moilou2]

OK sa je sais merci saund même

Se que je voudrais savoir, c'est quel est la formule pour savoir si j'ai coché ou pas? Sa doit être queslque chose.True ou quelque chose.false nn?

[mathieu44800]

Bonjour,

Pour le reste, regardes du coté des objets Shapes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shapes("Nom_Shape")

Ensuite, pour plus de simplicité, je te conseille de dessiner cette forme en croix et de l'afficher ou la masquer en cas de besoin (si c'est possible).

A+

Pour le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If (Ta_Checkbox.Value = True) Then
     ' Tu Affiches ta croix
Else
      ' Tu ne l'affiches pas
End If

[moilou2]

OK sa marche merci beaucoup, voila mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CheckBox1_Click()
 
If CheckBox1 = True Then
Sheets("PP1").Select
ActiveSheet.Shapes("Rectangle 11").Select
Selection.Characters.Text = "x"
 
Else
Sheets("PP1").Select
ActiveSheet.Shapes("Rectangle 11").Select
Selection.Characters.Text = ""
 
End If
 
End Sub

Merci à tous