Modification d'une partie d'un code / attribution d'une police

Fermé
ravemon Messages postés 4 Date d'inscription jeudi 25 octobre 2012 Statut Membre Dernière intervention 16 décembre 2016 - 25 oct. 2012 à 16:01
ravemon Messages postés 4 Date d'inscription jeudi 25 octobre 2012 Statut Membre Dernière intervention 16 décembre 2016 - 25 oct. 2012 à 18:29
Bonjour,

actuellement j'ai ce code

00022006002007AN

et je souhaiterais arrivé à ça

0002"2006"002007AN

c'est a dire "2006" étant l'année je souhaite lui attribuer une couleur de police style rouge et gras

merci de votre aide

ray





A voir également:

2 réponses

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
25 oct. 2012 à 17:09
Bonjour,

Si c'est manuellement :
met-toi en édition de la formule, sélectionne tes 4 caractères et applique Gras et Rouge.

Par macro :
Sub coloreAnnée()
    Dim c As Range
    For Each c In Selection
        With c.Characters(Start:=5, Length:=4).Font
            .FontStyle = "Gras"
            .ColorIndex = 3
        End With
    Next c
End Sub
Sélectionne la plage et lance la macro. Toutes les cellules seront traitées.

eric
0
ravemon Messages postés 4 Date d'inscription jeudi 25 octobre 2012 Statut Membre Dernière intervention 16 décembre 2016
25 oct. 2012 à 18:29
manuellement ça c'est bon je veux l'automatiser pour 600 lignes donc je testerais ta macro demain au taf même si la je maîtrise pas du tout

merci de ton aide

je vous tiens au courant

ray
0