Forum Discussion
Mise en forme conditionnelle
- Jan 28, 2023
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 FunctionVous 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.
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 macro. Ce 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 Subquelle 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
- AttilaSylvestreJan 25, 2023Copper ContributorEn fait il me faudrait une formule qui vérifie si une cellule avec la même valeur est de couleur verte par exemple
- OliverScheurichJan 28, 2023Gold Contributor
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 FunctionVous 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.