thomasdu40
XLDnaute Occasionnel
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
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)
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
Code:
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)
Code:
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