VBA: Case à cocher sur Feuille

G

GIBI

XLDnaute Impliqué

• 19 Juillet 2013

• #2

Re : VBA: Case à cocher sur Feuille

Bonjour,

pour la version formulaire

le for each permet de vérifier trouver le nom de la checkbox formulaire

Code:

Sub CheckBox1_Click()
   For Each cac In CheckBoxes 
        MsgBox cac.Name
   Next

    If CheckBoxes("Check Box 3").Value = xlOn Then

    MsgBox ("cocher")
    End If
End Sub

pour active X

Code:

If CheckBox1 Then
   MsgBox ("cocher activex")
End If

GIBI

 

Dernière édition: 19 Juillet 2013

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Juillet 2013

• #3

Re : VBA: Case à cocher sur Feuille

Bonjour Michel🙂, GIBI

regarde peut être ceci :

Code:

Option Explicit
Sub test()
'formulaire
MsgBox IIf(Feuil1.CheckBoxes(1).Value = xlOn, True, False)
'activeX
MsgBox Feuil1.CheckBox1
End Sub

bonne journée
@+

 

Vote positif 0 Vote négatif

T

tashiqi

XLDnaute Occasionnel

• 19 Juillet 2013

• #4

Re : VBA: Case à cocher sur Feuille

Bonjour Pierrot93
ne peut on pas remplacer
MsgBox IIf(Feuil1.CheckBoxes(1).Value = xlOn, True, False)
par
MsgBox Feuil1.CheckBoxes(1).Value = xlOn
?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Juillet 2013

• #5

Re : VBA: Case à cocher sur Feuille

Bonjour,

Bonjour Pierrot93
ne peut on pas remplacer
MsgBox IIf(Feuil1.CheckBoxes(1).Value = xlOn, True, False)
par
MsgBox Feuil1.CheckBoxes(1).Value = xlOn
?

Cliquez pour agrandir...

oui, plus court... bien vu🙂

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 19 Juillet 2013

• #6

Re : VBA: Case à cocher sur Feuille

Bonjour Gibi, Pierrot, Tashiqi

Merci pour vos réponses qui m'ont ravis 🙂.

 

Pièces jointes

• Case_A_Cocher_Sur_Feuille_Solution.xls

  101.5 KB · Affichages: 166

Vote positif 0 Vote négatif