J'utilise le code suivant pour filtrer suivant une condition, supprimer les
lignes qui répondent à la condition et réafficher toute la base. Le fichier
change tous les jours.
Le problème c'est lorsqu'il n'y a pas de ligne à supprimer. Mon code me
supprime la ligne des champs.
Que dois je faire pour qu'il ne se passe rien si le résultat du filtre est
vide ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonsoir,
On Error Resume Next Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _ Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
JB
On 4 avr, 19:53, "Bruno RCSC" wrote:
Bonsoir,
Win XP, Excel 2002
J'utilise le code suivant pour filtrer suivant une condition, supprimer l es lignes qui répondent à la condition et réafficher toute la base. Le fichier change tous les jours.
Le problème c'est lorsqu'il n'y a pas de ligne à supprimer. Mon code me supprime la ligne des champs. Que dois je faire pour qu'il ne se passe rien si le résultat du filtre est vide ?
Merci pour votre aide.
BH.
Bonsoir,
On Error Resume Next
Range("_FilterDataBase").Offset(1,
0).Resize(Range("_FilterDataBase"). _
Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete
Shift:=xlUp
JB
On 4 avr, 19:53, "Bruno RCSC" <ats....@wanadoo.fr> wrote:
Bonsoir,
Win XP, Excel 2002
J'utilise le code suivant pour filtrer suivant une condition, supprimer l es
lignes qui répondent à la condition et réafficher toute la base. Le fichier
change tous les jours.
Le problème c'est lorsqu'il n'y a pas de ligne à supprimer. Mon code me
supprime la ligne des champs.
Que dois je faire pour qu'il ne se passe rien si le résultat du filtre est
vide ?
On Error Resume Next Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _ Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
JB
On 4 avr, 19:53, "Bruno RCSC" wrote:
Bonsoir,
Win XP, Excel 2002
J'utilise le code suivant pour filtrer suivant une condition, supprimer l es lignes qui répondent à la condition et réafficher toute la base. Le fichier change tous les jours.
Le problème c'est lorsqu'il n'y a pas de ligne à supprimer. Mon code me supprime la ligne des champs. Que dois je faire pour qu'il ne se passe rien si le résultat du filtre est vide ?