Aide listbox

Résolu/Fermé

kadiski Messages postés 50 Date d'inscription vendredi 4 mars 2016 Statut Membre Dernière intervention 26 février 2022 - 24 mai 2016 à 11:55
kadiski Messages postés 50 Date d'inscription vendredi 4 mars 2016 Statut Membre Dernière intervention 26 février 2022 - 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
Remplir listbox multicolonne vba excel - Forum VB / VBA
Listbox recherche ✓ - Forum Programmation
ListBox avec CheckBox ✓ - Forum VB / VBA
Remplir listbox vba ✓ - Forum VB / VBA
Tkinter listbox scrollbar ✓ - Forum Python

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
24 mai 2016 à 13:43

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 vendredi 4 mars 2016 Statut Membre Dernière intervention 26 février 2022 1
24 mai 2016 à 14:02

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

[VBA] remplir une listBox

Recuperer valeur d'une listbox multiple sélection

Comprendre l'utilisation d'une listbox excel vba

ListBox a 2 colonnes

Discussions similaires

Newsletters