suppression de lignes ne répondant pas à une condition
6 réponses
Cynoq
Bonjour,
Sous Excel 2003, en VBA.
J'ai dans une feuille, nommée SAISIE, en B6 une date saisie par un
utilisateur.
En B7 j'ai le nom d'un intervenant.
Sur d'autres feuilles, portant chacunes le nom de l'un des intervenants,
j'ai un ensemble de lignes comportant plusieurs élements avec dans la
colonne K une date.
Je souhaite supprimer dans la page relative à l'intervenant saisi toutes
les lignes dont la date est périmée par rapport à la date de la feuille
SAISIE.
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
Ellimac
Bonjour,
Sub Toto() Sheets(1).Select d = Range("b6") n = Range("b7") Sheets(n).Select Application.Goto Reference:="R50000C11" Selection.End(xlUp).Select While ActiveCell.Row <> 1 If ActiveCell = d Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1).Select Wend End Sub
Camille
Bonjour, Sous Excel 2003, en VBA.
J'ai dans une feuille, nommée SAISIE, en B6 une date saisie par un utilisateur. En B7 j'ai le nom d'un intervenant.
Sur d'autres feuilles, portant chacunes le nom de l'un des intervenants, j'ai un ensemble de lignes comportant plusieurs élements avec dans la colonne K une date.
Je souhaite supprimer dans la page relative à l'intervenant saisi toutes les lignes dont la date est périmée par rapport à la date de la feuille SAISIE.
Comment puis-je faire ?
Merci par avance pour votre aide.
A bientôt.
Bonjour,
Sub Toto()
Sheets(1).Select
d = Range("b6")
n = Range("b7")
Sheets(n).Select
Application.Goto Reference:="R50000C11"
Selection.End(xlUp).Select
While ActiveCell.Row <> 1
If ActiveCell = d Then ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1).Select
Wend
End Sub
Camille
Bonjour,
Sous Excel 2003, en VBA.
J'ai dans une feuille, nommée SAISIE, en B6 une date saisie par un
utilisateur.
En B7 j'ai le nom d'un intervenant.
Sur d'autres feuilles, portant chacunes le nom de l'un des intervenants,
j'ai un ensemble de lignes comportant plusieurs élements avec dans la
colonne K une date.
Je souhaite supprimer dans la page relative à l'intervenant saisi toutes
les lignes dont la date est périmée par rapport à la date de la feuille
SAISIE.
Sub Toto() Sheets(1).Select d = Range("b6") n = Range("b7") Sheets(n).Select Application.Goto Reference:="R50000C11" Selection.End(xlUp).Select While ActiveCell.Row <> 1 If ActiveCell = d Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1).Select Wend End Sub
Camille
Bonjour, Sous Excel 2003, en VBA.
J'ai dans une feuille, nommée SAISIE, en B6 une date saisie par un utilisateur. En B7 j'ai le nom d'un intervenant.
Sur d'autres feuilles, portant chacunes le nom de l'un des intervenants, j'ai un ensemble de lignes comportant plusieurs élements avec dans la colonne K une date.
Je souhaite supprimer dans la page relative à l'intervenant saisi toutes les lignes dont la date est périmée par rapport à la date de la feuille SAISIE.
Comment puis-je faire ?
Merci par avance pour votre aide.
A bientôt.
Cynoq
Merci, mais j'ai une erreur systématiquement sur la ligne Sheets(n).Select. Pourtant ma feuille correspondant à la valeur saisie en B7 existe.
"Ellimac" a écrit dans le message de news:
Bonjour,
Sub Toto() Sheets(1).Select d = Range("b6") n = Range("b7") Sheets(n).Select Application.Goto Reference:="R50000C11" Selection.End(xlUp).Select While ActiveCell.Row <> 1 If ActiveCell = d Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1).Select Wend End Sub
Camille
Bonjour, Sous Excel 2003, en VBA.
J'ai dans une feuille, nommée SAISIE, en B6 une date saisie par un utilisateur. En B7 j'ai le nom d'un intervenant.
Sur d'autres feuilles, portant chacunes le nom de l'un des intervenants, j'ai un ensemble de lignes comportant plusieurs élements avec dans la colonne K une date.
Je souhaite supprimer dans la page relative à l'intervenant saisi toutes les lignes dont la date est périmée par rapport à la date de la feuille SAISIE.
Comment puis-je faire ?
Merci par avance pour votre aide.
A bientôt.
Merci, mais j'ai une erreur systématiquement sur la ligne Sheets(n).Select.
Pourtant ma feuille correspondant à la valeur saisie en B7 existe.
"Ellimac" <Ellimac@discussions.microsoft.com> a écrit dans le message de
news: 94EB8E23-A943-4F45-BB3E-503C15710124@microsoft.com...
Bonjour,
Sub Toto()
Sheets(1).Select
d = Range("b6")
n = Range("b7")
Sheets(n).Select
Application.Goto Reference:="R50000C11"
Selection.End(xlUp).Select
While ActiveCell.Row <> 1
If ActiveCell = d Then ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1).Select
Wend
End Sub
Camille
Bonjour,
Sous Excel 2003, en VBA.
J'ai dans une feuille, nommée SAISIE, en B6 une date saisie par un
utilisateur.
En B7 j'ai le nom d'un intervenant.
Sur d'autres feuilles, portant chacunes le nom de l'un des intervenants,
j'ai un ensemble de lignes comportant plusieurs élements avec dans la
colonne K une date.
Je souhaite supprimer dans la page relative à l'intervenant saisi toutes
les lignes dont la date est périmée par rapport à la date de la feuille
SAISIE.
Merci, mais j'ai une erreur systématiquement sur la ligne Sheets(n).Select. Pourtant ma feuille correspondant à la valeur saisie en B7 existe.
"Ellimac" a écrit dans le message de news:
Bonjour,
Sub Toto() Sheets(1).Select d = Range("b6") n = Range("b7") Sheets(n).Select Application.Goto Reference:="R50000C11" Selection.End(xlUp).Select While ActiveCell.Row <> 1 If ActiveCell = d Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1).Select Wend End Sub
Camille
Bonjour, Sous Excel 2003, en VBA.
J'ai dans une feuille, nommée SAISIE, en B6 une date saisie par un utilisateur. En B7 j'ai le nom d'un intervenant.
Sur d'autres feuilles, portant chacunes le nom de l'un des intervenants, j'ai un ensemble de lignes comportant plusieurs élements avec dans la colonne K une date.
Je souhaite supprimer dans la page relative à l'intervenant saisi toutes les lignes dont la date est périmée par rapport à la date de la feuille SAISIE.
Comment puis-je faire ?
Merci par avance pour votre aide.
A bientôt.
Cynoq
A quoi correspond la ligne Application.Goto Reference:="R50000C11"
Merci pour l'info.
A quoi correspond la ligne
Application.Goto Reference:="R50000C11"
A quoi correspond la ligne Application.Goto Reference:="R50000C11"
Merci pour l'info.
Ellimac
Vérifier si la valeur en B7 est vraiment identique, par exemple qu'il n'y a pas un ou plusieurs espaces.
Camille
Merci, mais j'ai une erreur systématiquement sur la ligne Sheets(n).Select. Pourtant ma feuille correspondant à la valeur saisie en B7 existe.
"Ellimac" a écrit dans le message de news:
Bonjour,
Sub Toto() Sheets(1).Select d = Range("b6") n = Range("b7") Sheets(n).Select Application.Goto Reference:="R50000C11" Selection.End(xlUp).Select While ActiveCell.Row <> 1 If ActiveCell = d Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1).Select Wend End Sub
Camille
Bonjour, Sous Excel 2003, en VBA.
J'ai dans une feuille, nommée SAISIE, en B6 une date saisie par un utilisateur. En B7 j'ai le nom d'un intervenant.
Sur d'autres feuilles, portant chacunes le nom de l'un des intervenants, j'ai un ensemble de lignes comportant plusieurs élements avec dans la colonne K une date.
Je souhaite supprimer dans la page relative à l'intervenant saisi toutes les lignes dont la date est périmée par rapport à la date de la feuille SAISIE.
Comment puis-je faire ?
Merci par avance pour votre aide.
A bientôt.
Vérifier si la valeur en B7 est vraiment identique, par exemple qu'il n'y a
pas un ou plusieurs espaces.
Camille
Merci, mais j'ai une erreur systématiquement sur la ligne Sheets(n).Select.
Pourtant ma feuille correspondant à la valeur saisie en B7 existe.
"Ellimac" <Ellimac@discussions.microsoft.com> a écrit dans le message de
news: 94EB8E23-A943-4F45-BB3E-503C15710124@microsoft.com...
Bonjour,
Sub Toto()
Sheets(1).Select
d = Range("b6")
n = Range("b7")
Sheets(n).Select
Application.Goto Reference:="R50000C11"
Selection.End(xlUp).Select
While ActiveCell.Row <> 1
If ActiveCell = d Then ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1).Select
Wend
End Sub
Camille
Bonjour,
Sous Excel 2003, en VBA.
J'ai dans une feuille, nommée SAISIE, en B6 une date saisie par un
utilisateur.
En B7 j'ai le nom d'un intervenant.
Sur d'autres feuilles, portant chacunes le nom de l'un des intervenants,
j'ai un ensemble de lignes comportant plusieurs élements avec dans la
colonne K une date.
Je souhaite supprimer dans la page relative à l'intervenant saisi toutes
les lignes dont la date est périmée par rapport à la date de la feuille
SAISIE.
Vérifier si la valeur en B7 est vraiment identique, par exemple qu'il n'y a pas un ou plusieurs espaces.
Camille
Merci, mais j'ai une erreur systématiquement sur la ligne Sheets(n).Select. Pourtant ma feuille correspondant à la valeur saisie en B7 existe.
"Ellimac" a écrit dans le message de news:
Bonjour,
Sub Toto() Sheets(1).Select d = Range("b6") n = Range("b7") Sheets(n).Select Application.Goto Reference:="R50000C11" Selection.End(xlUp).Select While ActiveCell.Row <> 1 If ActiveCell = d Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1).Select Wend End Sub
Camille
Bonjour, Sous Excel 2003, en VBA.
J'ai dans une feuille, nommée SAISIE, en B6 une date saisie par un utilisateur. En B7 j'ai le nom d'un intervenant.
Sur d'autres feuilles, portant chacunes le nom de l'un des intervenants, j'ai un ensemble de lignes comportant plusieurs élements avec dans la colonne K une date.
Je souhaite supprimer dans la page relative à l'intervenant saisi toutes les lignes dont la date est périmée par rapport à la date de la feuille SAISIE.
Comment puis-je faire ?
Merci par avance pour votre aide.
A bientôt.
Cynoq
ok, merci.
"Ellimac" a écrit dans le message de news:
Cellule ligne 50000 colonne 11 donc K50000
A quoi correspond la ligne Application.Goto Reference:="R50000C11"
Merci pour l'info.
ok,
merci.
"Ellimac" <Ellimac@discussions.microsoft.com> a écrit dans le message de
news: 272D999D-725E-4493-9EF0-34E56D6EB1D9@microsoft.com...
Cellule ligne 50000 colonne 11 donc K50000
A quoi correspond la ligne
Application.Goto Reference:="R50000C11"