aide listbox Résolu/Fermé

Question

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 :
Option Compare TextPrivate 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 WithEnd SubPrivate Sub ListBox1_Click()End SubPrivate 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 IfEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)End Sub

f894009 · Answer

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

Aide listbox

1 réponse

Discussions similaires