Discussion :

[celthi]

Bonjour au Forum,

Voici mon problem, je suis sur un fichier de suivi de panne de production. L'idée est d'avoir un userform permettant de faire une recherché sur les pannes existante en remplissant une combobox avec les valeurs de la colonne S, la deuxième combobox doit se remplir avec les valeurs de la colonne B en function des valeurs de la premiere combobox et un affinage de la recherché avec une recherché de mots clef dans la Feuille BD. Le tout s'affichant dans un tableau dans l'userform.

Conformement au réglement, je ne mets pas de fichier dans ce message. Il vrai que j'aime comprendre ce que j'écris.
Merci pour l'aide que vous pourrez m'apporter parce que là, je ne vois comment faire, mais j'espère qu'avec votre aide je pourrai acquérir les competence nécessaires.

[Invité]

Bonjour,

Peut-être ici http://excel.developpez.com/sources/...m#ComboCascade, un début de réponse.

[celthi]

Bonsoir Cathodique, bonsoir le Forum,

Merci pour ce début de réponse, il m'est fort utile, maintenant, je ne comprend pas le code qui me permettrait de passer les donner à la combobox 2 en cascade. En faite, les données de la combobox 2 se situe 2 colonnes avant celles de la combobox 1 dans mon tableau. Je pourrais évidemment changer l'ordre des colonnes mais j'aimerais comprendre comment fonctionne ce code.
Ensuite, il me faudra àjouter les references à des mots clefs, tout envoyer sur la feuille résultat et afficher cette feuille dans mon userform.
J'espère que mon procéder est logique VBA parlant.
Merci encore d'éclairer ma lanterne.

[celthi]

Bonsoir au forum,

J'ai un peu avancé dans mon userform, j'ai réussi à programmer les deux combobox et la recherché par mot clefs, mais je ne sais pas comment exploiter les données pour les mettre dans mon userform. J'ai vraiment besoin d'une aide pour faire ce fichier. Du coup je vous joint mon fichier Suivi des pannes Traitement Ensachage.xlsm

Merci à vous tous les bénévoles

[eric4459]

Bonjour Celthi
Pourrais-tu être plus explicite quant à ton objectif final?
Que cherches tu à faire avec ton UserForm Recherche_de_Panne?
J'ai compris que l'UserForm Enregistrement_de_Panne te servait à alimenter ta Feuille Base de Donnée, et ton code fonctionne, quoiqu'il soit possible de mettre du texte dans la case Date, il faudrait verrouiller(voir code ci_dessous)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CommandButton1_Click()
 
Dim LI As Long 'Remplissage de la feuille avec l'userform
Dim TB1 As Variant
LI = Range("B65536").End(xlUp).Row + 1
        If Enregistrement_panne.TextBox2.Value <> "" And Len(Enregistrement_panne.TextBox2.Text) < 10 Or (Enregistrement_panne.TextBox2.Value <> "" And Not IsDate(Enregistrement_panne.TextBox2.Value)) Then
            TB1 = MsgBox("La date doit etre au format" & Chr(10) & " " & Chr(10) & "jj/mm/aaaa", vbOKOnly, "ATTENTION")
            If TB1 = vbOK Then
                Enregistrement_panne.Hide
                Enregistrement_panne.TextBox2 = ""
                Enregistrement_panne.TextBox2.SetFocus
                Enregistrement_panne.Show
            End If
         End If
        Cells(LI, 2).Value = TextBox8.Value
        Cells(LI, 3).Value = TextBox2.Value
        Cells(LI, 4).Value = ComboBox1.Value
        Cells(LI, 5).Value = TextBox3.Value
        Cells(LI, 6).Value = TextBox4.Value
        Cells(LI, 7).Value = TextBox5.Value
        Cells(LI, 8).Value = TextBox6.Value
        Cells(LI, 9).Value = TextBox7.Value
 
End Sub

Eric

[celthi]

Bonjour eric4459, Bonjour au Forum,

Tout d'abord pour ton apport au niveau du verrouillage de la date, je n'y avais pas pensé et je ne connaissais pas ce code. Je suis toujours un débutant en VBA, mais j'aime apprendre.
Concernant l'Userform recherche_de_panne je cherche en faite simplement à faire des filtres sur deux colonnes, en y apportant une précision avec un mot clef pour lister les résultats dans un tableau qui doit être inséré dans l'userform.
Je pense qu'il faut passer par la fonction listview, mais je n'en comprends pas l'application dans mon cas, même après avoir lu le tutoriel sur le sujet.
Comment récupérer les données filtrées pour les insérer dans une listview ?
Faut-il créer un tableau sur une feuille de calcule dédié avant de pouvoir ensuite inséré dans l'userform ?

Voilà les questions auxquelles je fais face depuis plusieurs jours. J'ai essayé de comprendre par moi même, mais je sèche.

Alors merci aux bonnes volontés pour l'aide que vous pourrez m'apporter.