Discussion :

[wace]

Bonjour,

J'ai un user form qui contient des Controls OptionButton
Et je voudrais modifier la valeur de Enable en VBA mais ca coince,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim Objet    As Msforms.Control
        'On recupere le nom des controles a afficher pour 
        'verifier qu'ils existent bien
        For Each Objet In MonUserForm.Controls
             If TypeOf Objet Is Msforms.OptionButton Then
                 'On disable les repertoires qui n'existe pas
                 If ExisteFichier(path & Objet.Caption, True) = False Then
                     Objet.Enable = False
                 End If
             End If
         Next

La variable path est variable globale , et la fonction ExisteFichier retourne la bonne valeur mais la ligne

Code :

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

  Objet.Enable = False

ne fonctionne pas,

QQ'un a une idée de pourquoi ?

[Invité]

Salut

ce n'est pas Enable mais Enabled.

Pour teste mais une messagebox juste avant ton "Objet.Enable = False" pour savoir si tu rentres dans ton critére.

car à mon avis tu n'y entre pas car sinon ton programme aurait bugué avec le Enable

Starec

[wace]

Cool ca marche

Merci