Discussion :

[brownthefou]

Bonjour à tous,

Je tiens à préciser que mon travail en dehors du VBA porte sur les capteurs (traitement de données, IHM). Ce traitement en VBA est postérieur à des mesures sur certains capteurs, mesurées dans certains conditions.

J'ai à effectuer un enregistrement de CheckBox et de ComboBox à la suite de manipulations par un utilisateur.

J'ai en effet un UserForm contenant 2 ComboBox, une en cascade avec l'autre et 32 CheckBox.

L'utilisateur sélectionne dans une première ComboBox une famille / un type de capteur, dans la deuxième il sélectionne le capteur, et ensuite il doit cocher des CheckBox pour signaler sur quelle "voie" est tel ou tel capteur (les mesures des capteurs se font jusque sur 32 voies donc les opérateurs insèrent souvent plusieurs types de capteurs différents pour noter les différences).

Une fois que l'utilisateur a choisit :

• la famille
• le produit
• les voies

il clique sur un bouton valider qui rend les cases cochées inactives.

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 CommandButton3_Click()
    'valider
    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

Coté graphique c'est bien joli et ça marche bien, mais pour le traitement suivant de mes données, j'aurais besoin d'effectuer un enregistrement dans un tableau de :

• En case 1 : la famille
• En case 2 : le produit
• En case 3 : un tableau de booléen de 32 cases indiquant si la voie (x) a été cochée ou pas

Ou alors si c'est plus simple de faire de la case 3 à la case 34 pour les voies.

Du coup j'aimerai créer des tableaux si la condition d'appuie sur le bouton valider est vérifiée, ou alors de rentrer dans un tableau à chaque nouvelle ligne les résultats enregistrés...

Je ne sais pas trop comment faire, si quelqu'un a une idée, elle est la bienvenue !

[Daniel.C]

Bonjour,

Ca dépend essentiellement de la disposition de tes données. D'autre part, qu'entends-tu par :

un tableau de booléen de 32 cases indiquant si la voie (x) a été cochée ou pas

[brownthefou]

Bonjour Daniel,

Qu'entends-tu par disposition des données ?

"un tableau de booléen de 32 cases indiquant si la voie (x) a été cochée ou pas"

En fait j'ai 32 CheckBox chacune correspondant à une voie.
Si, pour une famille et pour un produit choisis, la CheckBox est sélectionnée, cela montre que la voie(x) a supporté un capteur pendant les mesures.

Merci de l'attention

Cdlt

[Daniel.C]

le résultat se trouve en ligne 1, à adapter :

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
16
17
18
19
20
21
Private Sub CommandButton3_Click()
    'valider
    Dim Ctrl As Control
    With Sheets("Feuil1")
        .[A1] = ComboBox1.Value
        .[B1] = ComboBox2.Value
        i = 2
        For Each Ctrl In Me.Controls
            If TypeOf Ctrl Is MSForms.CheckBox Then
                Select Case Ctrl.Object.Value
                    Case True
                        i = i + 1
                        .Cells(1, i) = "X"
                        Ctrl.Object.Enabled = False
                    Case False
                        Ctrl.Object.Enabled = True
                End Select
            End If
        Next Ctrl
    End With
End Sub

[brownthefou]

J'ai modifié un peu le truc, c'est génial, merci beaucoup