Module avec ComboBox

Version imprimable

13/05/2009, 11h08
Prov'Log

Module avec ComboBox

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
13/05/2009, 14h48
casefayere

Bonjour Prov'Log, re le forum

il faudrait un peu plus de précisions

Citation:

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

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

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

Code:

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...:)

14/05/2009, 08h47
casefayere

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 :D

bonne journée

Pour un début, on ira doucement ensuite

essaies ce fichier joint

si l'idée te plait, on continue :D sinon, ben on change :cry:
15/05/2009, 08h26
Prov'Log

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 ! ;)
15/05/2009, 09h58
casefayere

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
18/05/2009, 08h25
Prov'Log

1 pièce(s) jointe(s)

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

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 :D
18/05/2009, 13h46
casefayere

Bonjour Prov, le forum,

Il me faut encore des précisions :

Citation:

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
19/05/2009, 08h20
Prov'Log

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

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)
19/05/2009, 13h18
casefayere

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
20/05/2009, 09h13
Prov'Log

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
20/05/2009, 14h20
casefayere

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
22/05/2009, 08h08
Prov'Log

Option numéro 2 darling ! :D 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 8O
22/05/2009, 12h46
casefayere

Bonjour Prov, le forum,
nouvelle version jointe

Bonne journée
26/05/2009, 08h27
Prov'Log

Merci beaucoup Casefayere pour ton aide :ccool: Je vais retourner à present à mon travail et tenter de faire la peau à ce "logiciel" :mouarf:

Je reviendrais vers toi le forum si besoin !