Discussion :

[ricachu]

Bonjour à tous,

Dans une de mes feuilles de calcul, je souhaiterais, suivant les valeurs que l'on met dans la première colonne, que la ligne change de couleur automatiquement.

Par exemple, dans ma première colonne on peux mettre 3 valeurs : 0,1,2. Je souhaiterais que si la valeur est 1, la ligne deviennent de couleur jaune et si la valeur est 2, la ligne soit rouge.

Est-ce possible? j'ai regardé dans la FAQ, mais je n'ai pas trouvé d'informations.

Merci d'avance pour votre aide.

[JackOuYA]

Bonjour,

Il est possible d'écrire cela en VBA.

mais dans ton cas si tu nas que 3 couleurs tu peu utiliser la mise en forme conditionnelle.

Voir menu Format / Mise En forme conditionelle



Jacques.

[ricachu]

Merci pour ta réponse!
Mais je vais avoir beaucoup de conditions et de mises en forme différentes, et suivant la valeur dans la première colonne, je voudrais que toute la ligne ait la même couleur.

comment faire avec VBA?

[JackOuYA]

re,

Alt F11 , pour passer dans l'éditeur VBE, puis CTRL+R explorateur de projet, double clic sur le nom de ta feuille et rajout de ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim c As Range
 Dim rIntersect As Range
 Set rIntersect = Intersect([A:A], Target)
 If Not rIntersect Is Nothing Then
    For Each c In rIntersect
      Select Case c.Value
        Case 1
          c.EntireRow.Interior.Color = vbRed
        Case 2
          c.EntireRow.Interior.Color = vbYellow
        Case 3
          c.EntireRow.Interior.Color = vbBlue
        Case 4
          c.EntireRow.Interior.Color = vbGreen
      End Select
    Next
 End If
 End Sub

Jacques.

[fring]

Bonjour tlm,

Autre solution éventuelle, sans passer par une sélection de couleur pré-établie, en utilisant les index de couleur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub
    If Target.Value < 0 Or Target.Value > 56 Or Not IsNumeric(Target.Value) Then
        MsgBox "Veuillez saisir un chiffre entre 0 et 56"
        Target.Value = ""
        Exit Sub
    End If
    Target.EntireRow.Interior.ColorIndex = Target.Value
End Sub

[ricachu]

Ok parfait!

merci pour vos réponses!!!

[Alexdad]

Pour ma part les cellules incriminées "à coloriser" sont des formules.
Comment faire pour faire de la mise en forme conditionnelle VBA (comme la réponse n°4) sur les valeurs affichées des cellules ?

[zazaraignée]

Les objets Range ont (au moins) deux propriétés pour modifier ou consulter leur contenu. Value et Formula. Value retourne (ou modifie) la valeur brute (le résultat) et Formula retourne (ou modifie) la Formule.

Exemple :
A1 contient la date d'aujourd'hui
B1 contient ma date de naissance
C1 contient une formule pour calculer mon âge, soit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ANNEE(A1)-ANNEE(B1)

Le code suivant affiche la formule et la valeur de C1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub AfficherFormuleEtValeur()
MsgBox "la formule """ & Feuil1.Range("C1").Formula & _
    """ contenue dans C1 retourne " & Feuil1.Range("C1").Value
End Sub

Autre astuce...
En créant une fonction ayant pour paramètre un objet range :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function FormuleEtValeur(cellule As Range) As String
    FormuleEtValeur = "la formule """ & cellule.Formula & _
    """ contenue dans C1 retourne " & cellule.Value
End Function

on peut utiliser cette fonction comme formule de cellule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=formuleetvaleur(C1)

avec ou sans égards pour les majuscules/minuscules...