Module avec ComboBox

**Prov'Log** · 13/05/2009, 10h08

Amis développeurs,bonjour

Je suis insrit depuis peu sur ce site et je dois dire que j'y ai déja appris beaucoup,de nombreux topics m'ont permis de resoudre mes problèmes de programmation, donc beaucoup aidé l'entreprise pour laquelle je travaille (dont je ne citerais pas le nom

)

Toutefois,je n'ai pas (encore) trouvé de solution à mon problème

Dans un module VBA,j'aimerais pouvoir insérer des ComboBox.Je m'explique...

Le but ici est de limiter le choix de l'utilisateur de mon logiciel sur certaines cellules de saisie de mon module grace à des combobox.Par exemple,limiter le choix des arrondissements de 13001 à 13016

J'avoue que je ne sais pas si cela est possible,mais j'espere que vous m'apporteraient un début de solution,de réponse à mes interrogations et problèmes

Si vous avez besoin de precisions sur mon module ou mon logiciel pour résoudre ce problème,n'hésitez pas !

Merci d'avance,
Prov'Log

**casefayere** · 13/05/2009, 13h48

Bonjour Prov'Log, re le forum

il faudrait un peu plus de précisions

Dans un module VBA,j'aimerais pouvoir insérer des ComboBox

j'imagine que tu veux créer un userform avec des combobox initialisés avec des conditions ?
si c'est oui, normalement pas de problème
si c'est non expliques toi mieux

un petit fichier joint synthétique serait le bien venu

Bonne journée

**Prov'Log** · 14/05/2009, 07h21

Oui c'est tout à fait ce qu'il me faut !

Je vous poste ci-après le code de mon module :

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
Sub Macro1()
 
    Sheets("Feuil1").Select
    Columns("A:K").Select
    Columns("A:K").EntireColumn.AutoFit
    Range("A1:K1").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    With Selection.Font
        .Name = "Arial"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
    End With
    ActiveWindow.SmallScroll Down:=0
    Range("A104").Select
    ActiveWindow.SmallScroll Down:=-46
    Range("D61").Select
    ActiveWindow.SmallScroll Down:=-11
    ActiveWindow.LargeScroll Down:=-2
    Range("A1:K12017").Select
    ActiveWorkbook.Names.Add Name:="Base", RefersToR1C1:= _
        "=Adresses!R1C1:R101C7"
    Selection.Sort Key1:=Range("E2"), Order1:=xlAscending, Key2:=Range("F2") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom
    ActiveSheet.ShowDataForm
End Sub

Les colonnes du fichier Excel,qui sont donc prises dans le module,sont les suivantes : porteur,nom client,prénom client,numéro adresse,type adresse,désignation adresse,code postal,commune

Je dois avouer que par souci d'anonymat de mon entreprise,je ne tiens pas à joindre le document que je travaille à ce post...Toutefois,si c'est vraiment indispensable...

**casefayere** · 14/05/2009, 07h47

Bonjour Prov, re le forum,

avant tout, mets des balises sur ton code, j'ai quelque fois des oublis aussi avec ça, (tu selectioones tout ton code et tape sur #

Je vais regarder en fonction de ce que je traduis et peut-être te donner un chemin à suivre mais il faut être patient
bien sur, si d'autres participants interviennent avant moi, ça n'en sera que mieux

bonne journée

Pour un début, on ira doucement ensuite

essaies ce fichier joint

si l'idée te plait, on continue

sinon, ben on change

**Prov'Log** · 15/05/2009, 07h26

Messieurs,

je tiens tout d'abord à m'excuser pour mon oubli des balises.Il est vrai que c'est quelquechose d'absolument obligatoire par souci de compréhension de l'ensemble des posts de ce forum.Encore une fois,toutes mes excuses

Casefayere,l'idée est effectivement franchement tentante...Je signe !

**casefayere** · 15/05/2009, 08h58

Bonjour Prov, re le forum,

et bien maintenant, c'est à toi de me guider pour savoir ce que doit contenir ton userform, car si tu ne peux pas envoyer de fichier, je ne pourrais pas deviner,
tu peux toujours faire une copie de ton fichier avec des données bidon

Bonne journée

**Prov'Log** · 18/05/2009, 07h25

Bonjour le forum,Casefayere,et désolé pour la réponse tardive : départ en week-end oblige !

Et bien j'aimerais que l'utilisateur de mon logiciel dispose de combobox lui permettant de choisir un porteur,une commune et un code postal,lesquels sont évidemment tirés d'une base de données Excel.Mon idée première c'était d'avoir sur une première feuille Excel la liste des arrondissements,communes et celle des porteurs (nommés par ailleurs "Porteurs","Communes" et "CP") et sur la deuxième le fameux module.

Qu'en penses-tu ?

Jte joint ici une suite du fichier Test que tu m'a envoyé avec des données bidons

**casefayere** · 18/05/2009, 12h46

Bonjour Prov, le forum,

Il me faut encore des précisions :

lesquels sont évidemment tirés d'une base de données Excel

1 - les données bidon que tu as intégrées représentent t'elles ta base de donnée

2 - l'utilisateur choisit dans la liste des combobox ou listbox (si aucune donnée ne peut etre ajoutée, autant prendre des listbox), pour en faire quoi, de la consultation simplement ou reporter le résultat quelque part ou....

Ton problème me parait simple à résoudre mais comme je ne veux pas te proposer n'importe quoi, il me faut ces indications

Bonne journée

**Prov'Log** · 19/05/2009, 07h20

Oui,ces données bidons representent effectivement la "base de données"

Une fois sélectionné,j'aimerais que la donnée soit par la suite reportée dans la colonne adéquat,sur la feuille Excel qui retranscrit à l'utilisateur les informations relatives à l'adresse livrée (la feuille 1)

**casefayere** · 19/05/2009, 12h18

Bonjour le forum, Prov'log,

Essaies ce fichier dont j'ai mis de coté ce qui ne t'interesse pas pour l'instant

On continuera après, dis-moi si le principe te plait

Bonne journée

**Prov'Log** · 20/05/2009, 08h13

Bonjour tout le monde,Casefayere,

effectivement,c'est un peu quelquechose dans cet ordre d'idée qu'il me faut.L'idée est de ne pas laisser le choix à l'utilisateur sur ces deux colonnes,lorsqu'il saisie un nouveau client
Pour ce qui est de la transcription de l'info sélectionnée sur la feuille Excel,il me semble connaitre la formule (enfin,la ligne VBA) adéquat

**casefayere** · 20/05/2009, 13h20

Bonjour Prov'log, re le forum,
Je croix que j'ai mal compris, et je pense corriger en ce sens :

1- l'utilisateur choisit un nom parmi la liste et l'ajoute à feuil1
2- il choisit une commune et l'ajoute sur la meme ligne
3- il choisit un code postal et idem

ou seulement après avoir choisi les 3 en ayant vérifié sa saisie, il ajoute les trois sur une nouvelle ligne

dis-moi quoi

**Prov'Log** · 22/05/2009, 07h08

Option numéro 2 darling !

Désolé si je m'exprime un peu mal...

Donc oui c'est l'option numéro 2 dont j'aimerais disposer.Après que l'utilisateur ai choisit ces 3 paramètres,la saisie sera effectuée dans la feuille Excel adéquat sur une nouvelle ligne

C'est par ailleurs cette "nouvelle ligne" qui me pose problème...Je veut dire,ca fait déja quelques temps que je tente de trouver la formule qui permet de retranscrire une ou des informations par VBA sur une nouvelle ligne Excel,à la suite des informations déja saisies...sans succes