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 - 24 mai 2016 à 14:02

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

A voir également:

Aide listbox
Utilisation de listbox - Forum Bureautique
Trié un listBox ✓ - Forum Programmation
Rafraichir une listbox c# - Forum C#
Bonjour. Comment manipuler les listBox ? - Forum Programmation
Listbox a choix multiples - Forum VB / VBA

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

kadiski Messages postés 50 Date d'inscription Statut Membre Dernière intervention 1

oui comme toujours c'est ca , je te remercie j'avais tenté tout seul mais j'avais mis le else au mauvais endroit .

en te remerciant et bonne continuation

Discussions similaires

additem listbox en multicolonnes

Creer et remplir un ListBox en VB6 pr un nul

ListBox a 2 colonnes

[VB 6] Changer l'index d'une ListBox

VBA [Excel] Récupérer la donnée d'une listbox dans une formule

Votre réponse

Discussions similaires