Changer les valeurs de textbox à chaque incrément d'une boucle while

Merci beaucoup pour ta réponse mais ça ne marche tjs pas...

Je ne comprend pas vraiment pourquoi à vrai dire

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Option Explicit Dim k As String   Private Sub combobox1_click() k = ComboBox1.Value Dim q As Variant   q = ThisWorkbook.Worksheets(k).Range("a1", _ ActiveSheet.Range("a1").End(xlDown).End(xlToRight)).Select Me.ListBox1.Visible = True Me.ListBox1.List = q 'MsgBox (k) End Sub   Private Sub ComboBox1_DropButtonClick() ComboBox1.Clear Dim i As Long   For i = 4 To Sheets.Count ComboBox1.AddItem Sheets(i).Name Next i   End Sub

---

Merci beaucoup pour ton aide :)

worksheets(k) et activesheet

Code:

---

1 2 3

With ThisWorkbook.Worksheets(k) q = .Range("a1", .Range("a1").End(xlDown).End(xlToRight)) 'manière dangereuse End With

---

Ah trop cool!!! merci beaucoup!!!

Mais ça ne m'affiche que la colonne A et pas de A à F.
j'ai donc essayé :

Code:

---

1 2 3

With ThisWorkbook.Worksheets(k) q = .Range("A1:F" & .Range("a1").End(xlDown)) 'manière dangereuse End With

---

Mais j'ai un message d'erreur mémoire insuffisante.

Désolé je suis vraiment nul!!! ;)

Code:

---

1 2 3

With ThisWorkbook.Worksheets(k) q = .Range("A1:F", .Cells(.Rows.Count, 1).End(xlUp).Row).Value End With

---

C'était ma remarque ('manière dangereuse)

Bonjour Mercatog,

Merci beaucoup pour ton aide.
Je viens d'essayer avec ta dernière réponse mais j'obtiens un message d'erreur d'exécution 1004 : Erreur définie par l'application ou l'objet...

Je ne vois pas ce qui gêne à part peut être la position de certaine parenthèses?

Merci beaucoup!!!

Désolé, il fallait (je mérite un -1 parce que n'a pas testé)

Code:

---

1 2 3

With ThisWorkbook.Worksheets(k) q = .Range("A1:F" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value End With

---

Non pas du tout tu ne mérites pas -1, étant donnés les sacrés coup de main que tu me donnes et le temps que tu y consacres :D

Par contre avec ce dernier code je n'ai que la première colonne d'afficher et pas les suivantes jusqu'à F...
Dsl ça commence à devenir du harcèlement à ce niveau ;)

Ce code permet

1. Chercher la ligne de la dernière cellule remplie de la colonne A (disons n) de la feuille dont le nom est contenu dans la variable string k du classeur contenant la macro
2. Remplir la variable tableau q par les valeurs de la plage A1:Fn


par exemple
q(4, 6) est la valeur de F4

OK merci pour les explications.

Par contre ça fait plusieurs jours que j'essaie différentes lignes de codes pour afficher dans une seule liste box les cellules non vides des colonnes A à F.
Mais là je bloque vraiment. Je suis sur la bonne voie avec ta solution mais nous n'y sommes pas encore tout à fait. :)

Merci beaucoup en tout cas :D

Quand tu écris

Citation:

---

afficher dans une seule liste box les cellules non vides des colonnes A à F

---

Ce n'est pas claire

Ta listebox contient 6 colonnes de A à F?

ou bien une seule colonne où tu va afficher les cellules non vides à la suite?

As tu un exemple concret?

En fait je voudrais bien avoir dans ma listbox (ou autre s'il y a une meilleure solution) approximativement le même tableau que dans l'onglet que j'ai choisi.
C'est à dire les 6 colonnes (de A à F) et pour les lignes : les mêmes lignes qui apparaissent dans mon tableau.

Je sais que ça peut paraitre totalement inutile mais j'essaie de faire un affichage dans une listbox pour réconforter le futur utilisateur et pour éviter les risques de modifications des données suite à des erreurs de manipulations...

Et dans l'idéal le top du top serait de pouvoir filtrer (tri de A à Z, ou tri croissant-décroissant) dans chacune de ces colonnes. (Mais ça se serait vraiment le top moumoutte!!) :D:D

Je sais pas si c'est faisable, je pense que oui mais je bloque sur ce point. :aie:

Merci beaucoup

Il suffit de regarder les autres sujets. Sujet identique et l'intéressé a déjà eu son bonheur et reparti vers autre chose

Bonsoir Mercatog,

Merci beaucoup pour ton aide. J'ai essayé de résoudre mon problème avec ton lien.
Je n'ai toujours que la colonne A qui s'affiche et pas A jusqu'à F...
Voici mon dernier script.

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub combobox1_click() k = ComboBox1.Value Dim plage As Variant With ThisWorkbook.Worksheets(k) Set plage = .Range("A2:F" & .Cells(.Rows.Count, 1).End(xlUp).Row) End With Me.ListBox1.Visible = True ListBox1.List = plage.Value End Sub

---

Je pense qu'il me manque quelque chose pour que ça marche, mais je ne vois pas quoi...
Merci beaucoup!!! :)

La propriété columncount de ta listbox doit être 6 (pour accepter les 6 colonnes): par défaut c'est 1
CQFD

Effectivement ça marche beaucoup mieux!!!! ;););)

Désolé pour mes questions stupides!! :lol: En tout cas je te dois vraiment une fière chandelle!!!

Merci beaucoup Mercatog