Deuxième conditions

[thomasdu40]

Bonjour,

Dans A10 j'ai une liste déroulante. Dans cette liste si je sélectionne "Multi" un MessageBox apparaît. Jusque là tout est ok.

Dans C44 de la même feuille j'ai une liste déroulante. Dans cette liste si je sélectionne "Oui" je voudrai qu'un MessageBox apparaisse.

Question : voici le code pour A10 qui fonctionne

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$10" Then
    If UCase(Target.Value) = "MULTI" Then
    MsgBox "Vous avez saisi Multi, veuillez saisir le nom des sites concernés!", vbInformation, "Site concerné"
    End If
    End If
End Sub

En y intégrant la condition pour C44, si je sélectionne Oui rien ne se passe. Pourquoi ?

Voici le code final avec la deuxième condition d'intégrée (cellule C44)

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$10" Then
    If UCase(Target.Value) = "MULTI" Then
    MsgBox "Vous avez saisi Multi, veuillez saisir le nom des sites concernés!", vbInformation, "Site concerné"
    End If
    If Target.Address = "$C$44" Then
    If UCase(Target.Value) = "MULTI" Then
    MsgBox "Vous avez saisi Oui, veuillez préciser les justificatifs!", vbInformation, "Justificatifs"
    End If
    End If
    End If
End Sub

 

[JNP]

Re : Deuxième conditions

Bonsoir ThomasDu40 🙂,

En y intégrant la condition pour C44, si je sélectionne Oui rien ne se passe. Pourquoi ?
Voici le code final avec la deuxième condition d'intégrée (cellule C44)

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$10" Then
    If UCase(Target.Value) = "MULTI" Then
    MsgBox "Vous avez saisi Multi, veuillez saisir le nom des sites concernés!", vbInformation, "Site concerné"
    End If
    If Target.Address = "$C$44" Then
    If UCase(Target.Value) = "[COLOR=red][B]MULTI[/B][/COLOR]" Then
    MsgBox "Vous avez saisi Oui, veuillez préciser les justificatifs!", vbInformation, "Justificatifs"
    End If
    End If
    End If
End Sub

Je sens déjà tes oreilles qui chauffent et le rouge aux joues qui te prend 😀...
Euh, si tu remplaçais MULTI par OUI 🙄...
Bon courage 😎

 

[thomasdu40]

Re : Deuxième conditions

Merci à toi JNP
Voici le code final qui fonctionne.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$10" Then
    If UCase(Target.Value) = "MULTI" Then
    MsgBox "Vous avez saisi Multi, veuillez saisir le nom des sites concernés!", vbInformation, "Site concerné"
    End If
    End If
If Target.Address = "$C$44" Then
    If UCase(Target.Value) = "OUI" Then
    MsgBox "Vous avez saisi Oui, veuillez préciser les justificatifs!", vbInformation, "Justificatifs"
    End If
    End If
End Sub