Erreur d'éxécution 13. Incompatibilité de type

Fermé
jrp_rogue - 27 mai 2016 à 11:11
jrp_rogue Messages postés 2 Date d'inscription vendredi 27 mai 2016 Statut Membre Dernière intervention 27 mai 2016 - 27 mai 2016 à 11:49
Bonjour,
Mon code fonctionne mais dès que je fais une manip sur ma feuille excel, ce message s'affiche. Quelqu'un pourrait m'expliquer pourquoi et comment y remédier s'il-vous-plaît ?

Ci-dessous mon code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("I23") Then
If Range("I23") = "OUI" Then
MsgBox ("Texte")
End If
If Range("I23") = "NON" Then
MsgBox ("Texte")
End If
End If

End Sub


A voir également:

1 réponse

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
Modifié par ThauTheme le 27/05/2016 à 11:27
Bonjour Jrp, bonjour le forum,
Quel message s'affiche ? "Texte" ?

Essaie comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$I$23" Then Exit Sub
If UCase(Target.Value) = "OUI" Or UCase(Target.Value) = "NON" Then MsgBox "Texte"
End Sub


À plus,
ThauTheme
0
jrp_rogue Messages postés 2 Date d'inscription vendredi 27 mai 2016 Statut Membre Dernière intervention 27 mai 2016
27 mai 2016 à 11:45
Salut,
Non en fait il y a deux différents texte.
Quand on choisit oui (c'est une liste déroulante) un message s'affiche
Et quand on choisit non il y a un autre message qui s'affiche.
0
jrp_rogue Messages postés 2 Date d'inscription vendredi 27 mai 2016 Statut Membre Dernière intervention 27 mai 2016
27 mai 2016 à 11:49
Mais j'ai adapté ton code et ça marche :)
Je n'ai plus de message d'erreur. Je te remercie
0