Fonction Left

[Jultra]

Bonjour à tous,

Je désire recopier les 5 premiers caractères de plusieurs cellules d'une base de données dans une autre cellule.

J'utilise la fonction left, de type:
=LEFT('Prog General'!A2;5)

Mais j'ai un problème car certaines des cellules de la base de données sont en gras, d'autres en bleu et d'autres en caractère normal.
La fonction left me recopie tout en normal.
Comment pourrais-je obtenir dans ma nouvelle sélection les cases en gras et en bleu?

Merci d'avance pour votre aide et bonne journée.

 

[PhiBou]

Bonjour Jultra, le Forum

Les données en A1:A10 ---> résultats en B1:B10

Sub Copie()
Range("A1:A10").Copy Destination:=Range("B1:B10")
For i = 1 To 10
Cells(i, 2) = Left(Cells(i, 2), 5)
Next i
End Sub

Bonne journée

PhiBou