Discussion :

[pat0051]

Bonjour à tous
J’utilise la commande Target.Address et en fonction de la valeur rentrée dans une cellule, je déclenche différentes macros.
La macro fonctionne très bien mais je souhaiterai si la valeur ne fait pas partie des différente conditions, afficher une MsgBox avec un commentaire…..et là je bloque.

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.Address = Range("A1").Address Then
Exit Sub
End If
If Range("C48") = "A" Then Call MacroA
If Range("C48") = "B" Then Call MacroB
If Range("C48") = "C" Then Call MacroC
If Range("C48") = "D" Then Call MacroD
End Sub

[keygen08]

Bonjour
Ajouter une condition.

Code :

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

1
2
3
If Range("C48") = "D" Then Call MacroD
If Range("C48") <> "D" and Range("C48") <> "C" .......Then MSGbox "yaplusqu'a "
End Sub

ou alors

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
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then Exit Sub
 
If Range("C48") = "A" Then Call MacroA
    Else
    If Range("C48") = "B" Then Call MacroB
    Else
        If Range("C48") = "C" Then Call MacroC
        Else
            If Range("C48") = "D" Then Call MacroD
            Else
            MsgBox "yaplusqu'a "
            End If
        End If
    End If
End If
End Sub

[Qwazerty]

Salut

Tu devrais développer un peu plus pour que l'on comprenne l'ensemble du problème, il y a peut-être d'autres solutions que nous pouvons te proposer.

Sinon voila 2 façons de faire ce que tu demandes

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
21
22
23
24
25
26
27
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then
    If Range("C48") = "A" Then
        MacroA
    ElseIf Range("C48") = "B" Then
        MacroB
    ElseIf Range("C48") = "C" Then
        MacroC
    ElseIf Range("C48") = "D" Then
        MacroD
    Else
        MsgBox "Le message à faire passer", vbOKOnly, "Le Titre du message"
    End Sub
End If
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$1" Then
        Select Case Range("C48")
            Case "A": MacroA
            Case "B": MacroB
            Case "C": MacroC
            Case "D": MacroD
            Case Else: MsgBox "Le message à faire passer", vbOKOnly, "Le Titre du message"
        End Select
    End If
End Sub

++
Qwaz

[pat0051]

Bonsoir,

Dans mon programme, la valeur de cellule C48 est calculé.
En fonction de cette valeur, je lance une macro. Ci une nouvelle valeur apparait, je dois créer une nouvelle macro et en attendant de créer cette macro, je veux lancer un message d'alerte du genre " Attention le programme ne prend pas en compte cette valeur, veuillez attendre la mise à jour"....
Au maxi j'aurai une quinzaine de valeurs différentes.
Je vais tester le code proposé par keygen08.

Merci de votre aide

[Qwazerty]

Salut

J'ai bien peur que ça ne fonctionne pas.
L'événement OnChange des cellules n'est pas provoqué lorsque la valeur d'une cellule liée à une formule change (le contenu de la cellule étant la formule, celle-ci ne change pas et ne provoque donc pas d'événement Change).

Renseignes toi sur la "Validation de Données", dans un 1er temps elle sera suffisante pour faire ce que tu veux je pense.

++
Qwaz

[pat0051]

Bonsoir,

Le 2eme programme ci-joint proposé par Qwazerty fonctionne impeccablement
Testé et approuvé

Merci à tous de votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$C$48" Then
        Select Case Range("C48")
            Case "A": MacroA
            Case "B": MacroB
            Case "C": MacroC
            Case "D": MacroD
            Case Else: MsgBox "Le message à faire passer", vbOKOnly, "Le Titre du message"
        End Select
    End If
End Sub