Selectionner cellules dont le texte est en gras et le mettre dans la colonne d'apres

Bonsoir Michel,
Si tu veux que les valeurs déplacées soit en gras dans la colonne à coté,
ôtes l'apostrophe devant la ligne :

Sub Deplacer()
Dim Plage As Range
Dim Cel As Range
'adapte le nom de la feuille et la plage
With Worksheets("Feuil1")
Set Plage = .Range(.[A1], .[A65536].End(xlUp))
End With
For Each Cel In Plage
If Cel.Font.Bold = True Then
Cel.Offset(0, 1) = Cel
'Cel.Offset(0, 1).Font.Bold = True
Cel = ""
Cel.Font.Bold = False
End If
Next Cel

Set Cel = Nothing
Set Plage = Nothing
End Sub

Hervé.

"Help Me" <yapasdemailici@dutout.com> a écrit dans le message news:
427275c4$0$5306$626a14ce@news.free.fr...

Bonjour à tous

Je rencontre le problème suivant :
j'ai un doc excel avec dans la même colonne des informations que je
souhaite

avoir mais réparties dans 2 colonnes.
je souhaite en effet décaller tous les contenus des cellules dont le
contenu

est en gras dans la colonne suivante (même ligne)

Ex :
Avant

A
B (en gras)
C
D
E (en gras)

Et j'aimerai avoir :
A
B
C
D
E

Quelqu'un pourrait m'aider ?

Merci à vous tous

Michel

Voici une macro qui pourrait fonctionner. Il te reste à la modifier au
besoin.

Sub MaSub()
Dim Fin As Long, I As Long

Fin = Cells.SpecialCells(xlCellTypeLastCell).Row

For I = 1 To Fin
If Range("A" & I).Font.Bold Then
Range("B" & I) = Range("A" & I)
Range("A" & I).Font.Bold = False
Range("A" & I) = ""
End If
Next
End Sub

Michel

Bonjour à tous

Je rencontre le problème suivant :
j'ai un doc excel avec dans la même colonne des informations que je souhaite
avoir mais réparties dans 2 colonnes.
je souhaite en effet décaller tous les contenus des cellules dont le contenu
est en gras dans la colonne suivante (même ligne)

Ex :
Avant

A
B (en gras)
C
D
E (en gras)

Et j'aimerai avoir :
A
B
C
D
E

Quelqu'un pourrait m'aider ?

Merci à vous tous

Michel