Sujet Précédent Sujet Suivant

Saut de ligne VBA excel 2007

Résolu/Fermé
Ralph14
Messages postés
9
Date d'inscription
vendredi 13 juin 2014
Statut
Membre
Dernière intervention
25 juin 2014
 - 13 juin 2014 à 04:32
Ralph14
Messages postés
9
Date d'inscription
vendredi 13 juin 2014
Statut
Membre
Dernière intervention
25 juin 2014
 - 13 juin 2014 à 14:59
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?

2 réponses

Réponse 1 / 2
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
 530
13 juin 2014 à 06:47
Bonjour,

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+
0
Réponse 2 / 2
Ralph14
Messages postés
9
Date d'inscription
vendredi 13 juin 2014
Statut
Membre
Dernière intervention
25 juin 2014
13 juin 2014 à 14:59
Ça marche!

Merci Gyrus!

J'ai passé beaucoup de temps à chercher la solution!

A+
0