Excel séparer le gras du non gras

Bonsoir,

J'ai un fichier Excel contenant plus de 1000 lignes. Il n'y a qu'une seule colonne (col A). Chaque début de ligne commence par du gras puis se termine par des caractères non gras.

Je souhaiterais savoir comment garder les caractères en gras en début de ligne sur la colonne A et séparer le reste sur la colonne B.

Merci

P.-S. Je ne peux pas utiliser convertir->largeur fixe car les caractrèes en gras sont trop variables selon les lignes.

Merci

Salut le forum

Essaye ceci pour voir

Sub Split_Bold()
Dim Cel As Range
Dim i As Integer

For Each Cel In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
 With Cel
  For i = 1 To Len(.Value)
    If .Characters(i, 1).Font.Bold = False Then
        .TextToColumns Destination:=Range(.Address), DataType:=xlFixedWidth, _
            FieldInfo:=Array(Array(0, 1), Array(i - 1, 1)), TrailingMinusNumbers:=True
        Exit For
    End If
  Next i
 End With
Next Cel

End Sub

Mytå

Alors la je suis bluffé. Cela a fonctionné à merveille.

Merci beacoup à toi Mytå .

Re le fotum

Au plaisir de t'aider de nouveau,

Bonne fin de soirée

Mytå

Oui merci à toi de m'aider à nouveau. Tu m'avais aussi énnormément aidé il y a deux ans auparavant

Mytå a écrit :

Salut le forum

Essaye ceci pour voir

Sub Split_Bold()
Dim Cel As Range
Dim i As Integer

For Each Cel In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
 With Cel
  For i = 1 To Len(.Value)
    If .Characters(i, 1).Font.Bold = False Then
        .TextToColumns Destination:=Range(.Address), DataType:=xlFixedWidth, _
            FieldInfo:=Array(Array(0, 1), Array(i - 1, 1)), TrailingMinusNumbers:=True
        Exit For
    End If
  Next i
 End With
Next Cel

End Sub

Mytå

Bonjour,

Avant tout un grand merci pour votre grand savoir technique (je présise que je suis débutant en macro).

Je voudrais copier cette macro pour séparer les mots en gras , comment insérer la macro étape par étape.

J'ai tenté de l'insérer en faisant "alt+F11" ,

et insérer module,

puis copier coller de la macro ci-dessus

puis "alt+q"

puis "alt+F8"

puis entrer pour exécuter la macro,

mais ça ne réagit pas.

J'ai également une question : comment séparer les mots par leur police de caractères . Par exemple : regrouper les mots qui ont

la police "arial" seulement.

Merci pour vos réponses.