XL 2010 Suppression de lignes vides

[Philippe LAMACHE]

Bonjour à tous,

J'ai ce petit bout de code (récupéré sur le net) pour concaténer plusieurs cellules en une :

Sub Concatener_TXT()
Cells(2, 2).ClearContents
For i = 1 To 50
    Cells(2, 2) = Cells(2, 2) & Chr(10) & Cells(i, 1)
Next
Columns("A:B").ColumnWidth = 50
Columns("A:B").AutoFit
End Sub

Par contre il me fait des "lignes vides" dans ma cellule concaténée.

Quelqu'un aurait-il la solution pour les supprimer ?

Par avance, merci.

 

[Philippe LAMACHE]

Re,

J'ai modifié mon code : Remplacé 50 (For i = 1 To 50) par "Dernière ligne" et il ne me reste plus qu'une ligne vide au début de ma cellule.

Sub Concatener_TXT()
Cells(2, 2).ClearContents
For i = 1 To Range("A1048576").End(xlUp).Row
    Cells(2, 2) = Cells(2, 2) & Chr(10) & Cells(i, 1)
Next
Columns("A:B").ColumnWidth = 50
Columns("A:B").AutoFit
End Sub

 

[Hasco]

Bonjour,

Sans doute, des cellules vides dans la colonne de données.

For i = 1 To Range("A1048576").End(xlUp).Row
   If Cells(i,1)<>"" Then Cells(2, 2) = Cells(2, 2) & Chr(10) & Cells(i, 1)
Next
'
'  OU
'For i = 1 To Range("A1048576").End(xlUp).Row
'   If Not IsEmpty(Cells(i,1)) Then Cells(2, 2) = Cells(2, 2) & Chr(10) & Cells(i, 1)
'Next

Cordialement

 

[frangy]

Bonjour,

A tester ...

Sub Concatener_TXT()
Dim i As Long
    Cells(2, 2).ClearContents
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
        Cells(2, 2) = Cells(2, 2) & Chr(10) & Cells(i, 1)
    Next
    Cells(2, 2) = Right(Cells(2, 2), Len(Cells(2, 2)) - 1)
    Columns("A:B").ColumnWidth = 50
    Columns("A:B").AutoFit
End Sub

Cordialement.

 

[Philippe LAMACHE]

Bonjour Roblochon,
Bonjour frangy,

Désolé mais mon problème n'est pas là.
Je n'ai pas de cellules vides dans ma colonne "A" du fait que le créée une liste de fichiers sans extension contenus dans un répertoire.

Je pars de ça :

et quand j'exécute mon code, voici mon résultat :

Ce sont les deux premières lignes que je ne voudrait pas. (1ère ligne vide et 2ème ligne "Nom du ...").

 

[Philippe LAMACHE]

Bonjour,

A tester ...

Sub Concatener_TXT()
Dim i As Long
    Cells(2, 2).ClearContents
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
        Cells(2, 2) = Cells(2, 2) & Chr(10) & Cells(i, 1)
    Next
    Cells(2, 2) = Right(Cells(2, 2), Len(Cells(2, 2)) - 1)
    Columns("A:B").ColumnWidth = 50
    Columns("A:B").AutoFit
End Sub

Cordialement.

Bonjour,
La ligne vide disparaît mais je n'arrive pas à enlever le texte de la cellule A1.

 

[Hasco]

Bonjour,

Relisez votre demande du post 1. Ce que vous demandez est différents!

Ca m'apprendra à ne pas répondre aux demandes sans fichier!

Bon après-midi

 

[Philippe LAMACHE]

Re,

En fait, j'ai supprimé le texte en cellule A1 (dans ma procédure de récupération de fichiers), comme la liste commence en A1, le code de frangy me satisfait parfaitement.

Merci à tous.

 

[Philippe LAMACHE]

Bonjour,

Relisez votre demande du post 1. Ce que vous demandez est différents!

Ca m'apprendra à ne pas répondre aux demandes sans fichier!

Bon après-midi

Oui, je me suis aperçu, lors de vos réponses, que j'avais mal transcrit ma pensée. C'est pour cela que j'ai mis des images dans un autre commentaire.
Désolé.

 

[frangy]

Re,

Sinon ...

Sub Concatener_TXT()
Dim i As Long
    Cells(2, 2).ClearContents
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        Cells(2, 2) = Cells(2, 2) & Chr(10) & Cells(i, 1)
    Next
    Cells(2, 2) = Right(Cells(2, 2), Len(Cells(2, 2)) - 1)
    Columns("A:B").ColumnWidth = 50
    Columns("A:B").AutoFit
End Sub

Cordialement.

 

[Staple1600]

Bonjour le fil,

Une autre façon (sans boucle)

Sub test()
Dim t
t = Application.Transpose(Range([A2], Cells(Rows.Count, 1).End(3)))
[B2] = Join(t, Chr(10))
End Sub