Modif code Affichage colonne B

[Aladin]

Bonsoir le forum
J' ai ce code qui renvoie les infos dans un userform, , une listbox et des txtbox, la pb c' est que la colonne a se retrouve dans la list box mais aussi dans le premier txtbox
Comment puis je faire pour ne pas voir apparaitre la colonne A dans le premier textbox mais que les txtbox affiche à partir de le colonne B

Private Sub UserForm_Initialize()
flag = True
col = "a"
nomfeuille1 = "moules"

With ListBox1 ' ComboBox1
    .Clear
    .ColumnCount = 2
    .ColumnWidths = "50;0"
    '.Style = fmStyleDropDownList '
    .BoundColumn = 2 ' combobox1.text contient le nom
    For Each cellule In Sheets(nomfeuille1).Range("a1:a" & Sheets(nomfeuille1).Range(col & "65536").End(xlUp).Row)
            .AddItem cellule.Value
            .List(.ListCount - 1, .ColumnCount - 1) = cellule.Row
        
    Next cellule
End With

'lig = CLng(ListBox1.List(ListBox1.ListIndex, (ListBox1.ColumnCount - 1)))
'Label1.Caption = ListBox1.ListIndex

Call ecrirelabel(1, nomfeuille1)
'Call protection(False) 'protection
CommandButton3.Visible = False
CommandButton4.Visible = False
CommandButton2.Visible = False
flag = False
End Sub

Merci d' avance pour vos réponses
Aladin

 

[Excel-lent]

Re : Modif code Affichage colonne B

Bonjour Aladin,

J' ai ce code qui renvoie les infos dans un userform, , une listbox et des txtbox

? Ah bon? Sauf erreur, le code ci-dessus ne renvoie des informations que dans ta ListBox1! A aucun moment le code ne touche à tes txtbox!

Tu n'aurais pas oublié une partie de ton code?

La macro alimentant ta TextBox ne serait pas par hasard dans la procédure : Private Sub ListBox1() ? Ou Private Sub TextBox()?

A te lire

Cordialement.

 

[kjin]

Re : Modif code Affichage colonne B

Bonsoir,

Bonsoir le forum
J' ai ce code qui renvoie les infos dans un userform, , une listbox et des txtbox, la pb c' est que la colonne a se retrouve dans la list box mais aussi dans le premier txtbox
Comment puis je faire pour ne pas voir apparaitre la colonne A dans le premier textbox mais que les txtbox affiche à partir de le colonne B

C'est ce qu'on appelle du vrac...c'est plus long à comprendre, faut juste trier avec le décodeur sur "ON"

col = "a"

Bah déjà ça interpelle mais on est pas plus avancé pour autant !
A+
kjin

 

[Excel-lent]

Re : Modif code Affichage colonne B

Salut Kjin,

Je suis rassuré de voir que je ne suis pas le seul à trouver cette question très succinte!

Aladin,

Ne pouvant voir ton fichier, et n'ayant qu'un morceau de ton code, difficile de t'aider plus concrétement!

De façon abstraite, la solution serait :

Private Sub UserForm_Initialize()
'[COLOR="Magenta"][B]col = "a"[/B][/COLOR]
nomfeuille1 = "moules"

...
With TextBox1
    .Clear
    .ColumnCount = 1
    .ColumnWidths = "50"

    For Each cellule In Sheets(nomfeuille1).Range("A1:A" & Sheets(nomfeuille1).Range(A & "65536").End(xlUp).Row)
            .AddItem cellule.Value
    Next cellule
End With

'...
End Sub

Etant donnée comment tu utilise cette variable, comme indiqué par Kijn, elle n'apporte rien à ton code. Surtout qu'en plus tu ne l'utilise pas de partout où elle le pourrait! (sauf erreur, car comme on ne voit qu'une partie de ton travail, on se trompe peut-être?)

Mais voilà...

Insérer cette macro dans ton code ne serait pas génial, car elle ne tient pas compte du reste!

Mais sinon, normalement elle fonctionne! Mais difficile d'être catégorique puisqu'on ne peut la tester sur ton fichier!

Entre nous, je trouve bizarre que tu utilise une TextBox pour mettre une liste d'information! Habituellement les TextBox c'est pour "une information" et les ComboBox lorsqu'il y a "plusieurs informations" -> équivalent en Excel aux listes de validation!

A te lire

Bonne fin de soirée

 

[kjin]

Re : Modif code Affichage colonne B

Re, hello Excel-lent

For Each cellule In Sheets(nomfeuille1).Range("A1:A" & Sheets(nomfeuille1).Range([COLOR="Red"]A & "65536"[/COLOR]).End(xlUp).Row)

Mais sinon, normalement elle fonctionne! Mais difficile d'être catégorique .....

Ah bah ça alors ! 😛
Et puis si on remplacais les "A" par des "B" 😀
Et il y a des colonnes dans les Textbox maintenant ?!
A+
kjin

 

[Excel-lent]

Re : Modif code Affichage colonne B

Hello Kjin,

il y a des colonnes dans les Textbox maintenant ?!

A ma connaissance non!

Mais qui ne tente rien n'a rien 😀

(j'aurais bien testé sur son fichier avant, pour être sûr de ne pas dire une connerie, mais bon...)

A+

Excel-lent