Autofilter result is nothing

[F2T]

Bonjour,

Je cherche a effectuer un copier coller des donnée filtré lorsque un filtre renvois des données et ne rien faire lorsque aucune donnée n'est resorti par le filtre.

Impossible de trouver apres moulte recherche.

Merci pour les bienveillants.

++😕

 

[F2T]

Re : Autofilter result is nothing

Precision, cela fonctionne lorsque donnée rendu par le filtre.

Le probleme intervient lorsque qu'aucune donnée n'apparait dans le filtre. Le copié collé copie qd meme au lieu de ne rien faire.

j'ai essayé ce test de code :

Dim SPACE As Variant

Set SPACE = RANGE("A1:A50").SpecialCells(xlCellTypeVisible)

Selection.AutoFilter Field:=3, Criteria1:= _
"A", Operator:=xlOr, Criteria2:="=B"



Counter = SPACE.SpecialCells(xlCellTypeVisible).Count

'1 correspondant a 1 cellule de donnée : le titre du filtre

If Counter = 1 Then [A25].Formula = "=OK"

Merci pour le tips...
++++

 

[Gorfael]

Re : Autofilter result is nothing

Salut F2T et le forum
Petit rappel : il n'y a ni devin, ni télépathe sur ce site, et seulement une personne au courant de ton fichier : toi !

Utilise les balises de codes (icone # en mode avancé)
Quand tu as un problème sur un code, mets-le en entier !

Un code non testé (sujet trop imprécis) :

Sub Test()
Dim SPACE As Range
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Range("A1:C50").AutoFilter Field:=3, Criteria1:="A", Operator:=xlOr, Criteria2:="B"
Set SPACE = Range("A2:C50").SpecialCells(xlCellTypeVisible)
If SPACE Is Nothing Then
    MsgBox "pas de A ou de B en colonne A"
Else
    MsgBox SPACE.Rows.Count & " lignes à copier"
End If
End Sub

Si j'ai "A" ou "B" dans la colonne C, je mets les cellules dans la variable SPACE et je compte le nombre de lignes.
A+

 

[F2T]

Re : Autofilter result is nothing

Bonjour Gorfael,

SUB FILTER ()

If [A11] = "" Then  
    
    Else 

Selection.Copy
Sheets("AVOIR").Select
RANGE("A" & Application.Rows.Count).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Sheets("ETRE").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp   
    
    End If

Selection.AutoFilter Field:=3

END SUB

A11 etant la premiere cellule apres le titre du filtre.

:🙂

Ca marche mieux apres break et l'esprit plus claire.

Merci pour le tip....

++++

 

[Gorfael]

Re : Autofilter result is nothing

Salut F2T et le forum
deux remarque sur ce code :

SUB FILTER ()
If [A11] = "" Then  
    Else 
'etc...
End If

D'abord tu t'interdis que la cellule A11 ne réponde pas à ton critère... mais ça, c'est ton problème !
Ensuite tu n'utilises que la condition fausse de la fonction If. Il suffit donc que "[A11] ="" " soit faux pour que ça fonctionne. Tu pourrais alors utiliser la partie Vrai du If.
- soit en utilisant If not([A11] = "") Then
- soit en utilisant If [A11] <> "" Then
A+

 

[F2T]

Re : Autofilter result is nothing

ok, c'est noté. Tks.