Problème création combobox avec deux colonnes non continues

Bonjour le forum,

Je viens de regarder dans un tutoriel sur le net comment créer ma combobox1 avec deux colonnes discontinues

J'ai comme source une feuille "Baux" avec 13 colonnes et un nombre indéfini de lignes; je souhaiterais faire apparaitre dans ma combo la colonne 1 (A) et la colonne 13 (M).

Voici le code que j'ai recopié et adapté:

Private Sub SetComboBoxBiens()

  Set f = Sheets("Baux")
  Set Rng = f.Range("A2:M" & f.[A65000].End(xlUp).Row)
  Me.ComboBox1.ColumnCount = 13
  Me.ComboBox1.ColumnWidths = "50;0;0;0;0;0;0;0;0;0;0;0;40"
  Me.ComboBox1.List = Rng.Value

End Sub

Cela me semble correct pourtant. Or, je n'ai que la colonne 1 qui s'affiche.

Auriez-vous une idée pour me dépanner?

Merci d'avance

Donpopo

Désolé,

je viens de comprendre mon erreur en compulsant attentivement le tutoriel que j'ai trouvé.

En fait, j'avais pas pensé que j'avais une colonne cachée. Cela faussait évidemment le nombre de colonne.

Sinon cette procédure, que je ne connaissais pas, fonctionne impec.

A+