panzemeyer The torture never stops | cyfl a écrit a écrit :
tu met ça dans le VB d'excel
tu n'as qu'a modifier les trucs pour que ça marche pour toi
la c pour des notes, si il sont inferieur a 10 , tel couleur, et puis entre plus de 15 une autre,....
donc voila, si ça peut t'aidé !
Private Sub Worksheet_Change(ByVal Target As Range)
' Var
Dim unecellule As Range
'debut
For Each unecellule In Target
If unecellule.Column > 4 And unecellule.Column <= 8 And unecellule.Row > 2 And unecellule.Row <= 13 Then
If unecellule.Value < 10 Then
unecellule.Font.Color = vbRed
Else
If unecellule.Value >= 15 Then
unecellule.Font.Color = vbBlue
Else
unecellule.Font.Color = vbBlack
End If
End If
End If
Next
End Sub
|
tu pourrais donner plus de détails je voudrais essayer ta macro mais je ne connais pas les étapes : je suis allé dans outils, Macros, VB Editor, je colle ton code dans une feuille de code et je fais quoi après ? ---------------
Pour la préservation de l'environnement, n'imprimez ce post qu'en cas de nécessité | Fais du bien à un vilain, il te chiera dans la main.
|