Numero de ligne et filtre vba

[Pinetti]

Bonjour à tous,

J'ai une liste de données stockées dans une feuille excel. (Une base de donnée)
J'ai crée une macro "System de recherche instantanée" qui fonctionne en filtrant les valeurs de la liste en fonction des mots clés renseignés dans un formulaire séparé.

La première ligne (ligne numero 1) de ma base de donnée contient les noms des différentes colonnes.
J'applique un filtre a cette ligne.

Lorsque la recherche est nulle (pas de correspondance), aucune valeur n’apparaît dans ma liste de donnée mise à part la ligne 1.
On passe donc de la ligne numero 1 à par exemple la ligne numéro 300. les lignes intermédiaires étant filtrées.

Ma question est :
Indépendamment du numéro de ligne, je voudrais détecter si la ligne suivant la ligne numero 1 est pleine de texte ou non. Autrement dit si ma recherche dégage un résultat ou non.
Tout ça pour pouvoir afficher un message disant "Votre recherche n'a retourné aucun résultat" (ou un truc du genre) en cas de non-correspondance.

Y a til un code permettant de faire cela?




Merci d'avance,

 

[Lolote83]

Re : Numero de ligne et filtre vba

Salut,
Avec un fichier joint cela serait peut être plus parlant.
Sinon, voir du coté des filtres élaborés mais encore une fois, sans fichier, j'aurais du mal à te répondre.
Cordialement
Yvan TREUVEY

 

[Pierrot93]

Re : Numero de ligne et filtre vba

Bonjour,

regarde peut être ceci :

Dim p As Range
Set p = Range("_FilterDatabase")
If WorksheetFunction.Subtotal(3, p.Offset(1).Resize(p.Rows.Count - 1, 1)) = 0 Then
    MsgBox "Aucune valeur trouvée..."
End If

bon après midi
@+

Edition bonjour Yvan, PierreJean, un peu capilotracté moi....

 

[pierrejean]

Re : Numero de ligne et filtre vba

Bonjour Pinetti

Supposant le filtre sur la colonne A

If Range("A" & Rows.Count).End(xlUp).Row = 1 Then MsgBox ("Votre recherche n'a retourné aucun résultat")

Edit : Salut Yvan ,Salut Pierrot

 

[Pinetti]

Re : Numero de ligne et filtre vba

Merci à tous pour vos réponses,

n'étant pas chez moi je testerai demain et vous tiendrai au courant de l'évolution

@Lolote83
c'est vrai qu'avec le fichier c'est plus claire
Je l'attacherai demain si nécessaire


Bonne soirée,
Olivier

 

[Pinetti]

Re : Numero de ligne et filtre vba

RE : Fonctionne impec

Merci pour vos réponses rapides