Discussion :

[BtjpsspgrW]

Bonjour,

J'essaie tant bien que mal à concevoir un formulaire. Mon classeur contient 2 feuilles.
La 1ère feuille nommée Listes me servira pour afficher de source pour ComboBox.
La 2ème feuille nommée Données sert à alimenter les données via le formulaire SaisieInfos.

Ce code est contenu dans le module de classe ThisWorkbook :

Code :

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

1
2
3
4
5
Option Explicit
Sub Affiche_Formulaire
'Affiche le formulaire SaisieInfos
SaisieInfos.Show
End Sub

Code associé au formulaire SaisieInfos

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
Dim rng As Range
 
Set rng = ThisWorkbook.Worksheets("Listes").Range("B1").CurrentRegion
With rng
Distributeur.RowSource = .Offset(1).Resize(.Rows.Count  -1).Address(external:=True)
End With
End Sub

Lorsque que j'exécute la macro ThisWorkbook.Affiche_Formulaire, la ComboBox est alimentée si la colonne A:A est remplie. Seulement, c'est la colonne B:B que je souhaiterais voir dans la ComboBox.

D'où vient le problème ? Comment corriger à partir de mon exemple ?

Vous en remerciant par avance de l'aide apportée

Cordialement.

[Thautheme]

Bonjour Sdgdfgdjjg, bonjour le forum,

Essaie comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
Dim DL As Integer
Dim rng As Range
 
With Sheets("Listes")
    DL = .Cells(Application.Rows.Count, 2).End(xlUp).Row
    Set rng = .Range("B2:B" & DL)
End With
Distributeur.List = rng.Value
End Sub

[keygen08]

bonjour
Ceci devrait faire cela

Code :

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

1
2
3
Private Sub UserForm_initialize()
distributeur.RowSource = "'" & sheets("Listes").Name & "'!b2:b" & sheets("Listes").[b65000].End(xlUp).Row 
End Sub