J'additionne 5 données sur 5 feuilles différentes et inscrit le total dans une feuille sommaire. Je veux comparer le 5 données (qui sont toutes dans la même cellule ex: A1 mais sur 5 feuilles différentes nommées respectivements Phase 1- Phase 2 - Phase 3 - Phase 4 - Phase 5) si la données de la phase 1 est la plus élevé, la couleur de fond de la cellule sommaire devient jaune, si c'est la valeur de la phase 2, la trame de fond de la cellule sommaire devient vert etc...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
En supposant que dans A1 de la feuille "Sommaire" tu aies la fomule suivante : =SOMME('Phase 1:Phase 5'!A1) qui fait la somme des cellules A1 des feuilles "Phase 1" à "Phase 5" [A noter les apostrophes dans la formule, car tes noms de feuilles comprennent des espaces] Tu veux formater cette cellule (A1) en fonction de la position de la valeur maximale de A1 dans les différentes feuilles Dans le module de la feuille "Sommaire" :
Private Sub Worksheet_Calculate() x = [max('Phase 1:Phase 5'!A1)] x1 = ['Phase 1'!A1] x2 = ['Phase 2'!A1] x3 = ['Phase 3'!A1] x4 = ['Phase 4'!A1] x5 = ['Phase 5'!A1] y = "{" & x1 & "," & x2 & "," & x3 & "," & x4 & "," & x5 & "}" Select Case Evaluate("Match(" & x & "," & y & ", 0)") Case 1 'le Max est dans "Phase 1" [A1].Interior.ColorIndex = 6 Case 2 'le Max est dans "Phase 2" [A1].Interior.ColorIndex = 4 Case 3 'le Max est dans "Phase 3" [A1].Interior.ColorIndex = 3 Case 4 'le Max est dans "Phase 4" [A1].Interior.ColorIndex = 8 Case 5 'le Max est dans "Phase 5" [A1].Interior.ColorIndex = 7 End Select End Sub
PS : adapter les plages de cellules et les couleurs AV
En supposant que dans A1 de la feuille "Sommaire" tu aies la fomule suivante :
=SOMME('Phase 1:Phase 5'!A1)
qui fait la somme des cellules A1 des feuilles "Phase 1" à "Phase 5"
[A noter les apostrophes dans la formule, car tes noms de feuilles comprennent
des espaces]
Tu veux formater cette cellule (A1) en fonction de la position de la valeur
maximale de A1 dans les différentes feuilles
Dans le module de la feuille "Sommaire" :
Private Sub Worksheet_Calculate()
x = [max('Phase 1:Phase 5'!A1)]
x1 = ['Phase 1'!A1]
x2 = ['Phase 2'!A1]
x3 = ['Phase 3'!A1]
x4 = ['Phase 4'!A1]
x5 = ['Phase 5'!A1]
y = "{" & x1 & "," & x2 & "," & x3 & "," & x4 & "," & x5 & "}"
Select Case Evaluate("Match(" & x & "," & y & ", 0)")
Case 1 'le Max est dans "Phase 1"
[A1].Interior.ColorIndex = 6
Case 2 'le Max est dans "Phase 2"
[A1].Interior.ColorIndex = 4
Case 3 'le Max est dans "Phase 3"
[A1].Interior.ColorIndex = 3
Case 4 'le Max est dans "Phase 4"
[A1].Interior.ColorIndex = 8
Case 5 'le Max est dans "Phase 5"
[A1].Interior.ColorIndex = 7
End Select
End Sub
PS : adapter les plages de cellules et les couleurs
AV
En supposant que dans A1 de la feuille "Sommaire" tu aies la fomule suivante : =SOMME('Phase 1:Phase 5'!A1) qui fait la somme des cellules A1 des feuilles "Phase 1" à "Phase 5" [A noter les apostrophes dans la formule, car tes noms de feuilles comprennent des espaces] Tu veux formater cette cellule (A1) en fonction de la position de la valeur maximale de A1 dans les différentes feuilles Dans le module de la feuille "Sommaire" :
Private Sub Worksheet_Calculate() x = [max('Phase 1:Phase 5'!A1)] x1 = ['Phase 1'!A1] x2 = ['Phase 2'!A1] x3 = ['Phase 3'!A1] x4 = ['Phase 4'!A1] x5 = ['Phase 5'!A1] y = "{" & x1 & "," & x2 & "," & x3 & "," & x4 & "," & x5 & "}" Select Case Evaluate("Match(" & x & "," & y & ", 0)") Case 1 'le Max est dans "Phase 1" [A1].Interior.ColorIndex = 6 Case 2 'le Max est dans "Phase 2" [A1].Interior.ColorIndex = 4 Case 3 'le Max est dans "Phase 3" [A1].Interior.ColorIndex = 3 Case 4 'le Max est dans "Phase 4" [A1].Interior.ColorIndex = 8 Case 5 'le Max est dans "Phase 5" [A1].Interior.ColorIndex = 7 End Select End Sub
PS : adapter les plages de cellules et les couleurs AV
