MFC excel

Bonsoir,

Si tu supprimes des valeurs ce n'est plus de la mise en forme.

Sub suppBarré()
    Dim c As Range
    For Each c In [A1].Resize(Cells(Rows.Count, 1).End(xlUp).Row)
        If c.Font.Strikethrough Then c = ""
    Next c
End Sub 

eric

Bonjour amine69500.

Pourquoi te compliquer ainsi la vie ? Au lieu de barrer le contenu de la cellule et de demander à Excel d'effacer ce que tu viens de barrer, pourquoi ne pas supprimer directement le contenu de la cellule ? Je n'arrive pas à comprendre ...

Bonjour,

merci eric ca marche super, merci,
je souhaiterais savoir si c'est possible de faire ca pour dix colonnes
les colonnes s'appel col1, col2, col3, etc...

donc

for col= col1 To col=col10

Dim c As Range
For Each c In [A1].Resize(Cells(Rows.Count, 1).End(xlUp).Row)
If c.Font.Strikethrough Then c = ""
Next c

next col

Merci de votre aide

cordialement

Bonjour amine69500,

Sub suppBarré()
Dim c As Range
    For col = 1 To 10
        For Each c In Cells(1, col).Resize(Cells(Rows.Count, col).End(xlUp).Row)
            If c.Font.Strikethrough Then c = ""
        Next c
    Next col
End Sub

J'en profite pour te faire remarquer que tu n'as pas répondu à Raymond PENTIER.
Je t'engage à le faire sans quoi les intervenants vont penser que tu n'es pas là pour échanger mais simplement pour profiter des connaissances des autres.

A+

bonjour,

merci pour vos réponses, merci,

sinon pour répondre a raymond, le pourquoi? c'est par ce que je fais un traitement de données et je barre quelques cellules par rapport a d'autre valeur d'autres cellules, (donc barrer des cellules au lieu de les mettre vide c'est voulu) et donc ensuite je souhaite mettre une mfc en place pour continuer mon traitement de données.

Cordialement