mise en forme conditionnelle

[fr832]

Bonjour et bon dimanche à tous voila j'ai récupéré ce code qui fonctionne trés bien lorsque via un userform il me remplie mon tableau.
C'est a dire qu'il me colore une ligne sur deux.

Sub mfc()
With Range(Cells(DerLig, 1), Cells(DerLig, 22))
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ET(" & Cells(DerLig, 1).Address & "<>"""";MOD(LIGNE();2))"
    With .FormatConditions(1).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    .FormatConditions(1).Interior.ColorIndex = 35
    .FormatConditions.Add Type:=xlExpression, Formula1:="=" & Cells(DerLig, 1).Address & "<>"""""
    With .FormatConditions(2).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End With

End Sub

est il possible de l'adapter à une feuille sans saisie par userform?

Cela m'éviterait d'utiliser la formule mod(ligne() et de colorer à l'avance toute les ligne.

Par avance merci

 

[kjin]

Re : mise en forme conditionnelle

Bonsoir le fil, salut le sieur bean 🙂,

Sub Macro1()
For Each cel In Range("H1:H11")
    If cel = "terminé" Or cel = "annulé" Then 'attention à la casse !
        x = cel.Top + cel.Height / 2
        y = cel.Left + cel.Width
        ActiveSheet.Shapes.AddLine(0, x, y, x).Select
    End If
Next
Range("A1").Activate
End Sub

A+
kjin

 

[nrdz83]

Re : mise en forme conditionnelle

bonsoir kjin
merci pour ce code ; ce drnier je le colle dans ma feuille?
merci encore^pour tout

 

[Efgé]

Re : mise en forme conditionnelle

Bonjour à tous ,
nrdz83,
Partager deux discutions dans le même fil est difficile... Pourquoi ne pas en ouvrir un autre ? Merci d'avance.
fr832,
Pour votre demande il semble nécessaire de faire quatre mises en formes différentes donc sous 2003 il faut passer par VBA.
Si personne ne vous a donné de solution je regarde demain.
Cordialement

 

[nrdz83]

Re : mise en forme conditionnelle

bonsoir efgé et merci je pensais que ça pouvait suivre ce fil,merci

 

[fr832]

Re : mise en forme conditionnelle

re bonsoir à tous , voila en fait mes deux MFC fonctionnent mais si j'ai la ligne colorisé grace à la formule mod(ligne()), alors la mfc du texte barré ne s'applique pas.

Deux MFC peuvent elles etre compatible ?
par avance merci , amitiés

 

[jeanpierre]

Re : mise en forme conditionnelle

Bonsoir fr832, le fil,

Pour répondre à ta question, oui elles peuvent être compatibles, seulement dans ton cas il y a deux priorités (sauf si on laisse une ligne blanche sur deux, à voir, pas essayé), le zonage, donc deux MFC et pour chaque le fait de devoir barrer le texte.

Donc, il en faut deux autres, moins prioritaires pour le zonage uniquement, or et jusqu'à Excel 2003 il n'y a que trois possiblités et c'est là où ça coince.

J'ai bien tenté, hier soir, mais je ne suis parvenu à rien d'où mon silence.

Il va donc te falloir du VBA.

Bonne soirée.

Jean-Pierre

 

[fr832]

Re : mise en forme conditionnelle

bonsoir jean pierre et merci de ton aide , en fait suis preneur de toute solution meme si elle derive un peu des miennes.
Mon but est de faire ressortit les lignes "en cours" de celles "terminé" ou "annulé".
Voila merci pour vos lumières