Saut de ligne
Résolu
Bonjour,
Je voudrait pouvoir afficher à la ligne sur une seule case excel les donnée qui se trouve sur cet ligne de code:
code = code + Range("A1") + Range("B1") + Range("C1") + Range("D1") + Range("E1")
il faudrait que sur la cellule les valeurs A1, B1, C1, ... s'affichent de la façon suivante:
A1
B1
C1
D1
E1
Je voudrait pouvoir afficher à la ligne sur une seule case excel les donnée qui se trouve sur cet ligne de code:
code = code + Range("A1") + Range("B1") + Range("C1") + Range("D1") + Range("E1")
il faudrait que sur la cellule les valeurs A1, B1, C1, ... s'affichent de la façon suivante:
A1
B1
C1
D1
E1
5 réponses
-
Bonjour
Ta cellule cible au format/cellule/alignement/renvoyer à la ligne automatiquement
et tu y mets la formule
=A1 & CAR(10) & A2 & CAR(10) & A3 & CAR(10) & A4 & CAR(10) & A5
et en vba
code & vblf & Range("A1") & vblf & Range("B1") & vblf & Range("C1") & vblf & Range("D1") & vblf & Range("E1")
Cdlmnt -
Merci, cependant cela n'a pas marché
Pour être plus précis je prend les valeurs qui sont sur mes cellules excel et ensuite à l'aide de vba j'utilise une boucle for pour les afficher plusieurs fois sur une seul cellule à la ligne voici mon code
Sub test2()
Dim i As Integer
Dim position As Integer
position = Range("B6")
code = ""
For i = 1 To position
code =code+Range("a1")+Range("a2")+range("a3")
Next i
Range("B10") = code
End Sub -
as tu formaté la cellule cible? ceci fonctionne
Public Sub OK()
Dim code As String
code = ""
code = code & Range("a1") & vbLf & Range("a2") & vbLf & Range("a3")
Range("c4").Value = code
Range("c4").WrapText = True
End Sub
Cdlmnt -
C bon merci beaucoup
-
Si c'est fini, peux tu mettre le sujet à résolu (en dessous du titre de ton premier message)
Bonne fin de journée
