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

1 réponse

  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
    1. 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
    2. 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

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

9 réponses
Erreur 3005 sur France TV
Cambodgil -
JeanPierre -

6 réponses
Faiblesse des pokémon spectre
Matthias77 -
akumu -

17 réponses
Erreur de lecture sur iptv smarters
Bogs -
bazfile -

1 réponse
Problème streaming France 2
95 indomptable -
robmat2005 -

1 réponse