Macro selection colonne VBA Fermé

Question

Bonjour, 
J'ai colonne avec uniquement des évaluations et j'aimerais changer la couleur de mes cellules selon la note, j'arrive à faire toute les conditions via If,... le problème que je ne sais pas selectionner la colonne qui m'intéresse ou enfin je pense. 
Voici mon code : 

'Color cell according to evaluation
Sub Color_evaluation(ByVal Target As Range)
        
    'Target column 8 or H, column of evaluation and put the condition
    
   If Target.Column = 8 Then
        
        'If the evaluation is under 5 then the color of the cell will be dark red
         If UCase(Target.value) < 5 Then
    
        Target.EntireColumn.Interior.ColorIndex = 30
        
        'If the evaluation is 5 or 6 then the color of the cell will be orange
        ElseIf UCase(Target.value) = 5 Or 6 Then
        
        Target.EntireColumn.Interior.ColorIndex = 53
        
        'If the evaluation is 10 then the color of the cell will be blue
        ElseIf UCase(Target.value) = 10 Then
        
        Target.EntireColumn.Interior.ColorIndex = 87
        
        'If the evaluation is 0 or 1 then the color of the cell will be red
        ElseIf UCase(Target.value) = 0 Or 1 Then
        
        'In other case, the cell will be white
        Target.EntireColumn.Interior.ColorIndex = 3
      
        Else
    
      Target.EntireColumn.Interior.ColorIndex = 0
      
        End If
  
  End If

End Sub
  

Mais celui-ci ne se s'execute pas ou il n'y a aucune modification sur la colonne,  qqu peut m'aider ?

Merci d'avance

f894009 · Answer

Bonjour,

Code a mettre dans le VBA de la feuille de la colonne a colorier, vous reprendrez les couleurs 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)    'Color cell according to evaluation    'Target column 8 or H, column of evaluation and put the condition   If Target.Column = 8 Then        Valeur = Target.Value         If Valeur < 5 Then  'If the evaluation is under 5 then the color of the cell will be black            Target.EntireColumn.Interior.ColorIndex = 1        ElseIf Valeur = 5 Or Valeur = 6 Then     'If the evaluation is 5 or 6 then the color of the cell will be cyan            Target.EntireColumn.Interior.ColorIndex = 7        ElseIf Valeur = 10 Then      'If the evaluation is 10 then the color of the cell will be blue            Target.EntireColumn.Interior.ColorIndex = 5        ElseIf Valeur = 0 Or Valeur = 1 Then        ' 'If the evaluation is 0 or 1 then the color of the cell will be red            Target.EntireColumn.Interior.ColorIndex = 3        Else        'In other case, the cell will be white            Target.EntireColumn.Interior.ColorIndex = 2        End If    End IfEnd Sub

Macro selection colonne VBA

1 réponse

Discussions similaires