Bonjour,
je remercie par avance les personnes qui prennent de leur temps pour lire ce message.
Voici le descriptif de mon projet :
j'ai 4 tableaux de données qui sont tous rangés par ordre de grandeur. Chacun de ces tableaux disposent de 4 quartiles qui leurs sont affiliés par rapport à ces dites valeurs.
Le but de ma macro est d'effectuer une mise en page en coloriant les lignes selon le quartile qui lui est affilié :
exemple : B10 (première donnée de mon tableau) est la meilleur performance du tableau 1. Il est inférieur ou = au quartile 1. De ce fait une valeur bleue foncée lui est attribué. Pour chaque valeurs de chaque tableaux, le quartile correspondant est indiqué dans une colonne pour plus de lisibilité et de compréhension.
Ma macro se lance et n'a pas de problème d'exécution. Cependant les couleurs ajoutées ne sont pas toujours bonnes. Par exemple, toutes les valeurs de B10 à B33 sont issus du Quartile 1 et elles devraient logiquement être tous de la même couleur, ce qui n'est pas le cas.
Mon problème est donc dû au codage en lui-même.
Le raisonnement de mon codage était : si ma var <= à la valeur du quartile 1 alors tel type de couleur et ceux pour les 4 valeurs de quartile.
J'ai effectué mon VBA sous 3 méthodes différentes qui m'ont tous données le même résultat niveau coloration :
Je vous met bien entendu mon fichier pour une meilleur compréhension avec le code en entier ainsi que la feuille excel en visuel.
Cordialement
je remercie par avance les personnes qui prennent de leur temps pour lire ce message.
Voici le descriptif de mon projet :
j'ai 4 tableaux de données qui sont tous rangés par ordre de grandeur. Chacun de ces tableaux disposent de 4 quartiles qui leurs sont affiliés par rapport à ces dites valeurs.
Le but de ma macro est d'effectuer une mise en page en coloriant les lignes selon le quartile qui lui est affilié :
exemple : B10 (première donnée de mon tableau) est la meilleur performance du tableau 1. Il est inférieur ou = au quartile 1. De ce fait une valeur bleue foncée lui est attribué. Pour chaque valeurs de chaque tableaux, le quartile correspondant est indiqué dans une colonne pour plus de lisibilité et de compréhension.
Ma macro se lance et n'a pas de problème d'exécution. Cependant les couleurs ajoutées ne sont pas toujours bonnes. Par exemple, toutes les valeurs de B10 à B33 sont issus du Quartile 1 et elles devraient logiquement être tous de la même couleur, ce qui n'est pas le cas.
Mon problème est donc dû au codage en lui-même.
Le raisonnement de mon codage était : si ma var <= à la valeur du quartile 1 alors tel type de couleur et ceux pour les 4 valeurs de quartile.
J'ai effectué mon VBA sous 3 méthodes différentes qui m'ont tous données le même résultat niveau coloration :
Code:
Select Case Var
Case Is <= Cells(1, 23)
Plage.Interior.Color = RGB(224, 64, 64)
Case Cells(1, 23) To Cells(2, 23)
Plage.Interior.Color = RGB(255, 224, 224)
Case Cells(2, 23) To Cells(3, 23)
Plage.Interior.Color = RGB(192, 224, 255)
Case Cells(3, 23) To Cells(4, 23)
Plage.Interior.Color = RGB(160, 192, 224)
End Select
puis :
If Var <= Cells(1, 28) Then
Plage.Interior.Color = RGB(224, 64, 64)
ElseIf Var <= Cells(2, 28) Then
Plage.Interior.Color = RGB(255, 224, 224)
ElseIf Var <= Cells(3, 28) Then
Plage.Interior.Color = RGB(192, 224, 255)
ElseIf Var <= Cells(4, 28) Then
Plage.Interior.Color = RGB(160, 192, 224)
End If
et enfin :
Select Case Var
Case Is <= Cells(1, 33)
Plage.Interior.Color = RGB(224, 64, 64)
Case Is <= Cells(2, 33)
Plage.Interior.Color = RGB(255, 224, 224)
Case Is <= Cells(3, 33)
Plage.Interior.Color = RGB(192, 224, 255)
Case Is <= Cells(4, 33)
Plage.Interior.Color = RGB(160, 192, 224)
End SelectJe vous met bien entendu mon fichier pour une meilleur compréhension avec le code en entier ainsi que la feuille excel en visuel.
Cordialement