Sujet Précédent Sujet Suivant

MFC excel

Fermé
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 - 24 août 2013 à 20:52
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 - 25 août 2013 à 18:01
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
A voir également:

5 réponses

Réponse 1 / 5
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 214
24 août 2013 à 22:23
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
0
Réponse 2 / 5
Raymond PENTIER Messages postés 58397 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 26 avril 2024 17 094
25 août 2013 à 01:21
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 ...
0
Réponse 3 / 5
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
25 août 2013 à 14:32
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
0
Réponse 4 / 5
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
25 août 2013 à 15:18
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+
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 214
25 août 2013 à 15:26
Bonjour,

et j'ajouterai : pourquoi demander pour 1 colonne si tu le veux pour 10 ????
Le plaisir de nous faire travailler ?
eric
0
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
25 août 2013 à 16:07
non eric pas du tout, j'avais pas pensé avant mais j'ai pensé juste aprés, par ce que j'ai eu une idée apres.

merci encore

cordialement
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
25 août 2013 à 16:07
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
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 214
25 août 2013 à 16:35
C'est couillon, tu as oublié le merci à Gyrus ! ;-)
eric
0
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
25 août 2013 à 18:01
merci pour vos réponses,

merci Gyrus :, merci :)
0