Bonjour à Tous
Voici le problème :
J'ai créé un livret d'élèves pour ma fille qui est instit et qui doit remplir à la main chaque trimestre un carnet de note par élève
J'ai donc créé son livret avec une ligne pour chaque matière et une case pour la note (lettre de A à D)
j'ai également créé une feuille de saisie ou elle rentre les notes de chaque élève et en fonction de l'élève selectionné la note vient se renseigner au travers d'une formule (recherchev)
jusque là rien de compliqué
J'ai ajouté des couleurs en fonction de la note avec la possibilité de choisir entre 1 - une couleur de fond et la note en noir 2 -le fonds blanc et la note en couleur 3 fonds blanc et note en noir
Pour cela j'aurai souhaité récupérer la couleur sélectionné dans une zone : c'est la macro ci dessous
Sub codecouleur()
Sheets("tables").Select
codcouleurD = Range("g2").Value
If codcouleurD = 2 Then
themcouleurD = "Selection.FormatConditions(1).Interior.PatternColorIndex = xlAutomatic.ThemeColor = xlThemeColorDark2"
End If
If codcouleurD = 3 Then
themcouleurD = "Selection.FormatConditions(1).Interior.PatternColorIndex = xlAutomatic.ThemeColor = xlThemeColorLight2"
Else
themcouleurD = "Selection.FormatConditions(1).Interior.PatternColorIndex = xlAutomatic.ThemeColor = xlThemeColorAccent" & codcouleurD - 4
End If
en fait cette macro insere dans une variable les codes pour la mise en forme de la mfc qui donne le code ci dessous
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="=""D""", Formula2:="=""D+++"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With themcouleurD
End With
Selection.FormatConditions(1).StopIfTrue = False
et cela ne fonctionne pas
je ne dois pas pouvoir faire ainsi
je joins à tout hasard mon fichier
si quelqu'un a une idée ou une première piste ou peut etre besoin de plus d'explication
Merci d'avance
Denis ROUSSEL
Voici le problème :
J'ai créé un livret d'élèves pour ma fille qui est instit et qui doit remplir à la main chaque trimestre un carnet de note par élève
J'ai donc créé son livret avec une ligne pour chaque matière et une case pour la note (lettre de A à D)
j'ai également créé une feuille de saisie ou elle rentre les notes de chaque élève et en fonction de l'élève selectionné la note vient se renseigner au travers d'une formule (recherchev)
jusque là rien de compliqué
J'ai ajouté des couleurs en fonction de la note avec la possibilité de choisir entre 1 - une couleur de fond et la note en noir 2 -le fonds blanc et la note en couleur 3 fonds blanc et note en noir
Pour cela j'aurai souhaité récupérer la couleur sélectionné dans une zone : c'est la macro ci dessous
Sub codecouleur()
Sheets("tables").Select
codcouleurD = Range("g2").Value
If codcouleurD = 2 Then
themcouleurD = "Selection.FormatConditions(1).Interior.PatternColorIndex = xlAutomatic.ThemeColor = xlThemeColorDark2"
End If
If codcouleurD = 3 Then
themcouleurD = "Selection.FormatConditions(1).Interior.PatternColorIndex = xlAutomatic.ThemeColor = xlThemeColorLight2"
Else
themcouleurD = "Selection.FormatConditions(1).Interior.PatternColorIndex = xlAutomatic.ThemeColor = xlThemeColorAccent" & codcouleurD - 4
End If
en fait cette macro insere dans une variable les codes pour la mise en forme de la mfc qui donne le code ci dessous
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="=""D""", Formula2:="=""D+++"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With themcouleurD
End With
Selection.FormatConditions(1).StopIfTrue = False
et cela ne fonctionne pas
je ne dois pas pouvoir faire ainsi
je joins à tout hasard mon fichier
si quelqu'un a une idée ou une première piste ou peut etre besoin de plus d'explication
Merci d'avance
Denis ROUSSEL