Suppression plage de données

[Gexk5]

Bonjour le forum
Encore un petit soucis, j'ai un classeur ou je transfert et trie des données d'un onglet a un autre, petit bug ou erreur de formule quelque part??, plus de 90000 lignes sont ainsi prisent en compte.
Le problème est que de temps en temps j'ai des valeurs qui se baladent( inutiles).
Pour palier a ce probleme ( en attendant que je trouve l'erreur), je voudrais supprimer toutes les valeurs des colonnes A B et C jusqu"a la derniere lignes ou je retrouve les 3 valeurs sur la meme ligne.
Pour etre plus clair, un petit fichier joint en exemple.
Merci d'avance aux exceliens et exceliennes

 

[Robert]

Re : Suppression plage de données

Bonjour Gexk, bonjnour le forum,

Si j'ai bien compris..., cette macro à tester :

Sub Macro1()
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim x As Long 'déclare la variable x
 
dl = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row 'définit la variable dl
For x = dl To 1 Step -1 'boucle sur toutes les lignes en partant de la dernière
    'supprime la ligne si il y a trois valeurs
    If Cells(x, 1) <> "" And Cells(x, 2) <> "" And Cells(x, 3) <> "" Then Cells(x, 1).EntireRow.Delete
    'supprime la ligne si il y a aucune valeur
    If Cells(x, 1) = "" And Cells(x, 2) = "" And Cells(x, 3) = "" Then Cells(x, 1).EntireRow.Delete
Next x
End Sub

 

[Gexk5]

Re : Suppression plage de données

Re le forum, robert
Merci pour ton aide, en fait tu as compris a l'envers (lol)
Mais merci pour le code , je l'ai adapté et ca fonctionne comme je veux.
Merci encore
@+

 

[Robert]

Re : Suppression plage de données

Bonsoir Gexk, bonsoir le forum,

Merci pour ton aide, en fait tu as compris a l'envers (lol)

Tu penses, si je comprenais à l'endroit ça se saurait dans le forum...