Bonjour,

j'ai une plage de cellules fussionnées de P6 à P40!

Dans cette cellule, j'ai des phrases et je cherche à souligner uniquement les mots "Achat", "Vente" ou "Echu J+1"!

Pour le moment, j'ai essayé 2 trucs:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
        'Worksheets(feuilleReporting).Cells(ligneDebutReporting, colRepOpeRecente).Find("Achat").Font.Underline = xlUnderlineStyleSingle
        'Worksheets(feuilleReporting).Cells(ligneDebutReporting, colRepOpeRecente).Find("Vente:").Font.Underline = xlUnderlineStyleSingle
        'Worksheets(feuilleReporting).Cells(ligneDebutReporting, colRepOpeRecente).Find("Echu J+1:").Font.Underline = xlUnderlineStyleSingle
Mais ca plante!

Ou

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
        aSouligner = "Achat"
 
        Set cellule = Worksheets(feuilleReporting).Cells(ligneDebutReporting, colRepOpeRecente)
        pos = InStr(1, cellule.Value, aSouligner)
 
        cellule.Characters(pos, Len(aSouligner)).Font.Underline = xlUnderlineStyleSingle
Mais cela me souligne que le premier "Achat"!

Quelqu'un a une idée pour régler mon pb?

Merci d'avance!