Discussion :

[JayGr]

Bonjour,

J'ai beau chercher je ne trouve pas un seul exemple de code qui me convient...

J'ai un fichier word avec n combobox.
Il y a des combobox qui s'appelle critereN (avec N un nombre aléatoire).
Et il y a des combobox qui s'appelle infosN (avec N un nombre aléatoire).

Je souhaiterais créer une fonction qui me permet d'initialiser toutes les valeurs des combobox. Ma fonction ressemblerait à ça en pseudo-code :

Code :

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

1
2
3
4
5
6
7
 
Foreach combobox
         If ma combobox is de type critere
              fonction remplirComboCritere(comboboxCourante)
         If ma combobox is de type infos
              fonction remplirComboInfos(comboboxCourante)
Fin de foreach

Ce qu'il me manque :
- Comment récupérer les combobox dans une liste que je pourrait parcourir en foreach ?
- Comment distinguer une combobox de type infos d'une combobox de type critere dans mon if ?

Ces combobox ne sont différencier que par leurs noms.

Merci d'avance pour votre aide,

@+

JayGr

[JayGr]

J'ai fini par trouver une solution, mais mon problème est maintenant qu'au bout d'un certain nombre d'itération j'ai ce message :
" erreur d'execution 91 "

Dans le bloc suivant à la ligne en gras :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim oCtl As InlineShape
    For Each oCtl In ThisDocument.InlineShapes
            If TypeName(oCtl.OLEFormat.Object) = "ComboBox" Then
                If InStr(CStr(oCtl.OLEFormat.Object.name), "critere") Then
                    MsgBox (oCtl.OLEFormat.Object.name)
                   Call Combobox_Initialize_critere(oCtl.OLEFormat.Object)
                End If
                If InStr(CStr(oCtl.OLEFormat.Object.name), "infos") Then
                    MsgBox (oCtl.OLEFormat.Object.name)
                    Call Combobox_Initialize_infos(oCtl.OLEFormat.Object)
                End If
            End If
    Next oCtl

Merci d'avance,

@+

[Heureux-oli]

Salut,

L'erreur 91 est liée à un objet non affecté.
Souvent, dans une boucle elle se produit lorsque certains objets sont supprimés et lorsque la boucle est censée les appeler, ils ne sont plus là.

[JayGr]

Salut,

L'erreur 91 est liée à un objet non affecté.
Souvent, dans une boucle elle se produit lorsque certains objets sont supprimés et lorsque la boucle est censée les appeler, ils ne sont plus là.

Hello,

Merci pour ta réponse, j'ai en effet vu que c'était ce genre d'erreur.
Ici, après vérification, j'ai compris que l'erreur apparaissait lorsque je rencontrais cette ligne :

Code :

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

If TypeName(oCtl.OLEFormat.Object) = "ComboBox" Then

J'ai donc d'abord essayé ça :

Code :

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

1
2
3
4
 
If oCtl Is Nothing Then
        Else:
                If TypeName(oCtl.OLEFormat.Object) = "ComboBox" Then

Et puis je me suis rendu compte que l'erreur ne se produisait que lorsque l'objet en cours (oCtl) arrivait à un contrôle de contenu d'image dans mon document.
J'ai donc essayé de rajouter des choses en cherchant à sauter les étapes qui suivent "si l'objet est un contrôle de contenu d'image".
Mais impossible de m'en sortir.

Je n'ai pas obligatoirement besoin du contrôle de contenu d'image (pour l'instant je vais m'en passer). Mais j'aimerais vraiment comprendre ce qui provoque l'erreur..

Que faire ?

Merci,

@+

[Heureux-oli]

Salut,

Peut-être faire un test sur le nom du contrôle et pas sur son type.
On peut faire une extraction d'une partie du nom pour le test logique.

[JayGr]

Salut,

Peut-être faire un test sur le nom du contrôle et pas sur son type.
On peut faire une extraction d'une partie du nom pour le test logique.

Merci, c'est sûrement la meilleure idée. :-)

Résolu plus haut pour la problématique de départ en tout cas.

JayGr