Forum Discussion

AttilaSylvestre's avatar
AttilaSylvestre
Copper Contributor
Jan 13, 2023
Solved

Mise en forme conditionnelle

Bonjour

je chercher à avoir une mise en forme conditionnel en fonction de la couleur d’une ligne dans un autre tableau en recherchant la valeur commune dans ces deux lignes des deux tableaux différent 

bonne chance 😆 

  • OliverScheurich's avatar
    OliverScheurich
    Jan 28, 2023

    AttilaSylvestre 

    Public Function Verificationdelacouleur(rng As Range, num As Long, cellcolor As Long) As Boolean
        
        Dim colornumber As Integer
        Dim cellvalue As Integer
        
        colornumber = rng.Interior.ColorIndex
        cellvalue = rng.Value
        
        If colornumber = cellcolor And cellvalue = num Then
        Verificationdelacouleur = True
        Else
        Verificationdelacouleur = False
        End If
        
    End Function

    Vous pouvez essayer cette fonction. Saisissez dans la fonction la cellule à tester, la valeur de la cellule et la couleur à tester. Dans l'exemple, il s'agit de la cellule C4, de la valeur 40 et de la couleur 14.

4 Replies

  • AttilaSylvestre 

    Peut-être avec ces lignes de code. Dans le fichier joint, vous pouvez cliquer sur le bouton dans la cellule D2 pour exécuter la macroCe message a été traduit par un logiciel.

    Sub color()
    
    Dim i, j, k, l As Long
    Dim match As Variant
    
    Range("B:B").Interior.ColorIndex = 0
    
    k = Range("B" & Rows.Count).End(xlUp).Row
    l = Range("E" & Rows.Count).End(xlUp).Row
    
    For i = 3 To k
    
    match = Application.match(Cells(i, 2), Range(Cells(3, 5), Cells(l, 5)), 0)
    
    If Not IsError(match) Then
    
    j = Application.match(Cells(i, 2), Range(Cells(3, 5), Cells(l, 5)), 0) + 2
    Cells(i, 2).Interior.ColorIndex = Cells(j, 5).Interior.ColorIndex
    Else
    End If
    
    Next i
    
    End Sub
    • AttilaSylvestre's avatar
      AttilaSylvestre
      Copper Contributor

      OliverScheurich 

      quelle cellule à la même mise en forme qu’une autre?

      Dans ton exemple il y a 4 cellules avec 4 couleurs différentes 

      Faut-il absolument utiliser une macro?

       

      Merci de ton aide tout de meme

      • AttilaSylvestre's avatar
        AttilaSylvestre
        Copper Contributor
        En fait il me faudrait une formule qui vérifie si une cellule avec la même valeur est de couleur verte par exemple