Si celllule vide après filtre, arréter macro
Bonjour,
je viens vers vous car j'ai encore un souci...
J'ai diverses procédures qui s’exécutent entre plusieurs classeurs (copier coller...). Un de ces classeurs a ses données filtrées(par filtre automatiques). Je viens copier ces données pour les coller ailleurs.
Je souhaiterai donc, que si après filtre il n'y a aucun contenu dans la colonne B (donc que la cellule B2), la macro s'arrête afin de ne pas continuer la procédure inutilement. Sinon, continuer la procédure.
J'ai tenté avec ça mais en vain:
Dim maplage As Range, Cel As Range
Set maplage = Sheets("Feuil1").Range("B2")
For Each Cel In maplage
If Cel.Value = "" Then
Windows("Classeur.xlsm").Activate
Exit Sub
End IfJe vous remercie pour vos réponses.
Cordialement,
Innuendo67
Bonjour
Une fois le filtre effectué il suffit de savoir si il reste des lignes filtrées
Ce que je fais
If Application.SubTotal(103, Columns("B"))> 1 then ' Plus que 1 ( l'entête de la colonne )
' Il y a des lignes filtrées
Else
' Pas de ligne filtrées
End IfBonjour Banzai64,
Merci de ta réponse. Cela semble fonctionner et à améliorer le temps d'exécution de mon code.
Cependant, si apres filtre il n'y a qu'un résultat de visible, cela ne marche pas.
J'ai donc mis >=1 mais le délai d'exécution à augmenté...
Aurais tu une autre solution ?
Je te remercie grandement !
Cordialement,
Innuendo67
Bonjour
Il me faut le fichier en cause
Dire quel filtre utiliser pour n'avoir qu'une ligne filtrée
Bonjour Banzaï64,
désolé du délai j'étais absent...
Je te remercie, le délai qui a augmenté était dû à autre chose qui est réglé.
Merci encore!
Cordialement,
Innuendo67