Discussion :

[petibonohm]

bonsoir,

j'ai une erreur, surement à la con, mais je trouve pas

si vous avez une idée... je suis preneur

Code :

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

1
2
3
4
5
6
7
Dim I As Integer
 
If picsou >= donald Then
    For I = 1 To 5
        Controls ("CommandButton" & (I) & "_Click().Enabled = False")
    Next I
End If

merci

[jfontaine]

Je verrais plutot quelque chose comme ca

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Dim ct As Control
 
For Each ct In Controls
 
    ct.Enabled = False
 
 
Next

[jfontaine]

Et si tu veux desactiver uniquement les comandbutton

Code :

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

1
2
3
4
5
6
7
8
 
Dim ct As Control
 
For Each ct In Controls
    If TypeOf ct Is CommandButton Then
        ct.Enabled = False
    End If
Next

Typeof te donne le type d'objet

[fring]

Bonsoir tlm,

For Each ct In Controls est tout à fait correct avec une petite nuance, là on désactive tous les boutons.

Une variante du code proposé par jfontaine, si tu as X boutons et que tu veux désactiver les boutons de 1 à 5 (en supposant que les boutons se trouvent directement sur la feuille)

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim I%
If picsou >= donald Then
For I = 1 To 5
ActiveSheet.Shapes("CommandButton" & I).Select
Selection.Enabled = False
ActiveSheet.Select
Next
End If

@+

[alsimbad]

Dim I As Integer
If picsou >= donald Then
For I = 1 To 5
Controls ("CommandButton" & (I) & "_Click().Enabled = False")
Next I
End If

es tu sur que tes commandbouton s'appelle

Code :

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

1
2
CommandButton" & (I) & "_Click().

c'est assez surprenant. le mieux serait de les rebatiser pour plus de simplicité, tu as du prendre le nomsur le code généré, en fait, ça serais plutot

Code :

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

1
2
3
4
5
6
Dim I As Integer
If picsou >= donald Then
    For I = 1 To 5
        Controls ("CommandButton" & (I) .Enabled = False")
    Next I
End If

ensuite la propriété que tu modifie n'a pas de raison de se trouvé dans la parenthese, ce qui donnerait

Code :

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

1
2
3
4
5
6
7
Dim I As Integer
If picsou >= donald Then
    For I = 1 To 5
        Controls ("CommandButton" & (I) ).Enabled = False
   Next I
End If

et pour terminer, il serait mieux de désigner ou sont placé tes command boutons

Code :

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

1
2
3
4
5
6
7
 
Dim I As Integer
If picsou >= donald Then
For I = 1 To 5
me.Controls ("CommandButton" & (I) ).Enabled = False
Next I
End If

et ça marche

[petibonohm]

nikel !

c'est le "_Click()" qui ne devait pas être dans la boucle...

merci