Saut de ligne VBA excel 2007
Résolu
Ralph14
Messages postés
9
Date d'inscription
Statut
Membre
Dernière intervention
-
Ralph14 Messages postés 9 Date d'inscription Statut Membre Dernière intervention -
Ralph14 Messages postés 9 Date d'inscription Statut Membre Dernière intervention -
Bonjour!
Je travaille avec un fichier de plus de 500 lignes sur Excel 2007. Dans une cellule en R3, j'ai 2 noms qui sont affichés comme suit:
Alexis Lebeau Robert Bois
Je n'ai pas trouvé la façon de d'ajouter le saut de ligne pour afficher Robert Bois à la deuxième ligne de la cellule. Les 2 noms doivent être ajustés en retrait à gauche. Il y a 3 colonnes sur la feuil1 dont j'aimerais inclure ce code Vba soit en R, W et AA.
Y a t-il quelqu'un qui connaît la solution?
Je travaille avec un fichier de plus de 500 lignes sur Excel 2007. Dans une cellule en R3, j'ai 2 noms qui sont affichés comme suit:
Alexis Lebeau Robert Bois
Je n'ai pas trouvé la façon de d'ajouter le saut de ligne pour afficher Robert Bois à la deuxième ligne de la cellule. Les 2 noms doivent être ajustés en retrait à gauche. Il y a 3 colonnes sur la feuil1 dont j'aimerais inclure ce code Vba soit en R, W et AA.
Y a t-il quelqu'un qui connaît la solution?
A voir également:
- Saut de ligne VBA excel 2007
- Save as pdf office 2007 - Télécharger - Bureautique
- Aller à la ligne excel - Guide
- Partage de photos en ligne - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
2 réponses
Bonjour,
Essaie cette macro
A+
Essaie cette macro
Sub Scinder()
Dim Col, T
Dim i As Byte
Dim DerLig As Long
Dim Cel As Range
Application.ScreenUpdating = False
Col = Array(18, 23, 27) 'Colonnes R, W, AA
For i = 0 To 2
DerLig = Cells(Rows.Count, Col(i)).End(xlUp).Row
For Each Cel In Range(Cells(3, Col(i)), Cells(DerLig, Col(i)))
On Error Resume Next
T = Split(Cel, " ")
Cel.Value = T(0) & " " & T(1) & Chr(10) & T(2) & " " & T(3)
Cel.HorizontalAlignment = xlLeft
On Error GoTo 0
Next Cel
Next i
End Sub
A+
