Macro recherche + masquage de ligne.

[BAT]

Bonjour à tout le forum,

Je recherche une macro qui va me masquer toutes les lignes d'une feuille (sauf de la 1 à 6) en fonction du rézsultat d'une recherche de texte.

En fait le principe est simple :
1 - Lorsque je clique sur le bouton macro, une boîte de dialogue apparaît.
2 - L'opérateur inscrit du texte qu'il souhaite rechercher dans la feuille (ex : " Famille produit")
3 - La macro recherche dans les colonnes E et F les lignes au sein desquelles le texte (ici "Famille produit") est présent.
4 - Pour toutes les lignes où le texte n'est présent, dans les colonnes E et F, la macro masque la ligne (sauf les lignes 1 à 6 qui doivent toujours êtres visibles).

Cela semble simple mais en fait non ! Je bloque dès la partie boîte de dialogue ! Auriez-vous quelque chose du même genre à me transmettre que vous auriez dans un coin ?

Merci par avance à tous !

 

[porcinet82]

Re : Macro recherche + masquage de ligne.

Salut,

Je suis allé au plus simple avec une InputBox, mais il est possible de faire un USF qui permettrai plus de diversité...

Option Compare Text 'a enlever si tu veux que la casse est une importance

Sub test()
Dim i&
Dim rep As Variant
rep = InputBox("Saisir l'expression recherchée : ", "Recharche")
If rep = "" Then Exit Sub
Cells.EntireRow.Hidden = False
For i = 7 To Range("E65536").End(xlUp).Row
    If InStr(1, Cells(i, 5).Value, rep) = 0 Or InStr(1, Cells(i, 5).Value, rep) = 0 Then
        Rows(i).EntireRow.Hidden = True
    End If
Next i
End Sub

@+

 

[BAT]

Re : Macro recherche + masquage de ligne.

Bonjour Porcinet82, le forum,

Génial cette macro. Par contre est-il possible d'appliquer ce principe de recherche sur les colonnes E et F ?

Merci beaucoup

 

[porcinet82]

Re : Macro recherche + masquage de ligne.

Salut,

Excuse, j'ai oublié de modifier mon copié/collé. Modifie le code suivant Or InStr(1, Cells(i, 5).Value, rep) = 0 Then par Or InStr(1, Cells(i, 6).Value, rep) = 0 Then

@+

 

[BAT]

Re : Macro recherche + masquage de ligne.

Re bonjour,

Avec ce nouveaux bout de code la macro n'affiche que les lignes qui ont le texte en collone E et en collone F. Il faudrait qu'elle affiche les lignes qui ont le texte en collone E OU collone F

Je m'apercoit aussi que le fait que la casse à une importance dans la macro. Comment faire pour que peux importe les majuscules ou minuscules la recherche aboutisse au même résultat ?

Désolé pour ces nouvelles questions !! 😱

Merci beaucoup par avance

 

[BAT]

Re : Macro recherche + masquage de ligne.

Re

J'ai trouvé pour le premier problème ! J'ai remplacer le Or par And !

Par contre pas de solution pour la casse !!

 

[porcinet82]

Re : Macro recherche + masquage de ligne.

re,

La réponse a ta question se trouve dans mon premier post. Il faut utiliser Option Compare Text (a placer tout en haut du module contenant le code, cad avant toute procédure) pour que la casse n'est pas d'importance.

@+

 

[BAT]

Re : Macro recherche + masquage de ligne.

Magnifique !

je suis comblé !