Saut de ligne

Résolu
N12ico Messages postés 3 Statut Membre -  
ccm81 Messages postés 11033 Statut Membre -
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

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
  2. N12ico Messages postés 3 Statut Membre
     
    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
  3. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
  4. N12ico Messages postés 3 Statut Membre
     
    C bon merci beaucoup
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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