Pb ajout de valeur dans une listbox sous forme de tableau

bonsoir

jai un projet de suivi de contrat en userform SUIVICONTRAT dans mon onglet info contrat je peux rechercher des info de ma BD et les inscrire dans ma listbox1 avec 2 colonnes . le prog a fonctionner quelque temps puis plus rien je trouve pas la solution un oeuil d'expert pourrais t'il m'aide r .

Principe de fonctionnement

pour un nom de site rechercher dans la combobox CMBSITE

afficher les valeur de la colonne C de la feuil DATA de la BD dans la colonne 1 de la listbox1

afficher les valeurs de la ligne résultats SITE dans la colonne 2 listbox1

mon code

'formulaire de recherche + affichage recherche listbox1 liee combobox CMBSITE

Private Sub CommandButton3_Click()

Application.ScreenUpdating = False

ListBox1.Clear

Dim line As Integer

Dim i As Integer

Sheets("SUIVI").Select

Sheets("DATA").Select

If CMBSITE <> "" Then

For line = 2 To Cells(Rows.Count, 1).End(xlUp).Row

If Cells(line, 4) Like "*" & CMBSITE & "*" Then

For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row

Me.ListBox1.AddItem Sheets("DATA").Range("C" & i).Value

Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Cells(line, i).Value

Next

End If

Next

End If

End Sub

Bonsoir

Supprimes la ligne dans la macro CommandButton3_Click

Private Sub CommandButton3_Click()

Application.ScreenUpdating = False
ListBox1.Clear
Dim line As Integer
Dim i As Integer

Sheets("SUIVI").Select
'Sheets("DATA").Select

If CMBSITE <> "" Then
For line = 2 To Cells(Rows.Count, 1).End(xlUp).Row

If Cells(line, 4) Like "*" & CMBSITE & "*" Then
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row

Me.ListBox1.AddItem Sheets("DATA").Range("C" & i).Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Cells(line, i).Value
' .
' .
' .

désole cesligne n’était pas dans mon prog de base sa marche pas non plus sans

Bonsoir

En supprimant la ligne voici le résultat que j'obtiens

ma listbox reste vide

Bonsoir

Que veux tu que je dise de plus

J'ai pris ton fichier

J'ai supprimé la ligne

J'ai lancé l'ouverture de l'userform

J'ai choisi dans la ComboBox une donnée

J'ai appuyé sur Recherche

Et le résultat tu l'as sous les yeux

un grand merci encore a toi Banzaii sa fonctionne