Supprimer lignes dans fichier excel

danila Messages postés 32 Statut Membre -  
hich24 Messages postés 1686 Statut Membre -
Bonjour,
j'ai un fichier excel de 21000 lignes. il comporte 2 lignes écrites puis 2 lignes vides que je voudrais supprimer automatiquement.
j'ai essayé de faire une macro mais celle-ci me supprime également les lignes écrites,
Pourriez-vous m'aider à automatiser la suppression de ces lignes vides
par avance merci
Configuration: Windows XP
Internet Explorer 7.0

5 réponses

  1. Fanadi Messages postés 68 Statut Membre 31
     
    « Sélectionner tout » puis clic « trier de A à Z »
    0
  2. Fanadi Messages postés 68 Statut Membre 31
     
    Ps: Mais, si t’as des formules à chaque ligne, tu sélectionnes avec la souris la première ligne jusqu’au dernier, et tu clic « trier de A à Z » pour que tu ne perdras pas tes formules
    0
  3. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour
    en se basant sur la colonne A:supprime la ligne vide

    Dim derlig As Long
    derlig = Range("A65536").End(xlUp).Row
    Range("A1:A" & derlig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    0
  4. hich24 Messages postés 1686 Statut Membre 753
     
    Sub supp()
    Dim Cel_vide As Range
    Dim ad_cel As Integer

    For Each Cel_vide In Range('A1:A21000')
    If Cel_vide.Value = '' Then
    ad_cel = Cel_vide.Row
    Rows(ad_cel).Delete
    End If
    Next Cel_vide
    End Sub

    ca vien de ce site : https://www.excel-downloads.com/threads/supprimer-une-ligne-si-une-cellule-est-vide.52934/
    0
    1. lermite222 Messages postés 9042 Statut Contributeur 1 199
       
      Bonjour,
      C'est pas nécessaire de faire de la pub pour d'autre site alors que la solution donnée par Michel_m est beaucoup mieux adaptée.
      A+
      0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. hich24 Messages postés 1686 Statut Membre 753
     
    desolé , je vouler seulment mettre la source ( pour garantire un peut les droit intelectuelle )
    0