VBA Excel, Userform listbox

Résolu
Vbarbare Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   -  
Vbarbare Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Membre Dernière intervention   1
 
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   Statut Membre Dernière intervention   1 204
 
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   Statut Membre Dernière intervention   1
 
Ok, Super, Merci beaucoup !!
0
Réponse 2 / 2
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
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