MFC à plusieurs conditions ET fonction recherchev

[Johnnyjohn]

Bonjour,

Je cherche une façon de faire une mise en forme conditionnelle avec plus de 4 critères sur une colonne dont le contenu est le résultat d'une fonction recherchev(). Avec ou sans VBA...

Petit fichier exemple joint
merci pour vos idées...😉

 

[tototiti2008]

Re : MFC à plusieurs conditions ET fonction recherchev

Bonjour JohnnyJohnny,

Pour une MFC de plus de 4 critères en XL2003, il faut passer par VBA

à mettre dans le code de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ligne As Long
    If Target.Column = 7 And Target.Count = 1 Then
        Target.Offset(0, 1).ClearFormats
        If Application.CountIf(Range("Arbre_famille").Resize(, 1), Target.Value) > 0 Then
            Ligne = Application.Match(Target.Value, Range("Arbre_famille").Resize(, 1), 0)
            Range("Arbre_famille").Range("A1").Offset(Ligne - 1, 1).Copy
            Target.Offset(0, 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            Application.CutCopyMode = False
        End If
    End If
End Sub

 

[Guest]

Re : MFC à plusieurs conditions ET fonction recherchev

Bonjour,

Voir dans le fichier joint la macro évènementielle de la feuille de calcul. (click-droit sur le nom de l'onglet en bas puis 'Visualiser le code')

A+
[Edit] Hello Tototiti🙂🙂🙂

 

[tototiti2008]

Re : MFC à plusieurs conditions ET fonction recherchev

Rebonjour Hasco,

Content de voir qu'on est toujours sur la même longueur d'onde (à peu de choses prèt) 😉

 

[Hippolite]

Re : MFC à plusieurs conditions ET fonction recherchev

Bonjour,
Pour des mises en Forme Conditionnelle nombreuses, il y a une solution fortement paramétrable : la macro mDF_MFCmultiples

Lien vers le tuto :
Tutoriels : myDearFriend! Excel Pages

 

[BOISGONTIER]

Re : MFC à plusieurs conditions ET fonction recherchev

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 7 And Target.Count = 1 Then Target.Offset(, 1).Interior.Color = [Arbres].Find(Target).Offset(, 1).Interior.Color
End Sub

JB