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
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 voir également:
- Saut de ligne VBA excel 2007
- Aller à la ligne excel - Guide
- Liste déroulante excel - Guide
- Site de vente en ligne particulier - Guide
- Formule excel - Guide
- Partage de photos en ligne - Guide
2 réponses
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
13 juin 2014 à 06:47
13 juin 2014 à 06:47
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+
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
13 juin 2014 à 14:59
Ça marche!
Merci Gyrus!
J'ai passé beaucoup de temps à chercher la solution!
A+
Merci Gyrus!
J'ai passé beaucoup de temps à chercher la solution!
A+