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:

Erreur d'éxécution 13. Incompatibilité de type
Erreur 0x80070643 - Accueil - Windows
Redmi note 13 5g test - Accueil - Téléphones
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
Erreur 1001 outlook - Accueil - Bureautique
Erreur 3000 france tv - Forum Lecteurs et supports vidéo

1 réponse

Réponse 1 / 1

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

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.

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

Discussions similaires

Voxbone ? qui est-ce ?

Erreur d'exécution 13 Incompatibilité de type

Erreur d'exécution '13': Incompatibilité de Type

VBA erreur 1004

Faiblesse des pokémon spectre