Help supression ligne blanche en dessous

[saverloo]

Bonjour,

voila j'ai sur une feuille excell un listing avec des données. afin de pouvoir cloturer mon dossier et l'envoyer en format XML il ne peux avoir des ligne vierge a la fin du document. donc j'aimerais savoir comment je peux faire sous excell 2007 pour que les lignes en dessous de la derniere information dans la colonne A soit automatiquement supprimée( aussi bien les lignes blanches que les ligne #N/A. biensur pas avec un filtre et autres car frocément dans le format XML les lignes blanches seront visibles.
donc je pensais a une macro bouton qui supprimerait les lignes en dessous avant l'envoi en XML.
je ne peux mettre le fichier complet en annexe car il fait deja 8 Mo donc je met un copier coller de la feuille en annexe. j'espere que quelqu'un pourra m'aider car cela fait des mois que je bosse sur ce fichier et c'est le seul point qui me reste a faire alors merci d'avance pour votre aide.

 

[Guest]

Re : Help supression ligne blanche en dessous

Bonjour,

Voici une macro qui peut s'appliquer à n'importe quelle feuille.

Sub SuppressionsLignes()
Dim idxLigne As Variant
'Chercher la dernière ligne avec une valeur numérique de la colonne A
idxLigne = Application.Match(9 ^ 9, Range("A:A"), 1)
'Si trouvée
If Not IsError(idxLigne) Then
   'Supprimer les lignes de idxLigne+1 à la fin de la feuille
    Range(Cells(idxLigne + 1, 1), Cells(Rows.Count, 1)).EntireRow.Delete
End If
End Sub

A+

 

[saverloo]

Re : Help supression ligne blanche en dessous

UN TRES TRES grand merci cela fonctionne hyper bien exactement ce que je cherchai