Modifier listbox .rowsource en additem ou autre...

billouu

XLDnaute Junior
Bonjour,

Voilà j'ai quelques problèmes avec ma listbox du notamment au nom des pages... puisque le .rowsource ne gère pas les espaces et je voudrais donc modifier la macro avec autre chose (additem par exemple..mais j'ai du mal a faire la traduction).
Voila mon code:

Dim L As Integer
G = Cells(2, 251).Value 'nom de la feuil1 (qui peut avoir des espaces)
F = Cells(3, 251).Value 'nom de la feuil2 (qui peut avoir des espaces)

L = Sheets(F).Range("A65536").End(xlUp).Row
With Me
With .ListBox2
.RowSource = F & "!A2:A" & L
.MatchEntry = fmMatchEntryFirstLetter
End With
End With

Pourtant ce code m'allait bien puisque assez simple.
Mais merci pour votre aide sur ce sujet.

BILLOUU
 

jpb388

XLDnaute Accro
Re : Modifier listbox .rowsource en additem ou autre...

Bonjour
ci joint un exemple d'une listbox alimentée par un rowsource de la manière le plus simple avec des espaces dans l' item et entre les items
a+
jp
 

Pièces jointes

  • Classeur1.xls
    29 KB · Affichages: 144
  • Classeur1.xls
    29 KB · Affichages: 132
  • Classeur1.xls
    29 KB · Affichages: 142

Discussions similaires

Réponses
4
Affichages
231

Statistiques des forums

Discussions
312 452
Messages
2 088 542
Membres
103 880
dernier inscrit
rafaelredsc