texte barré dans une cellule

Bonjour,

Je doit créer un outils qui vérifie tous les fichiers Excel dans un dossier et tester / modifier plusieurs chose.

L'une de ces choses est de voir si le texte des cellules est barré (strikethrough = true)

malheureusement ce code ne peut pas fonctionner :

Code:

---

1 2 3

If Cells(X, Y).Font.Strikethrough then 'Modifier End If

---

car ce code répond vrai que si tout le texte est barré.

J'ai pensé faire un test comme ca mais je sais pas comment savoir si la lettre est barré

Code:

---

1 2 3 4 5

For Fa = 0 To Len(Cells(X, Y).Value) then If Mid(Cells(X, Y).Value, Fa, 1) = ???? then Modifier = True End If Next Fa

---

Si quelqu'un sais comment faire :)

Merci d'avance

Bonjour,

A tout hazard...

Code:

---

1 2 3 4 5

For Fa = 0 To Len(Cells(X, Y)) then If Mid(Cells(X, Y), Fa, 1).Font.Strikethrough = True then 'ton code End If Next Fa

---

Code:

---

If Cells(X, Y).Characters(Fa, 1).Font.Strikethrough = True then

---

je pense que ça marche, à confirmer...

Merci ML0808, ca marche :)

Ps : fring ce que tu propose marche pas car Font n'est pas une propriété d'une variable String (String renvoyé par Mid)