Je souhaiterais r=E9aliser une macro me permettant d'afficher les donn=E9es=
de ma feuille Excel en fonction d'un crit=E8re de recherche (en recherchan=
t ce crit=E8re dans plusieurs colonnes).
Ma feuille Excel est compos=E9e de 13 colonnes avec des D=E9signations, Des=
criptions, R=E9f=E9rences, etc...=20
Ce code si dessous me permet de filtrer la colonne 7 en fonction du texte a=
fficher dans le "TextBox1" de mon UserForm.
Cela me prends tous les =E9l=E9ments avec le texte "TEST" dans la colonne 7=
puis me reprends les =E9l=E9ments de la colonne 8 ou il y a aussi le texte=
"TEST".
Ce que je souhaite c'est pouvoir faire un OU, je souhaite afficher tous les=
=E9l=E9ments de la colonne 7 et de la colonne 8 qui comprends l'un ou l'au=
tre le texte "TEST".=20
J'esp=E8re avoir =E9t=E9 claire.
Y a t'il une solution ?=20
Et enfin avec cela je souhaiterais pouvoir afficher toutes les lignes de mo=
n tableau o=F9 est pr=E9sent dans n'importe qu'elle colonne le crit=E8re du=
TextBox1.
Si l'objectif est d'afficher toutes les données, mais en laissant les boutons du filtre en place, ceci est suffisant. '-------------------------------------------- Sub test() With Worksheets("Feuil1") If .FilterMode Then .ShowAllData End With End Sub '--------------------------------------------
Si l'objectif est d'afficher toutes les données et de faire disparaître les boutons du filtre '-------------------------------------------- Sub test() With Worksheets("Feuil1") If .AutoFilterMode Then .UsedRange.AutoFilter End With End Sub '--------------------------------------------
Bonjour,
Si l'objectif est d'afficher toutes les données, mais en laissant les boutons du filtre en place,
ceci est suffisant.
'--------------------------------------------
Sub test()
With Worksheets("Feuil1")
If .FilterMode Then .ShowAllData
End With
End Sub
'--------------------------------------------
Si l'objectif est d'afficher toutes les données et de faire disparaître les boutons du filtre
'--------------------------------------------
Sub test()
With Worksheets("Feuil1")
If .AutoFilterMode Then .UsedRange.AutoFilter
End With
End Sub
'--------------------------------------------
Si l'objectif est d'afficher toutes les données, mais en laissant les boutons du filtre en place, ceci est suffisant. '-------------------------------------------- Sub test() With Worksheets("Feuil1") If .FilterMode Then .ShowAllData End With End Sub '--------------------------------------------
Si l'objectif est d'afficher toutes les données et de faire disparaître les boutons du filtre '-------------------------------------------- Sub test() With Worksheets("Feuil1") If .AutoFilterMode Then .UsedRange.AutoFilter End With End Sub '--------------------------------------------
