Création Formulaire - VBA ALIMENTATION ComboBox

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:

---

1 2 3 4 5

Option Explicit Sub Affiche_Formulaire 'Affiche le formulaire SaisieInfos SaisieInfos.Show End Sub

---

Code associé au formulaire SaisieInfos

Code:

---

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.

Bonjour Sdgdfgdjjg, bonjour le forum,

Essaie comme ça :

Code:

---

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

---

bonjour
Ceci devrait faire cela

Code:

---

1 2 3

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

---