Discussion :

[Benwad]

bonjour,

j'ai créé un tableau (2 colonnes: colA:codes/chiffres et colB:intitulés/lettres; et x lignes) de données. J'ai créé un textbox et un bouton "rechercher". je saisit une valeur dans le textbox (chiffres ou lettres) et en cliquant sur "rechercher" je souhaite faire apparaître toutes les lignes (code+intitulé)

Avez vous une idée de code? (j'espère avoir été clair)

merci

[Godzestla]

Bonjour,

tu peux simplement utiliser le filtre automatique avec sélection.

Génére toi un exemple via l'enregisteur de macro.

[Benwad]

Au départ j'ai généré une macro avec le "ctrl F" mais il faut que je fasse "suivant" à chaque fois qu'un mot est trouvé.
ce que je veux : par exemple si je saisit le mot : "production" je veux qu'apparaissent toutes les lignes où le mot "production" apparait.
Et une fois le résultat obtenu, je veux réinitialiser le tableau.

Merci

[NEC14]

Voici le code que j'utilise
A toi de l'adapter.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub CmbRecherche_Click()
Dim Cell As Range
Dim Tab1(0 To 50, 0 To 5) As String
Dim I As Byte
Dim L As Byte
    If CmbLigne.Value = "" And CmbNat.Value = "" Then
    MsgBox "Veuillez choisir une ligne de crédit ou la nature", vbInformation + vbOKOnly, "Avertissement..."
    LstResult.Clear
    Exit Sub
End If
    If CmbLigne.Value <> "" Then
    L = Len(CmbLigne)
        For Each Cell In Sheets("Crédit").Range("IntituCred")
            If UCase(Left(Cell.Text, L)) = UCase(CmbLigne.Text) Then
            Tab1(I, 0) = Cell.Text
            Tab1(I, 1) = Cell.Offset(0, 1).Text
            Tab1(I, 2) = Cell.Offset(0, 2).Text
            Tab1(I, 3) = Cell.Offset(0, 3).Text
            Tab1(I, 4) = Cell.Offset(0, 4).Text
        I = I + 1
    End If
        LstResult.ColumnCount = 5
        LstResult.ColumnWidths = "2cm" & ";" & "7cm" & ";" & "3cm" & ";" & "3cm" & ";" & "3cm"
        LstResult.List = Tab1()
    Next
        ElseIf CmbNat.Value <> "" Then
    L = Len(CmbNat)
        For Each Cell In Sheets("Crédit").Range("IntituNat")
            If UCase(Left(Cell.Text, L)) = UCase(CmbNat.Text) Then
            Tab1(I, 0) = Cell.Offset(0, -2).Text
            Tab1(I, 1) = Cell.Offset(0, -1).Text
            Tab1(I, 2) = Cell.Text
            Tab1(I, 3) = Cell.Offset(0, 1).Text
            Tab1(I, 4) = Cell.Offset(0, 2).Text
        I = I + 1
    End If
Next
    LstResult.ColumnCount = 5
    LstResult.ColumnWidths = "2cm" & ";" & "7cm" & ";" & "3cm" & ";" & "3cm" & ";" & "3cm"
    LstResult.List = Tab1()
End If
End Sub

[Godzestla]

ce que je veux : par exemple si je saisit le mot : "production" je veux qu'apparaissent toutes les lignes où le mot "production" apparait.
Et une fois le résultat obtenu, je veux réinitialiser le tableau.

Merci

Tout cela est possible via le filtre automatique que tu peux désactiver par après pour réafficher toutes les lignes.

Pour mettre le filtre auto sur la colonne 1 avec le critère = selection sur la feuille "External", le code est :

Code :

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

1
2
 
        Sheets("External").AutoFilter Field:=1, Criteria1:=selection

Pour enlever le Filtre Automatique sur la feuille "External", le code est

Code :

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

1
2
3
4
 
    If Sheets("External").AutoFilterMode Then
       Sheets("External").Cells.AutoFilter
    End If

Tu peux aussi travailler avec le filtre élaboré qui a l'avantage de pouvoir exporter les résultats vers une autre feuille.

Pour cela, regarde ici

Cordialement.
G@dz

[Benwad]

merci à vous, je vais essayer les 2 propositions.

Sinon Nec14, pourrais tu m'apporter quelques précisions sur ton code?

Merci

je vous mets en pièce jointe un petit exemple de mon fichier excel

Bien à Vous

[NEC14]

merci à vous, je vais essayer les 2 propositions.

Sinon Nec14, pourrais tu m'apporter quelques précisions sur ton code?

Merci

Bonjour,

Je vais te décrire ce code et de le mettre dans un fichier joint.
A toute