Discussion :

[deuiz]

Bonjour à tous,
après beaucoup de lecture et de prise de tête il faut le dire, je me tourne vers vous.
J'ai deux problèmes sur 2 projets différents.

Premier problème:

J'ai un document excel "facture type" vide lequel se remplit avec un formulaire dans un Userform jusque là ça va?
Oui mais voila les données articles sont dans un autre fichier excel, et je n'arrive pas à faire à les intégrer dans une liste déroulante dans mon Userform.
Pouvez-vous m'aider?

Deusième problème:

J'ai un document excel dans lequel j'ai ajouter un bouton pour lancer une macro, ça marche mais la macro se lance 2 fois, pourquoi?
voici le code dans le ThisWorkbook:

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Supprimer_menu
End Sub
 
Private Sub Workbook_Open()
Call Creer_menu
End Sub

le code dans la macro

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
 
'Le code pour ajouter le menu.
 
Sub Creer_menu()
 
   With CommandBars(1).Controls.Add(msoControlPopup)
 
      .Caption = "Nom menu"
 
      With .Controls.Add(msoControlButton)
 
         .Caption = "application du facteur chance"
 
         .BeginGroup = False
 
         .OnAction = "facteur_chance()"
 
      End With
 
      With .Controls.Add(msoControlButton)
 
         .Caption = "tirage au sort"
 
         .BeginGroup = False
 
         .OnAction = "tirage_au_sort()"
 
      End With
 
   End With
 
End Sub
 
'Le code pour supprimer le menu.
 
Sub Supprimer_menu()
 
   CommandBars(1).Controls("Nom menu").Delete
 
End Sub

Grand Merci de m'avoir lu!
Et encore + merci si vous avez la solution!

[ouskel'n'or]

Bonjour deuiz, bienvenue sur le forum.
Tu nous dis pas tout !
As-tu une autre macro que Private Sub Workbook_Open() qui est lancée à l'ouverture de ton fichier ?

[deuiz]

nan il n'y a que cette macro qui se lance a l'ouverture du fichier
(merci pour cette réponse plus que rapide)

[ouskel'n'or]

Désolé mais je ne vois pas. Je ne peux que te renvoyer ici, regarde le premier code où tu as une indication sur la création d'une "Barre d'outils provisoire provisoire".
Si tu n'y arrives toujours pas, joins ton fichier (zippé) on regardera.
A+

[deuiz]

je vais regarder le lien que tu viens de me donner.
(je peux pas vous donner mon fichier car confidentiel c'est un tirage au sort pour ma boite.Il marche mais il s'exécute 2 fois c'est pas grave...Mais mon deuxième problème est plus important)


Sinon pour mon deuxième problème:

es-que c'est possible de rempli une combobox avec les données contenues dans une colonne d'un fichier excel(pas le fichier qui contient le VBA, un autre)?

Encore merci pour les réponses et la bonne humeur

[ouskel'n'or]

Pour le fichier, tu n'es pas obligé de joindre tes données puisqu'il ne s'agit que de l'insertion d'une barre d'outils à l'ouverture et sa supression à la fermeture du fichier. Un classeur vide de données avec tes trois macros citées suffiraient.
Pour ta question sur les combobox, tu as deux solutions : Si tes données sont cohérentes (pas de cellules ou lignes vides dans ta colonne) tu peux utiliser RowSource.

Code :

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

1
2
3
ComboBox1.RowSource = "a1:a15" 'combo à une colonne
ou
ComboBox1.RowSource = "a1:C15" 'combo à 3 colonnes

L'intérêt de RowSource étant qu'un simple rafraichissement permet de mettre à jour la base de donnée ou le combo selon les modifs que tu apportes à l'une ou à l'autre.

Si un contrôle ComboBox est dépendant d'une source de données, il insère dans cette source de données la valeur que l'utilisateur entre ou sélectionne. Si une liste modifiable multicolonne est dépendante, la propriété BoundColumn détermine la valeur enregistrée dans la source de données dont dépend la liste modifiable.

Si tu as des cellules vides dans ta colonne ou que tu ne souhaites reprendre que certaines données, tu peux créer un tableau deux dimensions des données à qui t'intéressent et utiliser ComboBox1.List() = Tableau
Tu as des exemples dans l'aide en ligne que je ne pourrais que reproduire (F1)
Maintenant, si tu veux renseigner ta combobox avec des données diverses, tu as Additem qui ajoute donnée par donnée.
Bon courage
A+