Super urgent help !!!!suppresion ligne blanche

[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.

 

[gilbert_RGI]

Re : Super urgent help !!!!suppresion ligne blanche

Bonsoir

ça peut-être

Sub MaMacro()
For i = 2 To 65536
If IsNumeric(Cells(1, i)) Then GoTo suite
Next
suite:
Rows(i - 1 & ":65536").Select
' 'Selection.Delete Shift:=xlUp ou
Selection.EntireRow.Hidden = True
End Sub

Salutations

Gilbert_RGI

 

[saverloo]

Re : Super urgent help !!!!suppresion ligne blanche

voici la solution que j ai recu un tres tres grand merci cela fonctionne tres bien

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