.Range("b4:b30;g4:g26") pour combobox

[François]

Bonjour le forum,

J'ai un combobox dans la plage est divisé sur 2 colonnes.

With Sheets('# DE LOT')
Tableau1 = .Range('b4:b30;g4:g26')
ComboBox1.List = Tableau1
End With

J'ai l'erreur d'exécution 1004 : Erreur définie par l'application ou par l'objet.

De quelle façon je doit écrire la ligne de code pour que dans le combobox j'ai tous les élément de la plage B4:B30 et G4:G26.

Merci

 

[Hervé]

Bonjour francois

Tout d'abord, c'est une virgule qui doit séparer tes plages pas un point virgule.

sinon, essaye de passer par une boucle :

Dim c As Range
With Sheets('# DE LOT')
For Each c In .Range('b4:b30,g4:g26')
ComboBox1.AddItem c
Next c

salut

 

[François]

Bonjour Hervé, le forum,

Cela a fonctionné avec la boucle.

Merci Hervé