Saut de ligne

Résolu/Fermé
N12ico Messages postés 3 Date d'inscription mercredi 20 avril 2016 Statut Membre Dernière intervention 20 avril 2016 - 20 avril 2016 à 14:50
ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 - 20 avril 2016 à 16:53
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

5 réponses

ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 425
Modifié par ccm81 le 20/04/2016 à 14:58
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
0
N12ico Messages postés 3 Date d'inscription mercredi 20 avril 2016 Statut Membre Dernière intervention 20 avril 2016
20 avril 2016 à 15:07
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
0
ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 425
20 avril 2016 à 15:17
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
0
N12ico Messages postés 3 Date d'inscription mercredi 20 avril 2016 Statut Membre Dernière intervention 20 avril 2016
20 avril 2016 à 15:41
C bon merci beaucoup
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 425
20 avril 2016 à 16:53
Si c'est fini, peux tu mettre le sujet à résolu (en dessous du titre de ton premier message)

Bonne fin de journée
0