Bonjour tt le monde voila j'ai une listbox qui contient un chiffre et un mot par ligne  et en validant j'aimerai parcourir toute ma liste afin de récupérer la valeur de chaque ligne est-ce que quelqu'un pourrait m'aider s'ilvous plait

Pas vraiment compris ton pb
mais essaie
for row=0 to maliste.listcount -1
   mavaleur=maliste(row).text
next

 
 
Il me met incompatibilité  de type

 
Effectivement..pas tres clair ... donc...
 
Si ta listbox à 2 colonnes
  For i = 0 To ListBox1.ListCount - 1
        msg = msg & ListBox1.List(i, 0) & " -- " & ListBox1.List(i, 1) & vbCrLf
  Next
  MsgBox msg
 
Si ta listbox n'a qu'une colonne
  For i = 0 To ListBox2.ListCount - 1
        msg = msg & ListBox2.List(i) & vbCrLf
  Next
  MsgBox msg
 

il me dit toujours incompatibilité de type

Évidemment on doit deviner sur quelle ligne il te dit ça...

 
 
 
oups c vrai  sorry   il me dit sa sur cette ligne :  
 

 
Comment tu mets les données dans ta listbox (List_pc) ?
 
Si tu es dans un boucle, est-ce qu'il te dit ca pour la première itération ou pour la dernière ?

 
dans ma boucle il me met l'erreur à la 1er execution  
 
 
et sinon pour remplir ma liste je fai comme ca :  

 
en faite à chaque fois que je selectionne un élément dans mon combo, celui ci ce met ds ma liste.

Sinon j'ai essayer de faire autrement en mettan juste met numero dans un label mai après comment  je peu  récupérer   tous les numéro?   ma variable ressemblerait à sa : "1,3,7,49,40,38,4"  j'ai essayer de récupérer les numéro ac la fonction mid mai je n'y arrive pas

 
Je comprends plus grand chose a ce que tu veux faire !!!!
Si c'est ajouter dans une listbox des données issues d'une combobox a chaque clic dans la combobox il y a ça :
    Avec un userform, 1 comboxbox et 1 listbox
    Private Sub ComboBox1_Click()
        ListBox1.AddItem ComboBox1
    End Sub
 
    Private Sub UserForm_Initialize()
        For i = 1 To 10
            ComboBox1.AddItem "n° " & i & "   => Libellé"
        Next
    End Sub
 
Sinon pour récupérer les numéros de ta string "1,3,7,49,40,38,4"
tu peux faire
 
dim TabRes as variant
tabres = Split("1,3,7,49,40,38,4", "," )
    For i = 0 To UBound(tabres)
        msg = msg & tabres(i) & vbcrlf
    Next
MsgBox msg
 
Bonne chance !

 dernier petite question  comment  je fai pour mettre  ma variable "numpc"  à la place de "1,3,7,49,40,38,4"
 
??? j'ai essayer plusieurs truc mai sa marcher po il me mété le mot  numpc dans mon tableau

a non c'est bon j'avais juste oublier de mettre .caption   kel boulet  je fais  en tout cas sa marceh nikel !  merci  tt le monde pour votre savoir faire et surtt  pour le partager

 
Là, je crois qu'il y a un malaise ....
Balance tout ton code si c'est pas trop gros parce que je n'a

 
SUITE erreur de frappe
 
Je te disais d'envoyer ton code en copier/coller parce que je n'arrive pas à te suivre.