Ne pas comptabiliser les chiffres barrés

[Fab117]

Salut,
J'ai une colonne avec des chiffres dont certains sont barrés.
Je souhaiterais que ma macro effectue des calculs de sommes, sans prendre en compte les caractères barrés.

J'ai essayé avec :
If Range("D" & i).Selection.Font = (Selection.Font.Strikethrough = False) Then
Mais ça ne fonctionne pas.

Quelqu'un aurait-il une solution ?

Merci d'avance et bonne soirée.

Fab

 

[Pierrot93]

Re : Ne pas comptabiliser les chiffres barrés

Bonjour,

pour tester si une cellule est "barrée"

If Range("D" & i).Font.Strikethrough = True Then 'cellule barrée

bonne soirée
@+

 

[JHA]

Re : Ne pas comptabiliser les chiffres barrés

Bonsoir à tous,

A essayer,

JHA

 

[Fab117]

Re : Ne pas comptabiliser les chiffres barrés

Super,
Merci beaucoup pour vos solutions qui fonctionnent parfaitement.

Bonne nuit.

fab