| auteur : SilkyRoad | Vba |
Sub StatutCheckbox_Formulaire ()
If Feuil1. Shapes (" Check Box 1 " ). ControlFormat . Value = xlOn Then
MsgBox " Coché. "
Else
MsgBox " Décoché. "
End If
End Sub
|
La procédure suivante coche ou décoche la checkbox.
Vba |
Sub CocherDecocher_Checkbox_Formulaire ()
Dim Obj As Object
Set Obj = Feuil1. Shapes (" Check Box 1 " ). OLEFormat . Object
If Obj. Value = xlOff Then
Obj. Value = xlOn
Else
Obj. Value = xlOff
End If
End Sub
|
|
| auteur : SilkyRoad | Vba |
Sub BoucleCheckBoxes_Formulaire ()
Dim Cb As CheckBox
For Each Cb In Feuil1. CheckBoxes
If Cb. Value = xlOn Then
Debug. Print Cb. Name
End If
Next Cb
End Sub
|
|
Consultez les autres F.A.Q's
Les sources présentés sur cette pages sont libre de droits,
et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs.
Copyright ©2008
Developpez LLC. Tout droits réservés Developpez LLC.
Aucune reproduction, même partielle, ne peut être faite de ce site et de
l'ensemble de son contenu : textes, documents et images sans l'autorisation
expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à 3 ans
de prison et jusqu'à 300 000 E de dommages et intérets.
Cette page est déposée à la SACD.
|