[AC-2007] Select Case en fonction du nom du label [Résolu]

[Tifriis]

Bonjour

J'ai réalisé un groupe avec plusieurs checkbox (une seule et unique checkbox peut donc être choisie).

Je sais que pour cocher une des case en VBA on écrit par exemple :

Code :

Groupe.value=1

(coche la première case).

Cependant, je voudrais cocher une case par rapport à son nom. En clair, si ma case 1 s'appelle Aménagement, je souhaiterai écrire un code du type:

Si case.label = "Aménagement" Alors
Sélectionne la checkbox
Fin Si


Est-ce possible ?

Merci d'avance pour votre aide,
Tifriis

[helas]

Bonsoir,
avec une boucle

Code :

1
2
3
4
5
6
7
8
9
 
 Dim c As Control
 
 For Each c In Me.Controls
  If c.ControlName = NomOption Then
   Me!Cadre = c.OptionValue
   Exit For
  End If
 Next c

NomOption est une variable contenant le nom de l'option que l'on veut sélectionner

[loufab]

Bonjour,
J'ai rarement vu des choses impossibles.

Code :

1
2
3
4
5
6
7
8
9
Voici le code :
Dim ctrl As Control
For Each ctrl In Me.Controls
    If TypeOf ctrl Is Label Then
       If ctrl.Caption = "Paté" Then
            Me.COption = ctrl.Parent.OptionValue
        End If
    End If
Next

Ici le groupe d'option se nomme COption, l'étiquette à trouver est Paté.

Cordialement,

[Tifriis]

Merci à vous deux pour ces réponses qui m'ont été bien utiles !

A bientôt,

Tifriis