Discussion :

[nacereddine.mourad]

Bonjour à tous

Objectif : quand je sélectionne 210V01 dans ListBox2, la ListBox3 affichera toute les feuilles du classeur (ThisWorkbook.Sheets) qui contient *210V01*

Information :
- Pour afficher l’Userform : feuilles: (BDD equipements) bouton Chercher ou ajouter équipement, Ecrire 210V01 dans TextBox2
- A l’ouverture UserForm3 il y a ce code qui me permit de lister les feuilles dans la feuille (listing), qui fonctionne très bien :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub UserForm_Activate()
Application.ScreenUpdating = False
 
With Worksheets("listing").Range("E2:E60000")
       .ClearContents
End With
 
Dim i As Integer
For i = 1 To Sheets.Count
Worksheets("listing").Cells(1 + i, 5) = Sheets(i).Name
Next i
 
Application.ScreenUpdating = True 'Facultatif
End Sub

- Voici le code pour la recherche et alimenter la ListBox3, le résultat ne correspond pas à litem sélectionner dans la ListBox2 :

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
Private Sub ListBox2_Click()
 
If ListBox2.ListIndex <> -1 Then
CommandButton16.Enabled = True
 
Dim Prem As String
Dim c As Range
 
With Me.ListBox3
    .Clear
    .ColumnCount = 2
    .BoundColumn = 2
    .ColumnWidths = "0;160"
End With
 
If Me.ListBox2 <> "" Then
    With Worksheets("listing").Range("E2:E65536")
        Set c = .Find(Me.ListBox2.ListIndex, LookIn:=xlValues, Lookat:=xlPart)
        If Not c Is Nothing Then
            Prem = c.Address
            Do
                With Me.ListBox3
                    .AddItem c.Row
                    .List(.ListCount - 1, 1) = c.Offset(, 5 - c.Column)
                End With
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Prem
        End If
    End With
    '...
End If
End Sub

Je vous remercie infiniment pour votre attention

[joe.levrai]

Bonjour,

je ne comprend pas pourquoi tu stockes le nom de tes feuilles dans une feuille dédiée, pour ensuite jouer sur le ListIndex de ta listbox

voici une proposition où on va utiliser dans chaque feuille la formule NB.SI pour compter le nombre d'occurences de l'item sélectionné

si NB.SI = 0 alors la référence n'y figure pas.... sinon on ajoute le nom de la feuille dans ListBox3

la recherche est pas exacte, il suffit que la cellule contienne la référence, grâce aux jokers "*" placés avant et après la référence

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
Private Sub ListBox2_Click()
Dim Feuille As Worksheet
    With Me
        If .ListBox2.ListIndex <> -1 Then
            CommandButton16.Enabled = True
 
            With .ListBox3
                .Clear
                .ColumnCount = 1
                .ColumnWidths = "160"
            End With
 
            If .ListBox2 <> "" Then
                For Each Feuille In ThisWorkbook.Worksheets
                    If Application.WorksheetFunction.CountIf(Feuille.Cells, "*" & .ListBox2 & "*") > 0 Then .ListBox3.AddItem Feuille.Name
                Next Feuille
            End If
        Else
            CommandButton16.Enabled = False
        End If
    End With
End Sub

[nacereddine.mourad]

Merci joe.levrai tu as raison c'est mieux ainsi, mais comme tu ma dit la recherche nais pas exact par exemple je clique sur eee que j'ai ajouter dans le tableau BDD equipements et j'ai aussi ajouter une feuille nommée eee:
la feuille ne s’affiche pas dans la ListBox3

[patricktoulon]

de la meme manière qu'avec find

Code :

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

1
2
3
4
5
If .ListBox2 <> "" Then
                For Each Feuille In ThisWorkbook.Worksheets
                   If Not Feuille.Cells.Find(.ListBox2, lookat:=xlPart) Is Nothing Then .ListBox3.AddItem Feuille.Name
                  'If Application.WorksheetFunction.CountIf(Feuille.Cells, "*" & .ListBox2 & "*") > 0 Then .ListBox3.AddItem Feuille.Name
                Next Feuille

[nacereddine.mourad]

merci patricktoulon, même résulta avec la Feuille 'Decennal eee', elle s’affiche pas, désoler mes amies je doit partir, J'espère que vous trouverez la solution ici demain, encore merci , ou bien on recherche la fin du texte si il correspond, encore merci et bonne continuation a demain.

[patricktoulon]

serait elle masquée par hasard cette feuille ???????

[nacereddine.mourad]

Bonjour a tous,
non elle n'est pas masquer,

le résultat recherche même le mot dans les feuille!, l'objectif est de chercher le mot qui correspond au texte des onglets du classeur, merci encore.

[patricktoulon]

re
bonjour
autant pour moi

Code :

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

1
2
3
4
5
If .ListBox2 <> "" Then
  For Each Feuille In ThisWorkbook.Worksheets
    If feuille.name like "*" & .listbox2 & "*"  Then .ListBox3.AddItem Feuille.Name
  Next Feuille
enf if

[nacereddine.mourad]

merci patricktoulon merci a tous, bonne journée sa marche parfaitement

[joe.levrai]

Bonjour,

le recherche n'est pas exacte et c'est normal, c'était ta demande initiale

Objectif : quand je sélectionne 210V01 dans ListBox2, la ListBox3 affichera toute les feuilles du classeur (ThisWorkbook.Sheets) qui contient *210V01*

ainsi, j'avais expliqué comment était intégré cette approximation

a recherche est pas exacte, il suffit que la cellule contienne la référence, grâce aux jokers "*" placés avant et après la référence

il suffit donc de supprimer ces jokers dans la ligne 15 de ma proposition pour qu'elle devienne

Code :

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

If Application.WorksheetFunction.CountIf(Feuille.Cells, .ListBox2) > 0 Then .ListBox3.AddItem Feuille.Name

Et tu as ensuite précisé par la suite que c'était dans le nom des feuilles qu'il fallait faire la recherche, et pas dans la feuille elle-même.
Donc ma proposition n'est pas adéquate, Patrick t'as donc apporté la bonne solution, puisqu'on a plus besoin de la formule NB.SI pour rechercher dans les feuilles


Ainsi, tu vois qu'une explication très claire dès le premier message te permet d'obtenir la réponse appropriée immédiatement

[nacereddine.mourad]

merci joe.levrai
je me suis mal exprimé, mais merci encore, j'aurai besoin de ce code aussi pour autre chose

[patricktoulon]

salur joe

Patrick t'as donc apporté la bonne solution, puisqu'on a plus besoin de la formule NB.SI pour rechercher dans les feuilles

non seulement cela mais plus besoins du sheets listing aussi ]