'*** Sub testdr() For i = [a65536].End(xlUp).Row To 1 Step -1 If Rows(i).Hidden Then Rows(i).Delete Next
End Sub '*** 'lSteph "mobimus" @enlever> a écrit dans le message de news:
Bonjour,
J'ai une feuille de calcul où j'ai mis et appliqué un filtre.
En utilisant une macro, je voudrais maintenant supprimer toutes les lignes qui n'ont pas été filtrées.
Merci
LSteph
...oupss!... sous réserve d'écrire quelque chose "x" à une ligne d'écart en colonne 1 sous la zone filtrée sinon cela oublie les dernières lignes si elles sont elle-même filtrées.
"LSteph" a écrit dans le message de news:
Re bonjour,
'*** Sub testdr() For i = [a65536].End(xlUp).Row To 1 Step -1 If Rows(i).Hidden Then Rows(i).Delete Next
End Sub '*** 'lSteph "mobimus" @enlever> a écrit dans le message de news:
Bonjour,
J'ai une feuille de calcul où j'ai mis et appliqué un filtre.
En utilisant une macro, je voudrais maintenant supprimer toutes les lignes qui n'ont pas été filtrées.
Merci
...oupss!... sous réserve d'écrire quelque chose "x" à une ligne d'écart en
colonne 1
sous la zone filtrée sinon cela oublie les dernières lignes si elles sont
elle-même filtrées.
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
uBBlvDiCGHA.4040@TK2MSFTNGP12.phx.gbl...
Re bonjour,
'***
Sub testdr()
For i = [a65536].End(xlUp).Row To 1 Step -1
If Rows(i).Hidden Then Rows(i).Delete
Next
End Sub
'***
'lSteph
"mobimus" <musat45@gmail.com@enlever> a écrit dans le message de news:
mn.d3247d5cdca8cbb4.43543@enlever...
Bonjour,
J'ai une feuille de calcul où j'ai mis et appliqué un filtre.
En utilisant une macro, je voudrais maintenant supprimer toutes les
lignes qui n'ont pas été filtrées.
...oupss!... sous réserve d'écrire quelque chose "x" à une ligne d'écart en colonne 1 sous la zone filtrée sinon cela oublie les dernières lignes si elles sont elle-même filtrées.
"LSteph" a écrit dans le message de news:
Re bonjour,
'*** Sub testdr() For i = [a65536].End(xlUp).Row To 1 Step -1 If Rows(i).Hidden Then Rows(i).Delete Next
End Sub '*** 'lSteph "mobimus" @enlever> a écrit dans le message de news:
Bonjour,
J'ai une feuille de calcul où j'ai mis et appliqué un filtre.
En utilisant une macro, je voudrais maintenant supprimer toutes les lignes qui n'ont pas été filtrées.
Merci
mobimus
...oupss!... sous réserve d'écrire quelque chose "x" à une ligne d'écart en colonne 1 sous la zone filtrée sinon cela oublie les dernières lignes si elles sont elle-même filtrées.
"LSteph" a écrit dans le message de news:
Re bonjour,
'*** Sub testdr() For i = [a65536].End(xlUp).Row To 1 Step -1 If Rows(i).Hidden Then Rows(i).Delete Next
End Sub '*** 'lSteph "mobimus" @enlever> a écrit dans le message de news:
Bonjour,
J'ai une feuille de calcul où j'ai mis et appliqué un filtre.
En utilisant une macro, je voudrais maintenant supprimer toutes les lignes qui n'ont pas été filtrées.
Merci
merci pour ta réponse rapide.
Mais j'ai aps compris ta remarque ".... sous réserve ...."
...oupss!... sous réserve d'écrire quelque chose "x" à une ligne d'écart en
colonne 1
sous la zone filtrée sinon cela oublie les dernières lignes si elles sont
elle-même filtrées.
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
uBBlvDiCGHA.4040@TK2MSFTNGP12.phx.gbl...
Re bonjour,
'***
Sub testdr()
For i = [a65536].End(xlUp).Row To 1 Step -1
If Rows(i).Hidden Then Rows(i).Delete
Next
End Sub
'***
'lSteph
"mobimus" <musat45@gmail.com@enlever> a écrit dans le message de news:
mn.d3247d5cdca8cbb4.43543@enlever...
Bonjour,
J'ai une feuille de calcul où j'ai mis et appliqué un filtre.
En utilisant une macro, je voudrais maintenant supprimer toutes les lignes
qui n'ont pas été filtrées.
Merci
merci pour ta réponse rapide.
Mais j'ai aps compris ta remarque ".... sous réserve ...."
...oupss!... sous réserve d'écrire quelque chose "x" à une ligne d'écart en colonne 1 sous la zone filtrée sinon cela oublie les dernières lignes si elles sont elle-même filtrées.
"LSteph" a écrit dans le message de news:
Re bonjour,
'*** Sub testdr() For i = [a65536].End(xlUp).Row To 1 Step -1 If Rows(i).Hidden Then Rows(i).Delete Next
End Sub '*** 'lSteph "mobimus" @enlever> a écrit dans le message de news:
Bonjour,
J'ai une feuille de calcul où j'ai mis et appliqué un filtre.
En utilisant une macro, je voudrais maintenant supprimer toutes les lignes qui n'ont pas été filtrées.
Merci
merci pour ta réponse rapide.
Mais j'ai aps compris ta remarque ".... sous réserve ...."
LSteph
Re,
"mobimus" @enlever> a écrit dans le message de news:
Mais j'ai aps compris ta remarque ".... sous réserve ...." Mettons filtre >100
liste 50 400 200 99
liste ( filtrée) 400 200
si on applique la macro et qu'on enlève le filtre: liste 400 200 99
Alors que si l'on met: liste 50 400 200 99 (une ligne vide) xx (<<ici on écrit n'importe)
..plus de pb
Re,
"mobimus" <musat45@gmail.com@enlever> a écrit dans le message de news:
mn.d3437d5c2365aa32.43543@enlever...
Mais j'ai aps compris ta remarque ".... sous réserve ...."
Mettons filtre >100
liste
50
400
200
99
liste ( filtrée)
400
200
si on applique la macro et qu'on enlève le filtre:
liste
400
200
99
Alors que si l'on met:
liste
50
400
200
99
(une ligne vide)
xx (<<ici on écrit n'importe)
"mobimus" @enlever> a écrit dans le message de news:
Mais j'ai aps compris ta remarque ".... sous réserve ...." Mettons filtre >100
liste 50 400 200 99
liste ( filtrée) 400 200
si on applique la macro et qu'on enlève le filtre: liste 400 200 99
Alors que si l'on met: liste 50 400 200 99 (une ligne vide) xx (<<ici on écrit n'importe)
..plus de pb
Ah d'accord, je commprends maintenant :D .
Donc est ce que je dois ajouter une ligne vide ou bien adpater le code?
Si c'est la deuxième solution qu'il fait adopter, comment serait le code exact?
Encore merci bcp
LSteph
Pour solution2, préférable c'est sûr, on cherche!
Pour l'instant précision de solution1:
... et sous la ligne vide en A surtout écrire qqchose car le pb est que le xlup ne s'arrête pas sur les cellules masquées ni vides de même le filtre s'arrêtera à la ligne juste avant la ligne vide
et j'ai essayé aussi avec Selection.CurrentRegion.SpecialCells(xlCellTypeLastCell).Select c'est pareil: ne s'arrête pas sur les cellules masquées.
"mobimus" @enlever> a écrit dans le message de news:
Re,
"mobimus" @enlever> a écrit dans le message de news:
Mais j'ai aps compris ta remarque ".... sous réserve ...." Mettons filtre >100
liste 50 400 200 99
liste ( filtrée) 400 200
si on applique la macro et qu'on enlève le filtre: liste 400 200 99
Alors que si l'on met: liste 50 400 200 99 (une ligne vide) xx (<<ici on écrit n'importe)
..plus de pb
Ah d'accord, je commprends maintenant :D .
Donc est ce que je dois ajouter une ligne vide ou bien adpater le code?
Si c'est la deuxième solution qu'il fait adopter, comment serait le code exact?
Encore merci bcp
Pour solution2, préférable c'est sûr, on cherche!
Pour l'instant précision de solution1:
... et sous la ligne vide en A surtout écrire qqchose car
le pb est que
le xlup ne s'arrête pas sur les cellules masquées ni vides
de même le filtre s'arrêtera à la ligne juste avant la ligne vide
et j'ai essayé aussi avec
Selection.CurrentRegion.SpecialCells(xlCellTypeLastCell).Select
c'est pareil: ne s'arrête pas sur les cellules masquées.
"mobimus" <musat45@gmail.com@enlever> a écrit dans le message de news:
mn.d3537d5c6800ea29.43543@enlever...
Re,
"mobimus" <musat45@gmail.com@enlever> a écrit dans le message de news:
mn.d3437d5c2365aa32.43543@enlever...
Mais j'ai aps compris ta remarque ".... sous réserve ...."
Mettons filtre >100
liste
50
400
200
99
liste ( filtrée)
400
200
si on applique la macro et qu'on enlève le filtre:
liste
400
200
99
Alors que si l'on met:
liste
50
400
200
99
(une ligne vide)
xx (<<ici on écrit n'importe)
..plus de pb
Ah d'accord, je commprends maintenant :D .
Donc est ce que je dois ajouter une ligne vide ou bien adpater le code?
Si c'est la deuxième solution qu'il fait adopter, comment serait le code
exact?
... et sous la ligne vide en A surtout écrire qqchose car le pb est que le xlup ne s'arrête pas sur les cellules masquées ni vides de même le filtre s'arrêtera à la ligne juste avant la ligne vide
et j'ai essayé aussi avec Selection.CurrentRegion.SpecialCells(xlCellTypeLastCell).Select c'est pareil: ne s'arrête pas sur les cellules masquées.
"mobimus" @enlever> a écrit dans le message de news:
Re,
"mobimus" @enlever> a écrit dans le message de news:
Mais j'ai aps compris ta remarque ".... sous réserve ...." Mettons filtre >100
liste 50 400 200 99
liste ( filtrée) 400 200
si on applique la macro et qu'on enlève le filtre: liste 400 200 99
Alors que si l'on met: liste 50 400 200 99 (une ligne vide) xx (<<ici on écrit n'importe)
..plus de pb
Ah d'accord, je commprends maintenant :D .
Donc est ce que je dois ajouter une ligne vide ou bien adpater le code?
Si c'est la deuxième solution qu'il fait adopter, comment serait le code exact?
Encore merci bcp
LSteph
re, Solution2 '****** Sub testdr() [a65536].End(xlUp).Select Do While Not IsEmpty(ActiveCell.Offset(1, 0)) ActiveCell.Offset(1, 0).Select Loop For i = ActiveCell.Row To 1 Step -1 If Rows(i).Hidden Then Rows(i).Delete Next
End Sub '***
'lSteph "mobimus" @enlever> a écrit dans le message de news:
Bonjour,
J'ai une feuille de calcul où j'ai mis et appliqué un filtre.
En utilisant une macro, je voudrais maintenant supprimer toutes les lignes qui n'ont pas été filtrées.
Merci
re,
Solution2
'******
Sub testdr()
[a65536].End(xlUp).Select
Do While Not IsEmpty(ActiveCell.Offset(1, 0))
ActiveCell.Offset(1, 0).Select
Loop
For i = ActiveCell.Row To 1 Step -1
If Rows(i).Hidden Then Rows(i).Delete
Next
End Sub
'***
'lSteph
"mobimus" <musat45@gmail.com@enlever> a écrit dans le message de news:
mn.d3247d5cdca8cbb4.43543@enlever...
Bonjour,
J'ai une feuille de calcul où j'ai mis et appliqué un filtre.
En utilisant une macro, je voudrais maintenant supprimer toutes les lignes
qui n'ont pas été filtrées.
re, Solution2 '****** Sub testdr() [a65536].End(xlUp).Select Do While Not IsEmpty(ActiveCell.Offset(1, 0)) ActiveCell.Offset(1, 0).Select Loop For i = ActiveCell.Row To 1 Step -1 If Rows(i).Hidden Then Rows(i).Delete Next
End Sub '***
'lSteph "mobimus" @enlever> a écrit dans le message de news:
Bonjour,
J'ai une feuille de calcul où j'ai mis et appliqué un filtre.
En utilisant une macro, je voudrais maintenant supprimer toutes les lignes qui n'ont pas été filtrées.
Merci
mobimus
Pour solution2, préférable c'est sûr, on cherche!
Pour l'instant précision de solution1:
... et sous la ligne vide en A surtout écrire qqchose car le pb est que le xlup ne s'arrête pas sur les cellules masquées ni vides de même le filtre s'arrêtera à la ligne juste avant la ligne vide
et j'ai essayé aussi avec Selection.CurrentRegion.SpecialCells(xlCellTypeLastCell).Select c'est pareil: ne s'arrête pas sur les cellules masquées.
"mobimus" @enlever> a écrit dans le message de news:
Re,
"mobimus" @enlever> a écrit dans le message de news:
Mais j'ai aps compris ta remarque ".... sous réserve ...." Mettons filtre >100
liste 50 400 200 99
liste ( filtrée) 400 200
si on applique la macro et qu'on enlève le filtre: liste 400 200 99
Alors que si l'on met: liste 50 400 200 99 (une ligne vide) xx (<<ici on écrit n'importe)
..plus de pb
Ah d'accord, je commprends maintenant :D .
Donc est ce que je dois ajouter une ligne vide ou bien adpater le code?
Si c'est la deuxième solution qu'il fait adopter, comment serait le code exact?
Encore merci bcp
Je vois ce que tu veux dire.
Il faut écriré qqch à la dernière ligne, en attendant un code VB adapté
Pour solution2, préférable c'est sûr, on cherche!
Pour l'instant précision de solution1:
... et sous la ligne vide en A surtout écrire qqchose car
le pb est que
le xlup ne s'arrête pas sur les cellules masquées ni vides
de même le filtre s'arrêtera à la ligne juste avant la ligne vide
et j'ai essayé aussi avec
Selection.CurrentRegion.SpecialCells(xlCellTypeLastCell).Select
c'est pareil: ne s'arrête pas sur les cellules masquées.
"mobimus" <musat45@gmail.com@enlever> a écrit dans le message de news:
mn.d3537d5c6800ea29.43543@enlever...
Re,
"mobimus" <musat45@gmail.com@enlever> a écrit dans le message de news:
mn.d3437d5c2365aa32.43543@enlever...
Mais j'ai aps compris ta remarque ".... sous réserve ...."
Mettons filtre >100
liste
50
400
200
99
liste ( filtrée)
400
200
si on applique la macro et qu'on enlève le filtre:
liste
400
200
99
Alors que si l'on met:
liste
50
400
200
99
(une ligne vide)
xx (<<ici on écrit n'importe)
..plus de pb
Ah d'accord, je commprends maintenant :D .
Donc est ce que je dois ajouter une ligne vide ou bien adpater le code?
Si c'est la deuxième solution qu'il fait adopter, comment serait le code
exact?
Encore merci bcp
Je vois ce que tu veux dire.
Il faut écriré qqch à la dernière ligne, en attendant un code VB adapté
... et sous la ligne vide en A surtout écrire qqchose car le pb est que le xlup ne s'arrête pas sur les cellules masquées ni vides de même le filtre s'arrêtera à la ligne juste avant la ligne vide
et j'ai essayé aussi avec Selection.CurrentRegion.SpecialCells(xlCellTypeLastCell).Select c'est pareil: ne s'arrête pas sur les cellules masquées.
"mobimus" @enlever> a écrit dans le message de news:
Re,
"mobimus" @enlever> a écrit dans le message de news:
Mais j'ai aps compris ta remarque ".... sous réserve ...." Mettons filtre >100
liste 50 400 200 99
liste ( filtrée) 400 200
si on applique la macro et qu'on enlève le filtre: liste 400 200 99
Alors que si l'on met: liste 50 400 200 99 (une ligne vide) xx (<<ici on écrit n'importe)
..plus de pb
Ah d'accord, je commprends maintenant :D .
Donc est ce que je dois ajouter une ligne vide ou bien adpater le code?
Si c'est la deuxième solution qu'il fait adopter, comment serait le code exact?
Encore merci bcp
Je vois ce que tu veux dire.
Il faut écriré qqch à la dernière ligne, en attendant un code VB adapté
LSteph
Ce qui suppose bien évidemment que la matrice en A ne comporte pas de cellules vides.
"LSteph" a écrit dans le message de news: %
re, Solution2 '****** Sub testdr() [a65536].End(xlUp).Select Do While Not IsEmpty(ActiveCell.Offset(1, 0)) ActiveCell.Offset(1, 0).Select Loop For i = ActiveCell.Row To 1 Step -1 If Rows(i).Hidden Then Rows(i).Delete Next
End Sub '***
'lSteph "mobimus" @enlever> a écrit dans le message de news:
Bonjour,
J'ai une feuille de calcul où j'ai mis et appliqué un filtre.
En utilisant une macro, je voudrais maintenant supprimer toutes les lignes qui n'ont pas été filtrées.
Merci
Ce qui suppose bien évidemment que la matrice en A ne comporte pas de
cellules vides.
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23kVwLliCGHA.1384@TK2MSFTNGP11.phx.gbl...
re,
Solution2
'******
Sub testdr()
[a65536].End(xlUp).Select
Do While Not IsEmpty(ActiveCell.Offset(1, 0))
ActiveCell.Offset(1, 0).Select
Loop
For i = ActiveCell.Row To 1 Step -1
If Rows(i).Hidden Then Rows(i).Delete
Next
End Sub
'***
'lSteph
"mobimus" <musat45@gmail.com@enlever> a écrit dans le message de news:
mn.d3247d5cdca8cbb4.43543@enlever...
Bonjour,
J'ai une feuille de calcul où j'ai mis et appliqué un filtre.
En utilisant une macro, je voudrais maintenant supprimer toutes les
lignes qui n'ont pas été filtrées.
Ce qui suppose bien évidemment que la matrice en A ne comporte pas de cellules vides.
"LSteph" a écrit dans le message de news: %
re, Solution2 '****** Sub testdr() [a65536].End(xlUp).Select Do While Not IsEmpty(ActiveCell.Offset(1, 0)) ActiveCell.Offset(1, 0).Select Loop For i = ActiveCell.Row To 1 Step -1 If Rows(i).Hidden Then Rows(i).Delete Next
End Sub '***
'lSteph "mobimus" @enlever> a écrit dans le message de news:
Bonjour,
J'ai une feuille de calcul où j'ai mis et appliqué un filtre.
En utilisant une macro, je voudrais maintenant supprimer toutes les lignes qui n'ont pas été filtrées.
Merci
mobimus
re, Solution2 '****** Sub testdr() [a65536].End(xlUp).Select Do While Not IsEmpty(ActiveCell.Offset(1, 0)) ActiveCell.Offset(1, 0).Select Loop For i = ActiveCell.Row To 1 Step -1 If Rows(i).Hidden Then Rows(i).Delete Next
End Sub '***
'lSteph "mobimus" @enlever> a écrit dans le message de news:
Bonjour,
J'ai une feuille de calcul où j'ai mis et appliqué un filtre.
En utilisant une macro, je voudrais maintenant supprimer toutes les lignes qui n'ont pas été filtrées.
Merci
Wow!!
Parfait. ça marche impeccablement
Merci bcp :)
re,
Solution2
'******
Sub testdr()
[a65536].End(xlUp).Select
Do While Not IsEmpty(ActiveCell.Offset(1, 0))
ActiveCell.Offset(1, 0).Select
Loop
For i = ActiveCell.Row To 1 Step -1
If Rows(i).Hidden Then Rows(i).Delete
Next
End Sub
'***
'lSteph
"mobimus" <musat45@gmail.com@enlever> a écrit dans le message de news:
mn.d3247d5cdca8cbb4.43543@enlever...
Bonjour,
J'ai une feuille de calcul où j'ai mis et appliqué un filtre.
En utilisant une macro, je voudrais maintenant supprimer toutes les lignes
qui n'ont pas été filtrées.
re, Solution2 '****** Sub testdr() [a65536].End(xlUp).Select Do While Not IsEmpty(ActiveCell.Offset(1, 0)) ActiveCell.Offset(1, 0).Select Loop For i = ActiveCell.Row To 1 Step -1 If Rows(i).Hidden Then Rows(i).Delete Next
End Sub '***
'lSteph "mobimus" @enlever> a écrit dans le message de news:
Bonjour,
J'ai une feuille de calcul où j'ai mis et appliqué un filtre.
En utilisant une macro, je voudrais maintenant supprimer toutes les lignes qui n'ont pas été filtrées.
