Supprimer des lignes vides

Bonjour

Je reste un débutant avec Excel.

Je pense que la solution passe par une macro mais je n'en ai jamais écrite.

J'ai récupéré un fichier de données d'un autre système mais il y a énormément de lignes vides.

Comment contracter ce fichier et le rendre un peu plus lisible en les supprimant toutes.

J'ai browsé le cours VBA et si je suis d'accord que c'est une boucle, je n'arrive pas à trouver la condition d'éligibilité.

Je ne sais même pas comment identifier la dernière case utilisée.

Dans le fichier joint les lignes à supprimer sont en rouge.

Merci d'avance de votre aide

Bonne journée du Nord de la France encore sous la neige.

Marc

Bonjour,

le fichier n'est pas passé, il doit être trop volumineux.

enlèves des lignes pour l'alléger ou passes par le site http://cjoint.com/

Cordialement,

Bonjour à tous,

ici, on contrôle la colonne "A", si cellule vide on supprime la ligne entière

Sub SuppimeVides()
Dim Lg&
    Application.ScreenUpdating = False
    Lg = Cells.Find("*", , , , xlByRows, xlPrevious).Row                'dernière ligne
    On Error Resume Next
    Range("a2:a" & Lg).SpecialCells(xlCellTypeBlanks).EntireRow.Delete  'à régler
End Sub

Bonne journée

Claude

Bonjour

Sans nouvelles de vous, c'est que quelque chose s'est mal passé.

En effet je ne vois pas le message envoyé hier avec le fichier joint.

La réponse donnée avec la première colonne à vide n'est pas suffisante pour moi malheureusement.

C'est bien quand toute la ligne est vide qu'on peut supprimer.

Je vous remercie par avance de vos réponses.

J'ai vraiment l'impression de travailler avec des volontés bienveillantes autour ayant la volonté de me sortir de l'ornière comme quand je faisais de la moto.

Bonne journée

Marc

Bonjour à tous,

Pour joindre un fichier, utilise plutôt la méthode classique

Ton fichier comporte plusieurs lignes à hauteur 0 (zéro)

ici, on les remet à hauteur 15

Sub SuppLignesVides()
Dim Lg&
    Application.ScreenUpdating = False
    '--- formate les lignes (certaines sont à hauteur 0)---
    Cells.RowHeight = 15
    Rows(2).RowHeight = 50
    Lg = Cells.Find("*", , , , xlByRows, xlPrevious).Row

    '--- filtre les lignes vides de A à Q ---
    Range("t2") = "=COUNTA(a9:q9)=0" 'critère

    Range("a8:q" & Lg).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Range("t1:t2"), Unique:=False
    Range("t2").ClearContents

    '--- supprime les lignes filtrées (vides)
    On Error Resume Next
    Range("a9:q" & Lg).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    ActiveSheet.ShowAllData
End Sub

Bonne journée

Claude

Merci Claude

Après avoir activé la modification et les macros, ça a marché dans le fichier que tu m'as rendu !

Absolument confus : je n'avais pas vu le second onglet. Merci.

J'ai vu une émission sur le cerveau sur Arté avec ce qu'on voit, voit pas, ce que le cerveau éjecte etc. Notamment avec une scéne de passes de ballon avec plusieurs joueurs où un gars déguisé en gorille traverse et tu ne le vois pas scotché que tu es à suivre la trajectoire du ballon. J'ai la même impression après avoir lu ta réponse ! Honteux presque.

Merci encore

Et en ouvrant mon fichier original j'ai pu lui appliquer la macro disponible dans Affichage

Je coche Résolu après avoir envoyé le message : c'est dommage cette passe en deux temps !