Discussion :

[gemxtrust]

Bonjour à tous,

Voilà j'ai créé un document word avec entre autre un tableau ou la personne devait remplir 3 infos :

N° article / Nom de l'article / Quantité

a la base c'était écrit manuellement.

J'aimerai savoir si il est possible de rajouter une colonne avec un menu déroulant ou on peut choisir le Type d'article
et que le choix influe alors sur les choix dans un menu déroulant du nom de l'article et une fois choisi que ça mette le n° article correspondant au choix, en excel je sais que c'est possible je le fais mais en word mes connaissances ne sont pas top.

En gros je donne un exemple qui a rien avoir pour que vous compreniez peux être mieux :

Colonne TYPE j'ai :
Cuisine
Salon
Salle de bain

Si je choisis Cuisine et que je vais dans le menu Nom de l'article, je n'ai plus qu'une liste de choix en rapport avec les articles Cuisine et si dedans je choisi par exemple casserole, il me met n° article 12257.

C'est possible ? Si oui, pouvez vous m'aiguiller svp ?

Je vous remercie d'avance.

[Invité]

Bonjour,

Ce que vous demandez est tout à fait possible, mais n'auriez-vous pas intérêt à travailler directement avec Excel ?
Pour votre information, je fais mes devis et factures avec Excel. Les onglets sont formatés comme des courriers Word. Cela à l'avantage d'être très souple et ne nécessite pas de macros pour une utilisation basique.

[gemxtrust]

C'est vrai que ce serait nettement plus simple mais j'ai une contrainte qui me fait hésiter. En fait le visuel doit rester identique.

Mon Doc Word est sous la forme de 2 pages A3 en Paysage (Donc une page A3 Paysage et en dessous la 2eme et j'imprime en recto verso si besoin mais c'est rare).

Il y a plusieurs tableaux dans ces 2 pages avec des titres et des choix à cocher un peu partout.

Ma contrainte comme elle est visuel, il faudrait que le "fond" soit blanc comme une page et qu'il n'y ai que les titres et tableaux qui ressortent, ne plus voir les cellules d'excel une fois tout mis en place.
Je ne sais pas si j'arrive à me faire comprendre ?

Et aussi en word j'ai bloqué le document pour qu'il ne soit pas modifié en apparence, exemple que qqun écrirait de trop dans une case qui aggrandirai la case etc, c'est bloqué il ne peut pas aller plus loin ni modifier le doc point de vue visuel.

J'ai pris un screen j'ai du effacer qques parties mais bon :


Voilà donc est ce possible d'avoir visuellement la même chose en excel ? Le fond blanc de la page en gros sans les cellules excel. Si oui je veux bien savoir comment ^^

Merci

[Heureux-oli]

Salut,

La solution n'est pas simple, il faudra pour chaque ligne du tableau créer une nouvelle liste déroulante et repérer chaque ligne pour pouvoir la remplir.

Le plus simple reste l'exploitation en Excel comme le suggère Eric ou en Access.

Word reste avant tout un outil de traitement de texte et pas un outil de gestion de données.

[gemxtrust]

En fait dans la liste de choix 1er (Type) il y en a 5 ou 6,
Si on choisi 1 faire appel à tel liste dans le menu déroulant 2
Si on choisi 2 faire appel à tel liste dans le menu déroulant 2 etc
Et en fonction de ce qu'on choisi dans le menu déroulant 2 il doit afficher un n° article dans la case n° article.

Le plus dur c'est de faire en sorte que suite à mon choix Menu Déroulant 1, que le Menu Déroulant 2 utilise tel ou tel liste d'article, c'est possible ça ? Une piste ?

Et sinon reste toujours le visuel.

[Invité]

D'accord avec HeureuX-Oli que je salue.

Pour info, il ne me viendrait pas à l'idée d'envoyer un devis à un client en laissant le quadrillage.... Ce serait le meilleur moyen de mettre la clé sous la porte dans mon activité.

Donc en désélectionnant le quadrillage dans le menu Affichage, vous aurez le même aspect qu'un document Word. Pour empêcher les débordements dans les cellules, il vous faut désélectionner le retour automatique à la ligne dans les cellules (Menu Accueil). Si le texte déborde de la cellule, mettre un caractère blanc dans la cellule suivante. Il y aura juste le format A3 à régler.

Si vous êtes arrivé à mettre au point votre document Word, je vous dis bravo. C'est moins difficile avec Excel.

Si vous souhaitez continuer avec Word, une solution consiste à utiliser des macros. Etes-vous familiarisé avec VBA-Word ou VBA-Excel ?

[gemxtrust]

Merci pour votre réponse.

J'ai su faire ce que je voulais pour le moment en Word mais je me retrouve coincé avec ces menus déroulants.
Je peux éventuellement le refaire en excel, ça n'a pas vraiment d'importance car je ne m'y connait pas du tout en VBA... Que se soit en Word ou Excel.
C'est faisable alors les menus déroulant que j'aimerai faire en Excel avec ce choix dans le 2eme menu ? Et le remplissage de la case avec un n° en fonction de ce que j'ai choisi dans le 2eme menu ?

Si oui je ne suis pas contre un petit indice ou chercher

J'ai déjà fait des menus avec un changement de couleur dans une cellule en fonction de ce que je choisis mais de la à changer la liste du 2eme menu en fonction du choix du 1er non.

[Invité]

Ci-joint un exemple de Jacques BOISGONTIER montrant une solution avec et sans VBA.

Pièce jointe 299580

[gemxtrust]

Merci je vais regarder à cela

[Invité]

Le fichier Word joint contient une ébauche en VBA de ce que vous souhaitez faire. Bien entendu, il faut automatiser le chargement des listes déroulantes directement avec des tableaux présents dans le document. Si vous ne connaissez pas le VBA Word (au cas où vous connaîtriez des rudiments de VBA Excel), il va falloir vous accrocher.



Pièce jointe 299602

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
 
Option Explicit
 
 
Private Sub ComboBoxNiveau1_Change()
 
        Select Case ComboBoxNiveau1
               Case "Cuisine"
                    With ComboBoxNiveau2
                         .Clear
                         .AddItem "Casserolle"
                         .AddItem "Poêle"
                         .ListIndex = -1
                    End With
               Case "Salon"
                    With ComboBoxNiveau2
                         .Clear
                         .AddItem "Canapé"
                         .AddItem "Fauteuil"
                         .ListIndex = -1
                    End With
 
               Case "Salle de bain"
                    With ComboBoxNiveau2
                         .Clear
                         .AddItem "Sèche serviette"
                         .AddItem "Mirroir"
                         .ListIndex = -1
                    End With
        End Select
 
End Sub
 
 
 
 
Private Sub ComboBoxNiveau2_Change()
 
        Select Case ComboBoxNiveau2
               Case "Casserolle"
                    MsgBox "12257"
               Case "Poêle"
                    MsgBox "12258"
 
               Case "Canapé"
                    MsgBox "20000"
               Case "Fauteuil"
                    MsgBox "20001"
 
               Case "Sèche serviette"
                    MsgBox "30000"
               Case "Mirroir"
                    MsgBox "30001"
 
        End Select
 
End Sub
 
Private Sub Document_Open()
 
Dim ControleEnCours As InlineShape
 
 
    For Each ControleEnCours In ActiveDocument.InlineShapes
        If ControleEnCours.Type = wdInlineShapeOLEControlObject Then
             Select Case ControleEnCours.OLEFormat.ClassType
                    Case "Forms.ComboBox.1" '"Forms.ListBox.1", "Forms.Label.1", "Forms.TextBox.1"
                         With ControleEnCours.OLEFormat.Object
                              If .Name = "ComboBoxNiveau1" Then
                                    .AddItem "Cuisine"
                                    .AddItem "Salon"
                                    .AddItem "Salle de bain"
                             End If
                        End With
            End Select
     End If
    Next
End Sub

Pièce jointe 299597

[Heureux-oli]

Salut,

Pour Word, un exemple là: http://heureuxoli.developpez.com/off...ormulaires/#L4

Mais je conseille Excel.

[gemxtrust]

Merci beaucoup

[Tauru]

Le fichier Word joint contient une ébauche en VBA de ce que vous souhaitez faire. Bien entendu, il faut automatiser le chargement des listes déroulantes directement avec des tableaux présents dans le document. Si vous ne connaissez pas le VBA Word (au cas où vous connaîtriez des rudiments de VBA Excel), il va falloir vous accrocher.



Pièce jointe 299602

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
 
Option Explicit
 
 
Private Sub ComboBoxNiveau1_Change()
 
        Select Case ComboBoxNiveau1
               Case "Cuisine"
                    With ComboBoxNiveau2
                         .Clear
                         .AddItem "Casserolle"
                         .AddItem "Poêle"
                         .ListIndex = -1
                    End With
               Case "Salon"
                    With ComboBoxNiveau2
                         .Clear
                         .AddItem "Canapé"
                         .AddItem "Fauteuil"
                         .ListIndex = -1
                    End With
 
               Case "Salle de bain"
                    With ComboBoxNiveau2
                         .Clear
                         .AddItem "Sèche serviette"
                         .AddItem "Mirroir"
                         .ListIndex = -1
                    End With
        End Select
 
End Sub
 
 
 
 
Private Sub ComboBoxNiveau2_Change()
 
        Select Case ComboBoxNiveau2
               Case "Casserolle"
                    MsgBox "12257"
               Case "Poêle"
                    MsgBox "12258"
 
               Case "Canapé"
                    MsgBox "20000"
               Case "Fauteuil"
                    MsgBox "20001"
 
               Case "Sèche serviette"
                    MsgBox "30000"
               Case "Mirroir"
                    MsgBox "30001"
 
        End Select
 
End Sub
 
Private Sub Document_Open()
 
Dim ControleEnCours As InlineShape
 
 
    For Each ControleEnCours In ActiveDocument.InlineShapes
        If ControleEnCours.Type = wdInlineShapeOLEControlObject Then
             Select Case ControleEnCours.OLEFormat.ClassType
                    Case "Forms.ComboBox.1" '"Forms.ListBox.1", "Forms.Label.1", "Forms.TextBox.1"
                         With ControleEnCours.OLEFormat.Object
                              If .Name = "ComboBoxNiveau1" Then
                                    .AddItem "Cuisine"
                                    .AddItem "Salon"
                                    .AddItem "Salle de bain"
                             End If
                        End With
            End Select
     End If
    Next
End Sub

Pièce jointe 299597

[Invité]

S'il y a plusieurs séries de combo liées, il vous faut reproduire autant de séries que nécessaire.

[Tauru]

S'il y a plusieurs séries de combo liées, il vous faut reproduire autant de séries que nécessaire.

bonsoir . donc je recopie Xfois votre code pour différente listbox?

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Option Explicit
 
 
' word/menu-deroulant-choix-predefini/
 
Private Sub MaTiere_Change() ' nom de la box
 
        Select Case MaTiere ' choix de la box
 
               Case "Français" ' entrer liste pour ce mot
                    With CHOix ' avec le nom de la 2eme box
                         .Clear
                         .AddItem "Ortohographe"
                         .AddItem "Grammaire"
                         .AddItem "Conjugaison"
                         .ListIndex = -1
                    End With
               Case "Mathématique" ' entrer liste pour ce mot
                    With CHOix ' avec le nom de la 2eme box
                         .Clear
                         .AddItem "Numération"
                         .AddItem "Géométrie"
                         .AddItem "Calcul"
                         .ListIndex = -1
                    End With
 
               Case "Education Physique et Sportive" ' entrer liste pour ce mot
                    With CHOix ' avec le nom de la 2eme box
                         .Clear
                         .AddItem "Réaliser une Performance"
                         .AddItem "EXprimer"
                         .AddItem "Adapter ses déplacements à des environements variés"
                         .ListIndex = -1
                    End With
        End Select
 
End Sub
 
Private Sub Document_Open()
 
Dim ControleEnCours As InlineShape
 
 
    For Each ControleEnCours In ActiveDocument.InlineShapes
        If ControleEnCours.Type = wdInlineShapeOLEControlObject Then
             Select Case ControleEnCours.OLEFormat.ClassType
                    Case "Forms.ComboBox.1" '"Forms.ListBox.1", "Forms.Label.1", "Forms.TextBox.1"
                         With ControleEnCours.OLEFormat.Object
                              If .Name = "MaTiere" Then
                                    .AddItem "Français"
                                    .AddItem "Mathématique"
                                    .AddItem "Education Physique et Sportive"
                             End If
                        End With
            End Select
     End If
    Next
End Sub

J ai bien essayer mais y à un debug quand j essaie de changer le code si dessus .
Avec cette listderoulante à choix multiple qui marche au top , je voudrai ajouter une liste de plus comment changer ce code pour qu il prenne en compte ma nouvelle cbl1V A choix multiple?
Cordialement

[clementmarcotte]

Donc, tu veux que la prochaine fois que tu vas arriver à l'hôpital avec une jambe cassée, de soit le psychiatre qui t'opère.

[mbarrette33]

Un énorme merci pour ce partage, c'est très bien détaillé et expliqué. Je ne suis pas de votre calibre mais je réussi a utiliser vos discussions selon mes besoins.

À partir de la procédure de Eric KERGRESSE, est-il possible de faire afficher un menu déroulant sur 2 colonnes (dans laquelle la colonne1 sera la sélection désirée et colonne2 une précision) et de faire afficher et d'utiliser les infos de la colonne1 seulement ?

EX de sélection pour le combobox:

Choix 1 - fruits 1-2-3 >---- combobox retourne ------> Choix 1
Choix 2 - fruits 3-4-5 >---- combobox retourne ------> Choix 2
Choix 3 - fruits 6-7-8 >---- combobox retourne ------> Choix 3

Merci.

[Invité]

Bonjour,

C'est possible. En reprenant l'exemple dans le fichier présent dans cette discussion :

Pour cela, il faut modifier le nombre de colonnes dans les propriétés de la combobox.

Pièce jointe 500151

Et charger les infos comme ci-dessous :

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
22
23
24
25
26
27
28
29
30
31
 
Private Sub Document_Open()
 
Dim ControleEnCours As InlineShape
Dim IndexListe As Integer
 
    IndexListe = 0
    For Each ControleEnCours In ThisDocument.InlineShapes
        If ControleEnCours.Type = wdInlineShapeOLEControlObject Then
             Select Case ControleEnCours.OLEFormat.ClassType
                    Case "Forms.ComboBox.1" '"Forms.ListBox.1", "Forms.Label.1", "Forms.TextBox.1"
                         With ControleEnCours.OLEFormat.Object
                              If .Name = "ComboBoxNiveau1" Then
                                    .AddItem
                                    .List(IndexListe, 0) = "Cuisine"
                                    .List(IndexListe, 1) = "Info1"
                                     IndexListe = IndexListe + 1
                                    .AddItem
                                    .List(IndexListe, 0) = "Salon"
                                    .List(IndexListe, 1) = "Info2"
                                     IndexListe = IndexListe + 1
                                    .AddItem
                                    .List(IndexListe, 0) = "Salle de bain"
                                    .List(IndexListe, 1) = "Info3"
                                     IndexListe = IndexListe + 1
                             End If
                        End With
            End Select
     End If
    Next
End Sub

[mbarrette33]

c'est un charme de consulté vos discussions.

Ça fait des lunes que je cherche un moyen de réaliser un document comportant ces merveilles de programmation.

Parce que cela dépasse mes attentes, j'ai baissé les bras et fait quelque chose d'autre parce que je n'avait pas trouvé d'explications claires et détaillés pour le réaliser.

Un énorme Merci.


Résolu de mon coté !