Discussion :

[brownthefou]

Bonjour (ou re) à tous,

J'ai comme projet de créer une grosse IHM fonctionnelle avec un UserForm avec plein de boutons dans tous les sens, cependant je peine à tous les déclarer et tous les gérer.

En ce moment je bloque sur mes CheckBox :
J'ai sur mon UserForm 32 CheckBox correspondant à des voies.
(Voie 1 à Voie 32)
Le but est de boucler en fonction d'un commandbutton.

Je m'explique.

On effectue un choix de produits traités et mesurés sur certaines voies.

1. J'ai 2 ComboBox qui me permettent de définir une famille / un type de produit et un produit.

2. On choisit sur quelle(s) voie(s) on traite le produit sélectionné en cochant les CheckBox.

3. Une fois qu'on a choisit les bonnes voies pour un produit traité, on appuie sur un CommandButton "Valider" qui validera les voies sélectionnées et "grisera" ou bloquera les CheckBox sélectionnées.

On boucle car il me faudrait refaire les 3 points du dessus dans le même UserForm en choisissant un autre produit et d'autres voies jusqu'à ce que l'utilisateur appuie sur un autre commandbutton. (Pas forcément que les 32 voeis soient cochées)

C'est quelquechose qui me semble vraiment compliqué car je ne suis que débutant en VBA et ces USF me font péter les plombs.

Si quelqu'un a une idée pour effectuer un traitement de ce dont je vous parle, je lui en serais GRANDEMENT reconnaissant.

Cdlt

[rvtoulon]

Bonjour,
n'oublie pas de consulter la faq pour t'aider dans tes recherches. Par exemple ce sujet pourrait beaucoup t'aider.

une application de ce tutos pour ton exemple de checkbox:
dans le bouton valider de ton userform tu mets ce code: (il parcours chaque controls de ton userform si c'est un checkbox alors si il est coché (true) il le bloque, si il n'est pas coché (false) alors il le laisse normal.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton1_Click()
Dim Ctrl As Control
 
For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.CheckBox Then
        Select Case Ctrl.Object.Value
            Case True
                Ctrl.Object.Enabled = False
            Case False
                Ctrl.Object.Enabled = True
        End Select
    End If
Next Ctrl
 
End Sub

[brownthefou]

C'est P-A-R-F-A-I-T