Selection et condition suivant valeur de la cellule

[gringoh]

Bonjour,

Une petite question qui me permettra surement d'avancer en VBA.

Ce que je souhaite faire c'est sur la sélection active à l'écran, si la valeur de la cellule est = à non alors mettre le non en rouge, sinon si la cellule est vide c'est mettre un oui en vert.

Je bloque, soit tout devient non rouge soit tout oui vert....

Au secours...

Regarde la pièce jointe Selection.xlsx

Merci pour vos remarques,
Gringoh

 

[néné06]

Re : Selection et condition suivant valeur de la cellule

Bonsoir gringoh

Il faut passer par la rubrique "Mise en forme conditionnelle" dans onglet "acceuil" sur excel 2010

Cordialement.

 

[Fred0o]

Re : Selection et condition suivant valeur de la cellule

Bonsoir gringoh,

Voici un code à mettre dans la partie Code de ta feuille de calcul :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim c As Range
    If Not Intersect(Target, [C6:H13]) Is Nothing Then
        For Each c In Target
            If c = "non" Then
                c.Font.ColorIndex = 3
            Else
                If IsEmpty(c) Then
                    c = "oui"
                    c.Font.ColorIndex = 4
                End If
            End If
        Next
    End If
End Sub

Regarde la pièce jointe gringoh_V1.xlsm

A+

 

[gringoh]

Re : Selection et condition suivant valeur de la cellule

Salut Fredo,

Merci pour ton aide, je viens de tester mais j'ai toutes les valeurs qui sont en vert maintenant... même les non...

D'autre part, à la place de mettre la plage [C6:H13] est il possible que la macro s'applique sur sélection active à l'écran ?

Gringoh

 

[Fred0o]

Re : Selection et condition suivant valeur de la cellule

re-bonsoir gringoh,

Je ne comprends pas pourquoi tes non deviennent verts.

J'ai modifié le code pour qu'il s'applique à la sélection en cours lorsque tu appuies sur le bouton. J'ai aussi modifié l'intensité du vert.

Regarde la pièce jointe gringoh_V2.xlsm

A+

 

[gringoh]

Re : Selection et condition suivant valeur de la cellule

Merci beaucoup pour ton aide Fredo ça marche parfaitement maintenant.


Je comprends mieux mon erreur d'autre part pratique le "empty"... ;-)

@++