Comptabiliser valeur sur des comboboxs

[Tomuy35]

Bonjour,

j'ai plusieurs combobox avec les valeurs (OK,KO, NA)

je souhaiterais comptabiliser le nombre de chaque une des valeurs

pour l'instant j'ai cette solution mais qui est pas optimale:

Code :

1
2
3
4
5
6
7
If (ComboBoxTest1.Value = "OK") Then
        ok = ok + 1
        ElseIf (ComboBoxTest1.Value = "KO") Then
        ko = ko + 1
        ElseIf (ComboBoxTest1.Value = "NA") Then
        NA = NA + 1
        End if

.... ainsi de suite pour chacune des combobox
Je souhaiterais faire une boucle...


comment procéder ?
en utilisant un tableau mais comment utiliser un tableau avec vba?
merci

[Heureux-oli]

Salut,

Quelle est la nature de tes combo ?

Champ de formulaire
ActiveX
UserForm

[Tomuy35]

Bonjour je ne sais pas.
Je suis aller dans boite à outil de controle, et liste déroulante.

sinon voici le code pour une des combobox

Code :

1
2
3
4
5
6
Private Sub ComboBoxTest1_GotFocus()
    ComboBoxTest1.Clear
    ComboBoxTest1.AddItem "OK"
    ComboBoxTest1.AddItem "KO"
    ComboBoxTest1.AddItem "N/A"
End Sub

[Heureux-oli]

Envoyé par Tomuy35

Bonjour je ne sais pas.

Salut,

Sont-ils dans un document ?

[Tomuy35]

oui je les ai créé dans un fichier word.

[Heureux-oli]

Salut,

Je pense que ce sont des Control OLE Form 2.

Je ne trouve pas comment faire une boucle sur ces contrôles.

Soit on fait un test nominatif de tous les combos soit on incrémente une variable lors de chaque sélection, éventuellement une table, mais plus lourd à mettre en oeuvre.