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

jrp_rogue -  
jrp_rogue Messages postés 2 Statut Membre -
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

Réponse 1 / 1
ThauTheme Messages postés 1564 Statut Membre 160
 
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 Statut Membre
 
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 Statut Membre
 
Mais j'ai adapté ton code et ça marche :)
Je n'ai plus de message d'erreur. Je te remercie
0

Discussions similaires

Voxbone ? qui est-ce ?
fanfan54 -
ntrece13 -

159 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
Erreur d'exécution '13': Incompatibilité de Type
SLM-BHY -
Heliotte -

8 réponses
erreur 13 incompatibilité de type VBA excel
monalisach -
monalisach -

2 réponses
Erreur exécution 13 : incompatibilité de type
Belinos -
yg_be -

9 réponses