Coucou Mytå ET Valérie et le Forum...
Ce matin j'avais vu ce post de Mytå en buvant mon café mais depuis je n'ai pas eu de temps à y consacrer (ni à personne du Forum d'ailleurs)
C'est très ingénieux Valérie ton système, et ce doit être plus rapide à l'exécution que mon idée (voir plus bas) toutefois tu as un ".font" de trop en fin de ligne...
Sub TestValerie()
With ActiveCell.Characters(Start:=21, Length:=Len(ActiveCell) - 20).Font
.Bold = True
.ColorIndex = 8
End With
Moi de mon coté j'avais pensé à une boucle comme ceci :
Sub MytaSpecial()
Dim F As String
Dim D As Date
Dim MySTring As String
Dim i As Byte
F = "Dernière Facture le "
D = Now
MySTring = F & Format(D, "DD-Mmm-YYYY")
Range("a1") = MySTring
With Worksheets("Sheet1").Range("A1")
.Value = MySTring
For i = 20 To 31
.Characters(i).Font.Bold = True
.Characters(i).Font.Color = RGB(255, 0, 0)
i = i + 1
Next i
End With
End Sub
Comme quoi en VBA il y a mille et un moyen d'arriver à sa solution... et passant par des chemins divers et variés que nous pouvons échanger au sein de ce forum.
Bien à Toi Valérie
Bien à Toi Mytå
Bon aprèm à tous et toutes
@+Thierry