MFC excel

Question

Bonjour, 


je souhaiterais mettre en place une mise en forme sur 1 colonne A1,
si la cellule contient une valeur barré remplacer la cellule avec la valeur barré par une cellule vide.

Cordialement

eriiic · Answer

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

Raymond PENTIER · Answer

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 ...

amine69500 · Answer

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

Gyrus · Answer

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 SubJ'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+

amine69500 · Answer

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

MFC excel

5 réponses

Votre réponse

Newsletters