OVH Cloud OVH Cloud

suppression de lignes

2 réponses
Avatar
bernard
bonjour à tous,
comment dans un tableau de 3000 lignes, supprimer les lignes dont la valeur
en colonne 29 est inferieure à 01/01/2005 ou supérieure à 31/12/2005
merci de me repondre
bs

2 réponses

Avatar
Pounet95
Bon(jour)soir ,

Peut-être avec un filtre automatique?
Sélectionner l'ensemble des celluels
Menu Données/Filtre automatique
Clic sur la flèche de la colonne 29
Dans la liste déroulante, sélectionner (Personnalisé)
Dans la boite de dialogue, renseigner les 2 conditions,

Quand le filtre est effectué, supprimer les lignes affichées.
OK ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"bernard" a écrit dans le message de news:
41ea8d1a$0$6601$
bonjour à tous,
comment dans un tableau de 3000 lignes, supprimer les lignes dont la
valeur
en colonne 29 est inferieure à 01/01/2005 ou supérieure à 31/12/2005
merci de me repondre
bs




Avatar
LSteph
Bonjour Bernard,
En sélectionnant les lignes et faisant un tri sur la date (colonne29) tu
peux facilement
supprimer ce qui vient avant et après.
Si tu veux seulement sélectionner les lignes de 2005 sans effacer le reste ,
Données filtre automatique
sinon en macro
Dans VBE (alt+f11)ceci dans un module standard:

'*****
Sub ACsupdif05()
Dim i
Application.ScreenUpdating = False
For i = 3001 To 2 Step -1
With Cells(i, 29)
If Format(.Value, "yyyy") <> "2005" Then
.EntireRow.Select
Selection.Delete
End If
End With
Next
Cells(2, 29).Select
Application.ScreenUpdating = True
End Sub
'*****

'lSteph
"bernard" a écrit dans le message de news:
41ea8d1a$0$6601$
bonjour à tous,
comment dans un tableau de 3000 lignes, supprimer les lignes dont la
valeur
en colonne 29 est inferieure à 01/01/2005 ou supérieure à 31/12/2005
merci de me repondre
bs