Discussion :

[filiph79]

Bonjour le Forum

Je suis en train de créer un questionnaire de connaissances, et je souhaite intégrer pour chaque question un liste déroulante (Combobox) permettant d'annoter le résultat de la question avec OK, NOK, Incomplet.

j'ai 15 Questions dans mon document avec 2 questions comportant 3 "Sous Questions", j'ai donc 18 Combobox dans mon Doc, toutes nommées :

CB_1
CB_2
CB_3A
CB_3B
CB_3C
CB_4
Etc.......

Je souhaiterai créer une boucle me permettant d'initialiser toutes mes combobox à l'ouverture du document avec OK, NOK, INCOMPLET , du genre
For each COMBOBOX in Mon Document
COMBOBOX.additem "OK"
COMBOBOX.additem "NOK"
COMBOBOX.additem "INCOMPLET"
Next COMBOBOX
et créer en suite une autre boucle pour calculer les résultats en stockant dans une variable les points obtenus (OK = 1 pts, NOK= 0 pts,IMCOMPLET = 0.5 PTS).

For each COMBOBOX in Mon Document
If COMBOBOX.value = "OK" then
TOTAL = TOTAL +1
ElseIf COMBOBOX.value="INCOMPLET" then
TOTAL = TOTAL + 0.5
Else
TOTAL = TOTAL
END IF
Next COMBOBOX

je n'arrive pas a créer mes boucles sur ces combobox et suis perdu dans les types de contrôle (Field, inlineshape, ContentControle....)
Comment je peux déclarer une variable pour créer ma boucle for Each ou pourquoi pas un compteur (en utilisant les numéros de noms de mes combobox.

SI quelqu'un peut m'aiguiller....

merci d'avance

[mromain]

Bonjour filiph79, le forum,

Tu trouveras un exemple ci-dessous pour la partie initialisation :

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
Sub test()
Dim l_o_inlineShp As InlineShape
Dim l_o_combobox As MSForms.ComboBox
    'boucler sur toutes les "InlineShapes" du document
    For Each l_o_inlineShp In ThisDocument.InlineShapes
        'filtrer sur les "InlineShapes" de type "OLEControlObject"
        If l_o_inlineShp.Type = wdInlineShapeOLEControlObject Then
            'filtrer sur les "Comboboxes"
            If TypeOf l_o_inlineShp.OLEFormat.Object Is MSForms.ComboBox Then
                Set l_o_combobox = l_o_inlineShp.OLEFormat.Object
                l_o_combobox.Clear
                l_o_combobox.AddItem "OK"
                l_o_combobox.AddItem "NOK"
                l_o_combobox.AddItem "INCOMPLET"
            End If
        End If
    Next l_o_inlineShp
    Set l_o_inlineShp = Nothing
    Set l_o_combobox = Nothing
End Sub

A+