Discussion :

[pierre bernard]

Bonjour,

Je débute en VBA et j'utilise sur une feuille Excel des Cases à Cocher que j'ai sélectionné depuis la barre d'outils.
Je me retrouve avec cette macro:

Code :

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

1
2
Sub Caseàcocher3_QuandClic()
End Sub

Quelqu'un pourrait-il me donner la syntaxe qui permet de tester si la case à cocher est validée ou non ?

PS: avant de passer ce message j'ai fait une recherche sans résultat

Merci

[sovo]

essai ceci (c'est du VB6, donc ...)

Code :

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

1
2
 
msgbox caseacocher3.selected

[riesseg]

Code :

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

1
2
 
msgbox caseacocher3.value

plutot ( 0 pas coché, 1 coché)


toujours en vb6

[sovo]

oups j'y suis aller un peut trop vite et j'ai confondu de controle. Qu'a cela ne tienne je suis du meme avis que riesseg

[riesseg]

Ah vi aussi pierre bernard, a ta place, j'eviterai les caracteres speciaux dans les noms de variable ( é, è, ç, @...)

je suis pas sur que les compilos adorrent...

[SilkyRoad]

bonsoir


il semblerait que tu utilisess des cases à cocher de la barre d'outils Formulaires

il est preferable d'utiliser les cases à cocher de la boite à outils Controles qui sont plus performants :
Affichage
Barre d'outils
Selectionne la ligne "boite à outils Controles"

Code :

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

1
2
3
4
5
Private Sub CheckBox1_Click()
Dim Resultat As String
Resultat = IIf(Sheets("Feuil1").CheckBox1.Value = True, "Coché", "Décoché")
MsgBox Resultat
End Sub

sinon pour un objet de la boite à outils Formulaire ( ton exemple)

Code :

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

1
2
3
4
5
6
7
Sub Test()
If Sheets("Feuil1").Shapes("Check Box 3").ControlFormat.Value = xlOn Then
MsgBox "Coché"
Else
MsgBox "Décoché" 'xlOff
End If
End Sub

bonne soiree
michel

[SfJ5Rpw8]

Bonjour,

Je débute en VBA et j'utilise sur une feuille Excel des Cases à Cocher que j'ai sélectionné depuis la barre d'outils.

bon on suppose que c'est la barre d'outils formulaire... ?

tu peu faire un truc du genre

Code :

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

1
2
3
4
 
if ActiveSheet.Shapes("Check Box 3").OLEFormat.Object.value = 1 Then
 MsgbOx ("La case est cochée..")
endif

PS : Relis les régles du forum et ajoute le Tag [VBA-E] à ton titre ... cela évitera les hors sujet

[ThierryAIM]

Code :

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

1
2
Sub Test()
If Sheets("Feuil1").Shapes("Check Box 3").ControlFormat.Value = xlOn Then

Code :

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

 if ActiveSheet.Shapes("Check Box 3").OLEFormat.Object.value = 1 Then

Mettez-vous d'accord

[SfJ5Rpw8]

Mettez-vous d'accord

debug.Print xlon = 1
Vrai

[ThierryAIM]

je repete :

Code :

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

1
2
Sub Test()
If Sheets("Feuil1").Shapes("Check Box 3").ControlFormat.Value = xlOn Then

Code :

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

 if ActiveSheet.Shapes("Check Box 3").OLEFormat.Object.value = 1 Then

Mettez-vous d'accord

[SfJ5Rpw8]

je repete :
Mettez-vous d'accord

oups .. j'avais pas vu ... mais les 2 fonctionnenent :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Caseàcocher3_QuandClic()
If ActiveSheet.Shapes("Check Box 3").OLEFormat.Object.Value = 1 Then
  MsgBox "Ok bil"
  Else
  MsgBox "NOK bil"
End If
If Sheets("Feuil1").Shapes("Check Box 3").ControlFormat.Value = xlOn Then
MsgBox "Ok SilkyRoad "
  Else
  MsgBox "NOK SilkyRoad "
End If
End Sub