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
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