Discussion :

[mauriceguillier]

Bonjour à tous,

Lorsque je souhaite créer une listbox à partir d'item appartenant à une colonne et lorsque ces items sont des variables en nombre inconnu, j'utilise, pour la colonne "A", le code suivant :

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Initialize()
    Dim DerCell As String
'détermination de la longueur de la listbox1
    DerCell = Range("A1").End(xlDown).Address
    ListBox1.RowSource = "A1:" & DerCell
    ListBox1.Height = ListBox1.Font.Size * (ListBox1.ListCount) * 1.25

Je pensais que, en remplaçant xlDown par xlToRight, je pourrais obtenir une listbox contenant les item inscrit en ligne1... Mais je n'obtiens, en affichage de la listbox, que le premier item, celui figurant en "A1".

D'où ma demande d'aide sachant que, en desespoir de cause, je peux toujours imaginer de recopier, un peu plus loin, ma ligne en colonne, puis de créer la listbox comme ci-dessus et, enfin, après disparition de la nécessité, d'effacer la colonne. Cependant, je trouve cela inélégant tout autant qu'une preuve de mon ignorance du langage vba.

Merci de vos conseils.
Cordialement,
Maurice GUILLIER

[Didier Gonard]

Bonjour,

Vois la cause ici : variables tableau en VBA et Application à l'optimisation du code sous Excel chapitre VIII


et de idées ici listbox

cordialement,

Didier

[mauriceguillier]

Bonjour Didier,

Merci donc !

Et comme quoi ce n’était pas aussi simple que je le pensais. Je vais donc adapter ton cours à ma ligne dont je ne connais ni la longueur, ni les valeurs des cellules pour que ma ListBox s'affiche.

En fait, sur ma ligne sont inscrits les noms de mes clients, au fur et à mesure de l'arrivée de leurs commandes. Et parfois, il arrive que l'un d'entre eux modifie sa commande initiale. Il me faut donc récupérer son nom de manière à ne pas, à la suite d'une erreur de saisie, le considérer comme un nouveau client mais bien comme un client existant à modifier. D'où mon idée de récupérer la liste des clients déjà inscrits et de le sélectionner dans la ListBox appelée.

Merci encore.

Très cordialement,
Maurice

[grisan29]

bonjour Maurice guillier et didier

je te joint un fichier client que patricktoulon m'a modifié et qui ajoute, crée, modifie et envoie sur ma feuille le client sélectionné
tu l'adaptera a ton besoin

cordialement

Pascal

[mauriceguillier]

Bonjour Pascal,

Cela est complet, comme on dit.... et je t'en remercie. SUPER !

Pour moi, j'ai donc tout pour bien travailler.

Très cordialement,
Maurice