[XL-2003] Activer une sub sur le changement d'une valeur de cellule [Résolu]

[Claude_B]

Bonjour,

J'aimerais savoir comment activer une SUB automatiquement sans l'aide de bouton. Je voudrais que ma SUB s'active ou procède à sa programmation sur un changement de valeur d'une cellule. Je pourrais utiliser le format conditionnel, mais je suis limité à 3 conditions. J'ai au moins 12 conditions à utiliser.

Ex. si j'ai oui dans la cellule a1, je veux que celle-ci se colore en rouge
si j'ai non dans la cellule a1, je veux que celle-ci se colore en orange et ainsi de suite pour une douzaine de conditions

Merci à l'avance

[jfontaine]

Bonjour,

En utilisant l'évènement Change de la feuille

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address = "$A$1" And Target.Count = 1 Then
 
    Select Case Target.Value
        Case "oui"
            Target.Interior.ColorIndex = 3
        Case "non"
            Target.Interior.ColorIndex = 46
    End Select
 
End If
 
End Sub

[Claude_B]

Merci pour tes codes Jfontaine. Je vais profiter encore de ta patience. Je suis quand même néophite en la matière et j'aimerais comprendre la ligne suivante.

Code :

If Target.Address = "$A$1" And Target.Count = 1 Then

Que veut dire And Targert.Count = 1 then. Je peux me débrouiller avec la balance du code, mais cette ligne m'embête un peu.

Merci

[jfontaine]

Que veut dire And Targert.Count = 1 then.

Cela permet de vérifier que target ne contient qu'une seule cellule.
Ce test gère le vidage en masse de cellule

[Claude_B]

D'accord merci beaucoup

[mercatog]

Bonsoir à tous
Une petite remarque

Code :

If Target.Address = "$A$1" And Target.Count = 1 Then

On pourrait s'en passer de

Code :

And Target.Count = 1

du moment que si Target.address="$A$1", nécessairement Target.count=1