Contenu Listbox devenu invisible

Bonjour tout le monde

Je viens vers vous car j'ai un petit problème concernant mes listbox

je m'explique :

J'ai trouvé un code vba pour ajouter une liste dans ma listbox avec 2 colonne d'un tableau, tout fonctionnait bien

puis maintenant que j'ai modifié plusieurs userform avec ce même code... plus rien dedans

quand je parle de plus rien il y a toujours la liste qu'on peut sélectionner et fonctionne mais c'est blanc

Je n'ai pas fait de manip spécial a par copier coller le code :/

Je vous mets le code en question qui fonctionnait au début :

Dim i As Long, LgB As Long
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "85;70"

    With Sheets("Tableau Général")
    LgB = .Range("C" & Rows.Count).End(xlUp).Row                            
        For i = 6 To LgB                                                    
            ListBox1.AddItem Cells(i, 3)                    
            ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(i, 4)          
        Next                                                                
    End With                                                               

End Sub

Si quelqu'un a une idée je suis preneur

Merci d'avance

Bonsoir,

Mets déjà des points devant .Cells... pour les qualifier...

Cordialement.

Bonsoir à toi,

alors là je ne comprends pas pourquoi il n'y en a plus

juste deux petits points...

un GRAND merci c'est ce qu'il m’embêtait depuis tout a l heure et je ne comprenais pas

Je remets le code avec la modification au cas ou quelqu'un en aurai de besoin

Dim i As Long, LgB As Long
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "85;70"

    With Sheets("Tableau Général")
    LgB = .Range("C" & Rows.Count).End(xlUp).Row                            
        For i = 6 To LgB                                                   
            ListBox1.AddItem .Cells(i, 3)        
            ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(i, 4)          
        Next                                                                
    End With                                                                

End Sub