Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Run-time error 13, type mismatch

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Cougar
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

Cougar

XLDnaute Impliqué
Bonsoir tout le monde,

Avec le code suivant j'ai ce problème : lorsque je change le contenu de ma cellule le code réagit (il est tronqué car trop long et inutile pour le moment) et fonctionne très bien sauf que... j'efface le contenu de la cellule en $M$4 et je voudrais que s'arrête d'ou "And Target.Value = "" Then Goto Fin" mais cela ne fonctionne pas. Comment corriger ?

Merci

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$M$4" And Target.Value = "" Then
GoTo Fin
Else
If Target.Address = "$M$4" And Target.Value = "E1" Then
Range("a13") = "9"
Range("e13") = "08:15"
Range("f13") = "16:45"
Call CommandButton1_Click
GoTo Fin
End If
End If
 
Trier par date Trier par votes
Re : Run-time error 13, type mismatch

Bonjour Cougar

Normalement quand on met un goto (goto fin dans ton exemple), il faut que tu es dans ta routine

Code: 
fin:

Notons que tu peux avoir plusieurs fin ex: fin1, fin2 etc...
 
Vote positif 0 Vote négatif
Re : Run-time error 13, type mismatch

Bonsoir

Le mot "fin" n'est pas à la bonne place par rapport aux End If.

Le plus simple est de mettre exit sub.

JP
 
Vote positif 0 Vote négatif
Re : Run-time error 13, type mismatch

Cougar,

Pour éviter les erreurs ...
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
    If Target.Address = "$M$4" And Target.Value = "E1" Then
        Range("a13") = "9"
        Range("e13") = "08:15"
        Range("f13") = "16:45"
        Call CommandButton1_Click
    ElseIf IsEmpty(Range("M4")) Then
        Range("a13,e13,f13").ClearContents
    End If
End Sub
🙂
A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2016 Aide pour maj auto de la date + selection multiple dans une liste déroulante
Réponses
5
Affichages
849
fanch55
P
  • Résolu(e)
Microsoft 365 Afficher ou masquer formes si une cellule est vide
Réponses
11
Affichages
647
pat66
P
R
  • Question Question
XL 2016 excel 2016 VBA
Réponses
2
Affichages
511
rebatte
R
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
D
  • Question Question
Microsoft 365 Historique des modifications
Réponses
11
Affichages
1 K
sylvanu
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
655
JJ69
J
E
  • Résolu(e)
Microsoft 365 Ajout et Suppression Date automatique
Réponses
9
Affichages
638
eric72
E
S
  • Question Question
XL 2019 Problème dans un code vba
Réponses
2
Affichages
691
snoopy07
S
R
  • Résolu(e)
XL 2016 extraire des données
Réponses
2
Affichages
816
rebatte
R
  • Question Question
Microsoft 365 Envoi Mail Automatique avec Condition
Réponses
2
Affichages
812
ELSONCe
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
M
  • Question Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
1 K
Oneida
D
  • Question Question
XL 2019 Aide à la compréhension d'un code VBA
Réponses
4
Affichages
1 K
Dudu2
J
  • Question Question
XL 2019 probleme Sheets("entreeor").ListObjects(1).ListRows.Add
Réponses
11
Affichages
2 K
Gégé-45550
S
  • Question Question
XL 2019 Visual Basic: Run-time error '13': Type mismatch
Réponses
10
Affichages
1 K
snake21
S
U
  • Question Question
Autres [RESOLU] Application.ScreenUpdating = False
Réponses
4
Affichages
1 K
un internaute
U
E
  • Question Question
XL 2013 Envoi mail par macro via exchange
Réponses
1
Affichages
1 K
Hasco
XLS : Créer une animation fluide sans Crash (ou presque) !
Réponses
7
Affichages
1 K
Lu76Fer
S
  • Question Question
XL 2010 Séparer macro en 2
Réponses
2
Affichages
830
samfau
S
R
  • Question Question
XL 2019 Optimisation de longueur de barre en long multiple
Réponses
3
Affichages
4 K
Ryoken
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…