Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Ellimac
Bonjour,
Une variante :
Sub Toto() l = Range("a1").CurrentRegion.Rows.Count c = Range("a1").CurrentRegion.Columns.Count For cpt = 1 To c A = A & "RC[" & -(c + 1) + cpt & "],char(10)" & "," Next A = Left(A, Len(A) - 10) Cells(1, c + 1) = "=concatenate(" & A & ")" Cells(1, c + 1).WrapText = True Cells(1, c + 1).AutoFill Range("e1:e" & l) End Sub
Camille
-----Message d'origine----- Merci à tous je vais essayer...
.
Bonjour,
Une variante :
Sub Toto()
l = Range("a1").CurrentRegion.Rows.Count
c = Range("a1").CurrentRegion.Columns.Count
For cpt = 1 To c
A = A & "RC[" & -(c + 1) + cpt & "],char(10)" & ","
Next
A = Left(A, Len(A) - 10)
Cells(1, c + 1) = "=concatenate(" & A & ")"
Cells(1, c + 1).WrapText = True
Cells(1, c + 1).AutoFill Range("e1:e" & l)
End Sub
Camille
-----Message d'origine-----
Merci à tous
je vais essayer...
Sub Toto() l = Range("a1").CurrentRegion.Rows.Count c = Range("a1").CurrentRegion.Columns.Count For cpt = 1 To c A = A & "RC[" & -(c + 1) + cpt & "],char(10)" & "," Next A = Left(A, Len(A) - 10) Cells(1, c + 1) = "=concatenate(" & A & ")" Cells(1, c + 1).WrapText = True Cells(1, c + 1).AutoFill Range("e1:e" & l) End Sub
Camille
-----Message d'origine----- Merci à tous je vais essayer...
.
Setec Essarts
ça y est, ça marche
merci encore
"Setec Essarts" a écrit dans le message de news: 3fdd97a0$0$24019$
Merci à tous je vais essayer...
ça y est, ça marche
merci encore
"Setec Essarts" <a87essarts@setec.fr> a écrit dans le message de news:
3fdd97a0$0$24019$626a54ce@news.free.fr...
