boucle FOR

bonsoir,

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

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

Code:

---

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

Je verrais plutot quelque chose comme ca

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim ct As Control   For Each ct In Controls   ct.Enabled = False     Next

---

Et si tu veux desactiver uniquement les comandbutton

Code:

---

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

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:

---

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

---

@+ ;)

Citation:

---

Envoyé par petitbonhom

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:

---

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:

---

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:

---

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:

---

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

nikel !

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

merci