Sujet Précédent Sujet Suivant

VBA Excel, Userform listbox

Résolu/Fermé
Vbarbare Messages postés 10 Date d'inscription jeudi 12 février 2009 Statut Membre Dernière intervention 29 novembre 2013 - 9 sept. 2010 à 13:32
Vbarbare Messages postés 10 Date d'inscription jeudi 12 février 2009 Statut Membre Dernière intervention 29 novembre 2013 - 10 sept. 2010 à 13:23
Bonjour,

dans un tableau j'ai plusieurs cellules qui contiennen plusieurs lignes (ALT+ENTREE)

ex :
- aaaaa
- bbbbb
- cccccc

je cherche le code permettant d'ajouté chacun des lignes de la cellule en supprimant le "- "

donc, comment compter le nbr de ligne d'une cellule?
quel est le code pour ajouté chacune des ligne compter ?

ex me.listbox1.additem (....)

j'espere que vous pourrez m'aidez, je cherche ça depuis trop longtemps....

Merci !
A voir également:

2 réponses

Réponse 1 / 2
Vbarbare Messages postés 10 Date d'inscription jeudi 12 février 2009 Statut Membre Dernière intervention 29 novembre 2013 1
9 sept. 2010 à 14:52
Classe, c'est Op!
j'ai du remplacer le chr(10) par chrw(10) pour le chariot et c'est parfait :)
je sais pas pourquoi le w...
Pouvez-vous m'expliquer à quoi correspond le Ubound(split(mtab()) ?

merci !
1
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
9 sept. 2010 à 15:23
Je ne sais pas pourquoi chrw !!! je suis surpris mais c'est peut être du à la version d'Excel.

Ce n'est pas Ubound(split(mtab()) mais UBound(mTab())

Split() est une fonction VB qui permet de décomposer une chaine de caractère selon un séparateur et le stock dans un tableau (ici mTab()). Str représente la chaine de caractère et chr(10) le séparateur.

UBound(mTab()) est l'indice le plus haut du tableau. LBound(mTab()) est l'indice le plus bas du tableau. Le premier index étant 0 dans la fonction Split().


;o)
0
Vbarbare Messages postés 10 Date d'inscription jeudi 12 février 2009 Statut Membre Dernière intervention 29 novembre 2013 1
10 sept. 2010 à 13:23
Ok, Super, Merci beaucoup !!
0
Réponse 2 / 2
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
Modifié par Polux31 le 9/09/2010 à 14:30
Bonjour,

Voilà un exemple à adapter: 

Sub List_Init() 
Dim sh As Worksheet 
Dim str As String 
Dim mTab() As String 
Dim i As Integer 

    Set sh = Worksheets(1) 
    str = sh.Range("A1").Value 
     
    mTab = Split(str, Chr(10)) 
    For i = 0 To UBound(mTab()) 
        Me.ListBox1.AddItem Mid(mTab(i), 2, Len(mTab(i)))
    Next i 
     
    Set sh = Nothing 
     
End Sub


;o)
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau
0