Création de tableau si condition

Version imprimable

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:

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 !

:ccool:

25/04/2012, 12h00
Daniel.C

Bonjour,

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

Citation:

un tableau de booléen de 32 cases indiquant si la voie (x) a été cochée ou pas
25/04/2012, 12h29
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 :ccool:

Cdlt

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

Code:

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

25/04/2012, 16h14
brownthefou

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