Discussion :

[Kalagane75]

Bonjour,

J'ai essayé plusieurs solutions mais je n'arrive pas à créer un moteur de recherche qui me permette de mettre en lumière les cellules de ma table contenant la valeur saisie.

Objectif :
J'ai un textbox1 qui permet à l'utilisateur d'indiquer l'élément de recherche. Par exemple le chiffre 15.
Alors toutes les cellules contenant 15 seront misent en lumière via une mefc de couleur bleu. Cette mefc doit être valable pour toute la table peu importe son format

Cela marche plutôt bien pour du texte, le problème sur lequel je m'arrache les cheveux : c'est la gestion des dates.
Si je reprend mon exemple :
Lorsque je tape 15, il me met en couleur la cellule 30/08/2019 car sa valeur est égale à 43707,4625115741 alors que je voudrais qu'il me sélectionne 15/01/2023 car cette date contient 15

J'espère avoir été claire, n'hésitez pas à me demander si besoin.

J'ai mis en copie le document reprenant la textbox et la table structurée.
Je vise une approche VBA pour mettre en application la mefc.

Si vous êtes plus calé en formule, pas de soucis, ça m'intéresse aussi car je traduirai la formule en VBA.

Merci d'avance pour votre lecture

Cordialement

Cordialement

[Franc]

Bonsoir, voici mon approche, je fais une recherche de texte, y compris sur les nombres et les dates. En effet, ce qui est affiché dans la cellule peut différer de la valeur réelle, notamment pour les dates.

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
Private Sub CommandButton1_Click()
    Dim recherche As String
    Dim cellule As Range
    Dim plage As Range
 
    ' Récupérer la valeur saisie dans le textbox (remplacez "TextBox1" par le nom de votre contrôle)
    recherche = TextBox1.Value
 
    ' Définir la plage utilisée dans la feuille active
    Set plage = ActiveSheet.UsedRange
 
    ' Parcourir chaque cellule dans la plage
    For Each cellule In plage
        ' Si la cellule contient le texte recherché
        If InStr(1, cellule.Text, recherche, vbTextCompare) > 0 Then
            ' Mettre en évidence la cellule en changeant sa couleur de fond (par exemple, en bleu)
            cellule.Interior.Color = RGB(0, 0, 255)
        End If
    Next cellule
 
    MsgBox "Traitement terminé!", vbInformation
 
End Sub

[Kalagane75]

Bonjour,
Merci pour ce retour toutefois je voulais éviter les boucle et passer par une mefc car comme tu as pu le voir il y a des centaines de cellules.
Il faut aussi savoir, que vous avez la version épurée car dans la versions il y a 41 tableau de ce type avec autant de textbox (1 pour chaque table)
là où je m'en rapproche le plus c'est via une mefc qui recherche dans le contenu la valeur recherchée. Toutefois pour les colonnes à date ça ne marche pas

Bonsoir, voici mon approche, je fais une recherche de texte, y compris sur les nombres et les dates. En effet, ce qui est affiché dans la cellule peut différer de la valeur réelle, notamment pour les dates.

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
Private Sub CommandButton1_Click()
    Dim recherche As String
    Dim cellule As Range
    Dim plage As Range
 
    ' Récupérer la valeur saisie dans le textbox (remplacez "TextBox1" par le nom de votre contrôle)
    recherche = TextBox1.Value
 
    ' Définir la plage utilisée dans la feuille active
    Set plage = ActiveSheet.UsedRange
 
    ' Parcourir chaque cellule dans la plage
    For Each cellule In plage
        ' Si la cellule contient le texte recherché
        If InStr(1, cellule.Text, recherche, vbTextCompare) > 0 Then
            ' Mettre en évidence la cellule en changeant sa couleur de fond (par exemple, en bleu)
            cellule.Interior.Color = RGB(0, 0, 255)
        End If
    Next cellule
 
    MsgBox "Traitement terminé!", vbInformation
 
End Sub

[Franc]

Bonjour,
Merci pour ce retour toutefois je voulais éviter les boucle et passer par une mefc car comme tu as pu le voir il y a des centaines de cellules.
Il faut aussi savoir, que vous avez la version épurée car dans la versions il y a 41 tableau de ce type avec autant de textbox (1 pour chaque table)
là où je m'en rapproche le plus c'est via une mefc qui recherche dans le contenu la valeur recherchée. Toutefois pour les colonnes à date ça ne marche pas

Je ne comprends pas où est le problème entre une boucle et des centaines de cellules. J'ai fait un test sur ton tableau et j'obtiens le résultat en une fraction de seconde, de plus ma méthode fonctionne avec les dates.

[Philippe Tulliez]

Bonjour,s
Pour info, le code proposé par Franc, que je salue au passage, dans ce fil #2 fonctionne parfaitement
Il faudrait juste prévoir un else dans la boucle car si on relance une recherche la mise en forme précédente est conservée et peut être choisir une couleur (jaune pâle par exemple) qui permette de mieux visualiser le texte mais ça c'est un détail.

Code :

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

1
2
3
4
        If InStr(1, cellule.Text, recherche, vbTextCompare) > 0 Then
            ' Mettre en évidence la cellule en changeant sa couleur de fond (par exemple, en bleu)
            cellule.Interior.Color = RGB(0, 0, 255)
        End If

[EDIT]
Du fait de l'instruction Set plage = ActiveSheet.UsedRange, la plage de recherche englobe évidemment toutes les cellules utilisées de la feuille active y compris les titres et autres cellules dont on ne souhaiterait pas voir être mise en forme. Personnellement j'utilise toujours la propriété CurrentRegion avec une correction éventuelle avec les propriétés Offset et Resize ce qui implique évidemment de connaître la cellule débutant la table à traiter

Comme c'est un tableau structuré, on pourrait limiter la recherche à la propriété DataBodyRange du ListObject ou par le Range(Nomdelatable)

[Kalagane75]

Tu as raison et je t'en remercie. Ce qu'il y a est que dans la version complète mon fichier contient des mefc. Les mefc supplante la couleur de la cellule, c-a-d que la couleur obtenu via vba (bleu par exemple) ne se verra pas car une mefc indiquera la couleur rouge par exemple... d'où ma recherche d'une mefc qu'elle soit apporté via vba ou formule d'ailleurs.

[rolandtsf]

=SIERREUR(CHERCHE("15";"'"&A1);0)>0

[Kalagane75]

=SIERREUR(CHERCHE("15";"'"&A1);0)>0

Bonjour,
Merci pour ton intervention, mais ça n'a pas l'air de fonctionner.
Je veux bien le fichier avec la formule intégrée que je puisse la tester et l'intégrer à mon fichier d'origine.
Cordialement