Re : Macro retour à la ligne après chaque majuscule
Bonjour à tous
ma contribution à développer
Sub transformecolonnec()
Set i = ActiveCell
ndeb = 1
ndeb2 = 1
'For Each i In ActiveSheet.Columns(3).Rows
Do
nfin = InStr(ndeb2, i, " ")
If nfin = 0 Then
nfin = Len(i)
ndeb = ndeb - 1
End If
lettre = Mid(i, ndeb2 + nfin - ndeb2 + 1, 1)
If UCase(lettre) = lettre And IsNumeric(lettre) = False Then flag = 1 Else flag = 0
If flag = 1 Then
phrase = phrase & Mid(i, ndeb, nfin - ndeb) & Chr(10)
If ndeb <> nfin Then ndeb = nfin + 1
ndeb2 = ndeb
Else
ndeb2 = nfin + 1
End If
Loop While nfin <> ndeb
i.Offset(0, 1) = phrase
'Next
End Sub