Discussion :

[Springbank35]

Bonjour à tous,

Dans la poursuite de la construction de mon rapport, mes 3 Userform contiennent des listes déroulantes plus ou moins longues.
Y'a t'il un moyen que ces listes déroulantes soient alimentées par une colonne bien définie dans un fichier Excel.

Je n'ai trouvé que des codes pour des formulaires excel mais pas pour Word. J'ai aussi surement mal cherché car je ne suis certainement pas le seul à avoir demandé cela.

J'ai vu qu'il fallait cocher Microsoft Excel 11.0 Object Library dans les références, ce que j'ai fait.

Mais ensuite, comment lui dire d'aller chercher les données dans telle colonne.

Merci de votre aide,

Sincèrement,

[Heureux-oli]

Salut,

Un peu de lecture ?
Un mix des deux.
http://heureuxoli.developpez.com/off...cument-tiroir/
http://heureuxoli.developpez.com/off...d/formulaires/

[Springbank35]

Bonsoir,

Merci pour ta réponse, j'ai pas encore eu le temps de m'y mettre car je me prenais la tête sur la protection du document automatique et la déprotection au lancement des userforms. Mais ça marche.

Pour ce que j'ai compris des 2 doc, je dois déclarer mon fichier et ma feuille comme des variables mais j'ai pas tout compris comment faire référence à une colonne pour ma liste déroulante.

Sincèrement,

[Heureux-oli]

Salut,

Dans l'exemple, j'utilises deux colonnes qui sont la 0 et la 1, pour les suivantes, il suffit de changer l'indice.

[Springbank35]

Salut,

En fait, pour l'instant je n'ai qu'une colonne, la A. je dois donc modifier ces lignes je pense:

Code :

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

1
2
3
ReDim tblListe(intL, 1)
	tblListe(0, 0) = "Index"
	tblListe(0, 1) = "Services"

J'ai un erreur 1004 pour l'instant, mais je ne peux poster le code, je ne suis plus au boulot.

En tout cas, merci de me soutenir dans ce projet.

Bonne soirée

[Heureux-oli]

Salut,

Mets nous le morceau de code un peu plus complet pour que l'on puisse voir ce qui peut coincer et comment résoudre ce problème.

[Springbank35]

Bonjour,

Tout d'abord, excusez moi pour ce délai mais j'avais un peu laissé tomber ce doc. Mais j'ai trouvé quelque chose qui fonctionne, surement pas le top du top mais ça fonctionne:

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
 
Option Explicit
 
Option Base 0
'Déclaration des variables
Dim xlApp As New Excel.Application 'Application Excel pour ouvrir un fichier XLS
Dim xlWb As Workbook 'Classeur Excel
Dim serv As Worksheet 'Feuille du classeur
Dim J As Integer
 
'4 - Les Services
    Set xlWb = xlApp.Workbooks.Open("P:\Perso\Rapport de Garde - Donnees.xls")
    Set serv = xlApp.Sheets("services")
    J = 1
    Do
    services.AddItem (serv.Range("A" & J).Value)
    J = J + 1
    Loop Until serv.Range("A" & J).Value = ""

Merci encore pour le soutien.

Si remarques à donner, n'hésitez pas surtout.