Discussion :

[juguy]

Bonjour,

Je suis actuellement en stage et je suis amené à utiliser VBA et excel

Mon problème étant, qu'à un moment, je dois générer une liste déroulante qui prenne en compte l'étabissement, l'adresse 1, l'adresse 2, le code postal et le ville de l'entreprise.

J'ai donc créer une feuille excel ou j'ai renseigné ces 5 colonnes, mais il me faut maintenant que ces 5 valeurs apparaissent sous une comboBox.

Quelqu'un à une idée? (j'ai été fouillé un peu partout je n'ai rien trouvé..)

[Marc-L]

Bonjour,

il y a pourtant entre autres le tutoriel Utiliser les contrôles dans un UserForm !

Sinon rappel : ici c'est le forum des formules de calculs, pas celui dédié au VBA …


_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[juguy]

Excusez moi je n'ai pas vu que j'ai posté au mauvais endroit je suis tout nouveau !

Je réussis à entrer une comboBox avec 5 colonnes d'après ce code :

Private Sub UserForm_Initialize()
Dim i As Byte, j As Byte


ComboBox1.ColumnCount = 5
ComboBox1.ColumnWidths = "80;80;60;50;60"
For i = 1 To 20

ComboBox1.AddItem "Ligne" & i
For j = 1 To 5
ComboBox1.List(ComboBox1.ListCount - 1, j) = i & j
Next j
Next i
End Sub


Cependant j'aimerai que ma comboBox prennes les 5 valeurs de ma feuilles "Adresses", j'ai utilisé rowsource en spécifiant à l'intérieur "Adresses!a2:e10000" et j'ai un message d'erreur me disant "accès refusé"

[Philippe Tulliez]

Bonjour,

Cependant j'aimerai que ma comboBox prennes les 5 valeurs de ma feuilles "Adresses", j'ai utilisé rowsource en spécifiant à l'intérieur "Adresses!a2:e10000" et j'ai un message d'erreur me disant "accès refusé"

Attention que si tu places manuellement la valeur dans la fenêtre de propriété du contrôle ComboBox il ne faut pas les guillemets.
Cependant tu peux le faire dans le code VBA

Code :

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

Me.ComboBox1.RowSource = "Export!A2:E10"

ou mieux encore

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Dim rng As Range, rngData As Range
Private Sub UserForm_Initialize()
 Set rng = ThisWorkbook.Worksheets("Export").Range("A1").CurrentRegion
 With rng: Set rngData = .Offset(1).Resize(.Rows.Count - 1): End With
 With Me.ComboBox1
 .RowSource = rngData.Address(external:=True)
 .ColumnCount = rngData.Columns.Count
 .ColumnWidths = "50;50;60;40;60"
 .ColumnHeads = True
 End With
End Sub

[juguy]

Ton deuxième code est super, ça marche !

Merci beaucoup, tu viens de me débloquer d'un jour de recherche

Je met le sujet en résolu