modifier une listbox

[angefou]

Bonjour à tous,

j’essaie de créer un petit fichier de planification mais je rencontre quelques petit problèmes.
j'ai une combobox2 qui permet de modifier le rowsource de ma listbox1 code ci dessous :

Private Sub ComboBox2_Click()

If ComboBox2.Value = "Maintenance des équipements d'assistance" Then
ListBox1.RowSource = "equipement"
End If
If ComboBox2.Value = "Maintenance des organes de roulement" Then
ListBox1.RowSource = "roulement"
End If
If ComboBox2.Value = "Maintenance des bogies, levage caisse" Then
ListBox1.RowSource = "bogies"
End If
If ComboBox2.Value = "Maintenance caisse et portes" Then
ListBox1.RowSource = "caisse"
End If
If ComboBox2.Value = "Maintenance des organes de captage du courant de traction" Then
ListBox1.RowSource = "captage"
End If
If ComboBox2.Value = "Maintenance Frein" Then
ListBox1.RowSource = "frein"
End If
If ComboBox2.Value = "Intervention complètes" Then
ListBox1.RowSource = "intervention"
End If

If ComboBox2.Value = "Autres activités liés à la maintenance des véhicules" Then
ListBox1.RowSource = "autres"
End If

If ComboBox2.Value = "Maintenance des équipements d'assistance" Then
TextBox4.Value = 1

End If

End Sub

Private Sub ListBox1_Change()
TextBox2.Text = ListBox1.Text

End Sub

et je souhaite afficher une autre rowsource dans cette même listbox avec ma combobox3. sauf que cette fois -ci c'est un tableau de nom et prenom qui doivent s'afficher. Et lorsque je sélectionne un nom et prenom, la valeur de ma textbox5= au nom selectionner et ma textbox3 = le prenom selectionner.

Je vous remercie par avance pour votre aide.

 

[Lone-wolf]

Bonjour angefou et bienvenue sur XLD 🙂. Bonjour le Forum 🙂

Sans le fichier, pas facile de t'aider.

 

[thebenoit59]

Bonjour angefou, bonjour Lone, le forum !

Je rejoins Lone pour la demande d'un fichier, ta demande est simple en soit, avec un dictionnaire tu auras une solution simple et rapide.

 

[Lone-wolf]

Bonjour thebenois 🙂

Sinon un exemple à adapter à ton cas

Dans un module standard

Option Explicit
Public Rech_Comb(1 To 7) As String, Rech_List(1 To 7) As String, Sh As Worksheet

Public Sub Init_Valeurs()
    Set Sh = Sheets("Factures")

    'Critères de recherche  Combo   :    'Résultats dans la Listbox

    Rech_Comb(1) = "ID": Rech_List(1) = "Factures!$A$2:$A$65536"
    Rech_Comb(2) = "Vendeur": Rech_List(2) = "Factures!$B$2:$B$65536"
    Rech_Comb(3) = "Client": Rech_List(3) = "Factures!$C$2:$C$65536"
    Rech_Comb(4) = "Date commande": Rech_List(4) = "Factures!$D$2:$D$65536"
    Rech_Comb(5) = "Date livraison": Rech_List(5) = "Factures!$E$2:$E$65536"
    Rech_Comb(6) = "Date paiement": Rech_List(6) = "Factures!$F$2:$F$65536"
    Rech_Comb(7) = "Facture N°": Rech_List(7) = "Factures!$G$2:$G$65536"
End Sub

Dans l'Userform

Option Explicit
Dim n As Byte, k As Byte, x As Byte, derlig As Long, i As Long,  ColDate

Private Sub UserForm_Initialize()
    Call Init_Valeurs

    n = Sheets("Factures").Range("A:G").Columns.Count
    ListBox1.ColumnCount = Sheets("Factures").Range("A:G").Columns.Count
    ListBox1.ColumnWidths = "50;90;80;70;70;70;60"

    For k = 1 To n
        With Sheets("Factures")
            Me("Label" & k) = .Cells(1, k).Text
        End With
        Me("Label" & k).Top = Me("Label" & k).Top + 5
    Next

    With Sheets("Factures")
       derlig = .Range("a" & Rows.Count).End(xlUp).Row

        For i = 1 To 7
            ComboBox1.AddItem Rech_Comb(i)
        Next i

        For x = 2 To derlig
            ListBox1.AddItem .Range("a" & x)
            For j = 2 To 7
                ListBox1.List(ListBox1.ListCount - 1, j - 1) = .Cells(x, j)
                ColDate = ListBox1.List(ListBox1.ListCount - 1, j - 1)
                If IsDate(ColDate) Then _
                   ListBox1.List(ListBox1.ListCount - 1, j - 1) = Format(ColDate, "dd.mm.yyyy")
            Next j
        Next x
    End With
End Sub

Private Sub UserForm_Activate()
    ComboBox1 = ""
End Sub

Private Sub ComboBox1_Change()
    If ComboBox1 <> "" Then
        Call Recherche
    Else

    End If
End Sub


Private Sub Recherche()
    If ComboBox1 = Rech_Comb(1) Then ListBox1.RowSource = Rech_List(1): Exit Sub
    If ComboBox1 = Rech_Comb(2) Then ListBox1.RowSource = Rech_List(2): Exit Sub
    If ComboBox1 = Rech_Comb(3) Then ListBox1.RowSource = Rech_List(3): Exit Sub
    If ComboBox1 = Rech_Comb(4) Then ListBox1.RowSource = Rech_List(4): Exit Sub
    If ComboBox1 = Rech_Comb(5) Then ListBox1.RowSource = Rech_List(5): Exit Sub
    If ComboBox1 = Rech_Comb(6) Then ListBox1.RowSource = Rech_List(6): Exit Sub
    If ComboBox1 = Rech_Comb(7) Then ListBox1.RowSource = Rech_List(7): Exit Sub
End Sub

 

[kaid]

Bonsoir svp; je voudrai ajouter dans le code Range("d2:d" la formule gauche = 4.
par ex dans la colonne D2 j'ai "BADR 958 alors j'aimerai appliquer le code juste sur BADR

Private Sub CommandButton1_Click()
Dim i As Long, derlig As Long

With Sheets("bd")
derlig = .Range("e" & Rows.Count).End(xlUp).Row

For i = 3 To 9
Range("d" & i) = Application.SumIf(.Range("d2:d" & derlig), Range("c" & i), .Range("o2😱" & derlig))
Range("e" & i) = Application.CountIfs(.Range("n2:n" & derlig), Range("f" & i), .Range("d2:d" & derlig), Range("c" & i))


Next i
End With
End Sub


Merci

 

[Lone-wolf]

Bonsoir kaid

Si il y a des éspaces entre les lettres et les chiffres

With Sheets("bd")
derlig = .Cells( Rows.Count, "D").End(xlUp).Row
For i = 2 To derlig
.Cells(i, "D") = Split(.Cells(i, "D"), " ")
Next i
End With

le résultat sera: BADR

 

[kaid]

bonsoir et merci pour votre réponse
*j'ai un autre problème : j'ai commencer a saisir mes données je suis arriver a 900 lignes. et quand je l'ouvre il bug et parfois la userform ne s'affiche pas très très lent !!!!
.

 

[Lone-wolf]

Bonjour kaid, le Forum 🙂

Au faite kaid, c'est quoi cette manie de poster dans les messages des autres?? Ca t'emm... autant de créer une nouvelle discussion et de joindre un fichier avec? 😡 Et ça vaut aussi pour angefou. On est pas là pour vous mettre la tarte au pomme dans la bouche ou et encore une 10ème fois, on est pas des DEVINS.

 

[kaid]

bonjour désole j'ai surfe avec mon téléphone je n'ai pas su envoyer mon message je vous le jure que ce n’était pas mon intention.