Fonctionnement Textbox ou Listbox

Bonjour à tous,
Voilà mon problème, je souhaite afficher sur un Userform par le biais d'une listbox ou textbox, j'ai du mal à cerner la différence, les cellules A2:G20 de ma feuille "EVENEMENTS"

Etant débutant sur le VBA, j'ai essayer pas mal de chose sans grand succès.
Avec une listbox j'ai essayé de faire le code suivant:

Code:

---

1 2 3 4

Private Sub UserForm_Initialize() ListBox1.ColumnHeads = True ListBox1.RowSource = "EVENEMENTS!A2:G20" End Sub

---

Le soucis est qu'ici sur ma listbox je vais avoir que la colonne A2 qui sera copiée, hors moi je veux prendre en compte plusieurs colonnes A à G en l’occurrence.

Je ne sais donc pas si je dois choisir une listbox ou textbox et de plus je ne sais pas vraiment le coder.

J'espère avoir été le plus claire possible.
Si vous pouviez m'éclairer se serait très sympa!

Merci

Bonjour,

Il te faut paramétrer ta ListBox en multicolonne.
Pour cela, il convient de régler le paramètre ColumnCount de ta listbox, sur 7 dans ton exemple, comme ceci :

Code:

---

1 2 3 4 5

Private Sub UserForm_Initialize() ListBox1.ColumnCount = 7 ListBox1.ColumnHeads = True ListBox1.RowSource = "EVENEMENTS!A2:G20" End Sub

---

Super ça marche!
Merci beaucoup.
Par contre je voulais savoir si il était possible dans cette listbox d'afficher par exemple les 10 dernières saisies. C'est à dire que sur le fichier que je réalise il y aura plusieurs données qui seront inscrites dans la journée et qui seront donc dans le fichier "EVENEMENTS" donc j'aimerais savoir si il y a un code pour faire en sorte que ma listbox n'affiche que les 10 dernières saisies par exemple.

PS: excuser moi de rebondir sur une autre problématique.

Si j'ai bien compris votre nouvelle demande :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub UserForm_Initialize() ListBox1.ColumnCount = 7 ListBox1.ColumnHeads = True   Dim DerniereLigneSaisie As Integer, PremiereLigne As Integer DerniereLigneSaisie = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row If DerniereLigneSaisie - 10 < 2 Then PremiereLigne = 2 Else PremiereLigne = DerniereLigneSaisie - 10 End If ListBox1.RowSource = "EVENEMENTS!A" & PremiereLigne & ":G" & DerniereLigneSaisie End Sub

---

Je vais essayer d’être clair. Votre solution fonctionne mais j'ai tout de même un soucis.

Pour expliquer j'ai plusieurs combobox où je peux choisir mes critères. Quand j'ai choisi ces critères j'ai un bouton OK qui fait en sorte que ma sélection soit inscrite dans la feuille "EVENEMENTS". Ma listbox va prendre les cellules concernées de la feuille "EVENEMENTS" pour les afficher.

Lorsque que j'appui sur ok de ma userform je ne vois pas en direct ma listbox qui s'incrémente. Je suis obligé de fermer ma useform et la rouvrir pour voir ce qui a changé. J'aimerais que se soit comme avant lorsque que j'appui sur OK je vois bien ma listbox qui s'incrémente en direct.

PS: le fait de garder un historique des 10 dernières saisies fonctionne :D!

Merci.

Dans le code du bouton OK, ajouter ceci :

Code:

---

1 2 3 4 5 6 7 8

Dim DerniereLigneSaisie As Integer, PremiereLigne As Integer DerniereLigneSaisie = Sheets("EVENEMENTS").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row If DerniereLigneSaisie - 10 < 2 Then PremiereLigne = 2 Else PremiereLigne = DerniereLigneSaisie - 10 End If ListBox1.RowSource = "EVENEMENTS!A" & PremiereLigne & ":G" & DerniereLigneSaisie

---

Ça marche parfait!

Je vous remercie beaucoup!

Continuer ce que vous faites ;)!

Cordialement.

MARIAIS Gwénaël