Suppression de ligne si pas date

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
R
Rnxisma
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 31 mars 2020
Version d'Excel : 2019

Message par Rnxisma » 31 mars 2020, 17:15

Bonjour à tous,

le télétravail nous oblige à se passer des collègues...
Je suis néophyte en VBA.
Je dois épurer une vingtaine de fichiers excel.
j'aurais besoin d'une macro qui supprime toutes les lignes d'un fichier dont la colonne "A" ne contient pas une date au format JJ/MM/AAAA.

Alors si quelqu'un peut venir à mon secours....
Merci beaucoup !
René. :thx:
Avatar du membre
xorsankukai
Membre impliqué
Membre impliqué
Messages : 2'327
Appréciations reçues : 263
Inscrit le : 7 octobre 2014
Version d'Excel : 2010 FR

Message par xorsankukai » 31 mars 2020, 17:25

Bonjour Rnxisma, le forum,

Un essai....
Sub SuprimLig()
 Dim derlig
     derlig = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
     
     Application.ScreenUpdating = False
     
  For i = derlig To 2 Step -1
    If Not IsDate(Cells(i, "A")) Then
     Rows(i).EntireRow.Delete
    End If
  Next i
End Sub
suprimLig.xlsm
(19.93 Kio) Téléchargé 2 fois


Cordialement,
xorsankukai

La connaissance, c’est partager le savoir qui nous fait grandir.
R
Rnxisma
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 31 mars 2020
Version d'Excel : 2019

Message par Rnxisma » 31 mars 2020, 20:07

Bonsoir à tous,
Merci à xorsankukai.

Ca fonctionne parfaitement.
Je vais affiner pour inclure ce script dans ma macro générale, histoire de bien optimiser ce type de tâche.

Je viens de découvrir ce forum, et je crois bien que je vais devenir accro.
:wink:

Bonne continuation à tous,
René.
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message