Aide listbox
Résolu
kadiski
Messages postés
50
Date d'inscription
Statut
Membre
Dernière intervention
-
kadiski Messages postés 50 Date d'inscription Statut Membre Dernière intervention -
kadiski Messages postés 50 Date d'inscription Statut Membre Dernière intervention -
Bonjour j'ai créer un fichier de gestion d'intervention dans l'entreprise où je travaille avec un champs de recherche qui me permet de voir quelles intervention ont eu lieu et leur type ainsi que le numéro de bureau auquel j'ai associé un bouton impression .
Ma question est de savoir comment faire pour avoir un message d'alerte lorsque je fais une recherche dans le champs de recherche et qu'il n'y ai pas d'intervention afin que ca soit plus clair et pas qu'on se demande si c'est un bug ou non et également lorsque je clique sur le bouton impression sans qu'il ai rien dans la list box que ca me fasse pas planter le fichier .
en vous remerciant .
voici mon code :
Ma question est de savoir comment faire pour avoir un message d'alerte lorsque je fais une recherche dans le champs de recherche et qu'il n'y ai pas d'intervention afin que ca soit plus clair et pas qu'on se demande si c'est un bug ou non et également lorsque je clique sur le bouton impression sans qu'il ai rien dans la list box que ca me fasse pas planter le fichier .
en vous remerciant .
voici mon code :
Option Compare Text
Private Sub CommandButton1_Click()
With Worksheets("mise en page")
derlig = .Range("D" & Rows.Count).End(xlUp).Row
If derlig < 5 Then derlig = 5
.Range("A13:C20" & derlig).ClearContents
.Range("A13").Resize(ListBox1.ListCount) = ListBox1.List
.Activate
End With
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Range("A5:F40").Interior.ColorIndex = 2
ListBox1.Clear
ListBox1.IntegralHeight = False
ListBox1.ColumnCount = 1
If TextBox1 <> "" Then
For ligne = 5 To 50
If Cells(ligne, 2) Like TextBox1 & "*" Then
Cells(ligne, 1).Resize(, 4).Interior.ColorIndex = 8
ListBox1.AddItem Cells(ligne, 2) & " - " & Cells(ligne, 3) & " - " & Cells(ligne, 4)
' la list box prends en compte les lignes 5 à 50 du tableau et les colonnes ABC et D'
End If
Next
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
1 réponse
-
Bonjour,
Si j'ai bien compris votre demande:
Private Sub CommandButton1_Click() If ListBox1.ListCount > 0 Then With Worksheets("mise en page") derlig = .Range("D" & Rows.Count).End(xlUp).Row If derlig < 5 Then derlig = 5 .Range("A13:C20" & derlig).ClearContents .Range("A13").Resize(ListBox1.ListCount) = ListBox1.List .Activate End With Else MsgBox " Pas d'info dans la listbox!!!!!!!" End If End Sub Private Sub TextBox1_Change() Application.ScreenUpdating = False Range("A5:F40").Interior.ColorIndex = 2 ListBox1.Clear ListBox1.IntegralHeight = False ListBox1.ColumnCount = 1 If TextBox1 <> "" Then For ligne = 5 To 50 If Cells(ligne, 2) Like TextBox1 & "*" Then Cells(ligne, 1).Resize(, 4).Interior.ColorIndex = 8 ListBox1.AddItem Cells(ligne, 2) & " - " & Cells(ligne, 3) & " - " & Cells(ligne, 4) ' la list box prends en compte les lignes 5 à 50 du tableau et les colonnes ABC et D' End If Next End If If ListBox1.ListCount < 1 Then Msgnbox " Pas d'info trouvee !!!!!!!" End Sub
