Discussion :

[Prov'Log]

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]

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]

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]

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]

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]

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