Discussion :

[Chris171717]

Bonjour,

J'ai un fichier excel piloté par des userform... dans l'une d'elles je souhaiterai affecter des recherches spécifiques...

est-il possible de rechecher via un CommandButton l'ensemble des lignes contenant une valeur donnée !?

Disons que je veux appuyer sur "CommandButton3" pour consulter la liste de toutes les lignes contenant un "Nom" selectionné dans "ComboBox1" ET un "Prénom" selectionné dans "ComboBox2" !?

Cette liste peut-elle s'afficher dans une MsgBox !?


Merci d'avance

[Kimy_Ire]

Bonjour,

Alors si j'ai bien compris, tu as un UserForm avec deux TextBox.
Tu souhaiterais que via un CommandButton dans ce UserForm tu recherches dans une colonne les valeurs que tu as rentrés dans tes TextBox.

Si c'est cela, je te propose le code suivant :
1) Pour afficher ton UserForm avec un CommandButton dans ta feuille

Code :

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

1
2
3
Private Sub CommandButton1_Click()
    UserForm1.Show
End Sub

2) Tu réalises ton UserForm avec deux TextBox et un CommandButton

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
Private Sub CommandButton1_Click()
Dim str As String
 
UserForm1.Hide
 
    With Worksheets("Feuil1")
        For i = 0 To .Columns(3).Find("*", , , , xlByColumns, xlPrevious).Row
            If InStr(.Range("C1").Offset(i, 0).Value, TextBox1) And InStr(.Range("C1").Offset(i, 0).Value, TextBox2) Then
                str = str & vbCrLf & .Range("C1").Offset(i, 0).Value
            End If
        Next i
    End With
 
    MsgBox str
End Sub

Le deuxième code recherche dans "Feuil1", de la première ligne à la dernière ligne non vide de la colonne 3 (soit la colonne C) toutes les cellules qui possède la valeur de ta TextBox1 ET la valeur de ta TextBox2.

Elle affiche à la fin la valeur entière de toutes les cellules correspondantes.

A savoir : la fonction InStr recherche les valeurs si elles sont séparées d'espaces.

Tiens moi au courant !

[Chris171717]

En fait mes deux valeurs à chercher ne sont pas dans la même colonne...

Je te mets le fichier en PJ...

à l'UserForm1 choisi "Consulter un nom" --> ça ouvre UserForm4

A ce moment là, après avoir selectionné nom, prénom et classe, quand je clique sur "consulter", je voudrais sortir la liste de toutes les lignes correspondant à ce nom, prénom et classe...

[Kimy_Ire]

Bah... tu n'avais pas grand chose à changer de mon code !

Ajoute ça à ton UserForm4 :

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
Private Sub CommandButton1_Click()
Dim i, j As Integer
Dim str As String
 
UserForm4.Hide
 
    With Worksheets("Retenues")
        For i = 0 To .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
            If .Range("A1").Offset(i, 0).Value = ComboBox1 And .Range("B1").Offset(i, 0).Value = ComboBox2 And .Range("C1").Offset(i, 0).Value = ComboBox3 Then
                For j = 0 To .Rows(.Range("A1").Offset(i, 0).Row).Find("*", , , , xlByColumns, xlPrevious).Column
                    str = str & .Range("A1").Offset(i, j).Value & " "
                Next j
                str = str & vbCrLf
            End If
        Next i
    End With
 
    MsgBox str
End Sub

Et dis moi si ça te convient !

[Chris171717]

C'est ça

Merci beaucoup... maintenant à moi de bosser sur ma mise en forme...

[Chris171717]

Je reviens vers toi... suite à ton dernier code...

Je ne dois pas être très doué, mais dans la MsgBox qui s'affiche, je ne souhaite pas toutes les infos...

J'ai l'impression que tu as généré un résumé automatique c'est ça ?

Comment puis-je selectionner les infos à afficher !?

Merci encore