Saut de ligne VBA excel 2007 [Résolu/Fermé]

Signaler
Messages postés
9
Date d'inscription
vendredi 13 juin 2014
Statut
Membre
Dernière intervention
25 juin 2014
-
Messages postés
9
Date d'inscription
vendredi 13 juin 2014
Statut
Membre
Dernière intervention
25 juin 2014
-
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

Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
509
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+
Messages postés
9
Date d'inscription
vendredi 13 juin 2014
Statut
Membre
Dernière intervention
25 juin 2014

Ça marche!

Merci Gyrus!

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

A+