[VBA-E] Case a cocher

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:

---

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

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

Code:

---

1 2	msgbox caseacocher3.selected

---

Code:

---

1 2	msgbox caseacocher3.value

---

plutot ( 0 pas coché, 1 coché)


toujours en vb6

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

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...

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:

---

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:

---

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

Citation:

---

Envoyé par 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.

---

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

tu peu faire un truc du genre

Code:

---

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

Citation:

---

Envoyé par SilkyRoad

Code:

---

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

---

---

Citation:

---

Envoyé par bbil

Code:

---

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

---

---

Mettez-vous d'accord :D

Citation:

---

Envoyé par ThierryAIM

Mettez-vous d'accord :D

---

:lol:

Citation:

---

Envoyé par Ma fenêtre exécution

debug.Print xlon = 1
Vrai

---

je repete :

Citation:

---

Envoyé par SilkyRoad

Code:

---

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

---

---

Citation:

---

Envoyé par bbil

Code:

---

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

---

---

Mettez-vous d'accord :D

Citation:

---

Envoyé par ThierryAIM

je repete :
Mettez-vous d'accord :D

---

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

Code:

---

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

---