Sujet Précédent Sujet Suivant

Macro selection colonne VBA

Fermé
Draesel - Modifié par pijaku le 24/12/2014 à 13:16
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 27 déc. 2014 à 13:29
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
A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
24 déc. 2014 à 13:44
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 If
End Sub
0
Draesel
24 déc. 2014 à 19:02
Merci de ta réponse, l'ennui est que cela colore toute la colonne et non uniquement la cellule. Merci quand même et bonnes fêtes !
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
27 déc. 2014 à 13:29
Bonjour,

Ben, c'est votre code donc vous coloriez la colonne, pour la cellule c'est avec ceci:

comme j suppose que vous voulez que le couleur change sur changement de valeur 

Private Sub Worksheet_Change(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.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.Interior.ColorIndex = 7
        ElseIf Valeur = 10 Then      'If the evaluation is 10 then the color of the cell will be blue
            Target.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.Interior.ColorIndex = 3
        Else        'In other case, the cell will be white
            Target.Interior.ColorIndex = 2
        End If
    End If
End Sub
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Excel VBA : Derniere colonne utilisée
Eaheru -
Darnc -

12 réponses
erreur d'execution 9, l'indice n'appartient pas à la sélection
isidoh -
isidoh -

18 réponses