Bonjour,

J'ai un fichier excel contenant des cellules dans lesquelles ont trouve des mots en caractères barrés.
Je dois mettre le mot sauf devant les parties barrées. Le code ci dessous fonctionne pour certaines cellules, mais si la cellule contient des termes non barrés cela ne fonctionne pas. Il faut donc que je teste la présence du striketrough sur chaque caractères de chaque cellule.

Merci pour vos réponses
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Dim i As Integer
Dim sContenu As String
For i = 1 To 5000
        Range("A" + CStr(i)).Select
        sContenu = ActiveCell.FormulaR1C1
        If ActiveCell.Font.Strikethrough = True Then
            ActiveCell.FormulaR1C1 = "sauf " + sContenu
            ActiveCell.Font.Strikethrough = False
            ActiveCell.Font.Color = vbRed
        End If