supprime les blancs

[asset]

Bonsoir,

je sollicite votre aide concernant un problème de blanc entre les lignes lors de mes importation de fichier d'une autre base de données.

Mon plus gros problèmes c'est que les blancs sont jamais d'une ligne sur deux, c'est très aléatoire.

J'ai joint un fichier comme exemple.

Merci d'avance de votre aide

 

[Softmama]

Re : supprime les blancs

Bonjour,

lance cette macro :

Sub laGrosseMacro()
 ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[ROGER2327]

Re : supprime les blancs

Bonsoir asset, Softmama

Essayez d'appliquer cette procédure à vos données :

[COLOR=DarkSlateGray][B]Sub toto()
Dim i&
  For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    If IsEmpty(Cells(i, 1)) Then Cells(i, 1).EntireRow.Delete
  Next i
End Sub[/B][/COLOR]

ROGER2327
#4688

Vendredi 6 Sable 138 (Saint Navet et Perruque, humanistes, SQ)
16 Frimaire An CCXIX
2010-W49-1T21:01:26Z

 

[asset]

Re : supprime les blancs

merci roger,

ca marche parfaitement