Discussion :

[nawake]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

Bonjour,

A tout hazard...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ML0808]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[nawake]

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)