Discussion :

[lololoic]

bonjour,

j'ai un formulaire avec 18 boutons que j'ai besoin d'activer ou desactiver régulièrement

j'utilise le code suivant que je répète 18 fois

Code :

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

1
2
3
 
Bouton1.Transparent = False
Bouton1.Height = 455.9

c'est un peu lourd ... et pas tres lisible ... est il possible de "variabiliser" le nom du bouton pour faire un truc du genre :

Code :

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

1
2
3
4
5
6
 
For i = 1 To 18
Bouton = "Bouton" & i
Bouton.Transparent = False
PBouton.Height = 455.9   
Next i

[ft035580]

Salut,

Code :

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

1
2
3
4
5
6
7
Dim ctrl As Control
For Each ctrl In Me.Controls
If ctrl.ControlType =acCommandButton Then
    Ce que tu veux faire sur tes 18 boutons    
 
End If
Next ctrl

[cafeine]

Hello,

soit tu fais comme te dit ft... soit tu utilises la bonne syntaxe

Code :

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

1
2
3
4
5
6
7
 
For i = 1 To 18
    With Me.Controls("Bouton" & i)
        .Transparent = False
        .Height = 455.9  
    End With
Next i

bonjour,

j'ai un formulaire avec 18 boutons que j'ai besoin d'activer ou desactiver régulièrement

j'utilise le code suivant que je répète 18 fois

Code :

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

1
2
3
 
Bouton1.Transparent = False
Bouton1.Height = 455.9

c'est un peu lourd ... et pas tres lisible ... est il possible de "variabiliser" le nom du bouton pour faire un truc du genre :

Code :

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

1
2
3
4
5
6
 
For i = 1 To 18
Bouton = "Bouton" & i
Bouton.Transparent = False
PBouton.Height = 455.9   
Next i

[lololoic]

super merci !!