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

Erreur 13 : incompatibilité de type ...

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Talzatior
  • 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
T

Talzatior

XLDnaute Occasionnel
Bonjour le forum 😉

Je me dirige vers vous car je ne parviens pas à me débarrasser d'une erreur "13" : incompatibilité de type !!

Et j'avoue que c'est assez énervant 😉

En effet, j'ai le code suivant :

Code: 
Private Sub cmdLancer_Click()
'Saisie la date du jour en A16
    Range("A16").Select
    ActiveCell.Value = Date
'Génère le numéro de facture
    ModNumFact.searchNumFact
    Worksheets("facture").Range("A14").Value = ModFormatNumFact.returnNumFact(ModNumFact.getNumFact + 1)
    ModNumFact.writeNewNumFact (ModNumFact.getNumFact + 1)
    'cmdLancer.Enabled = False
'Calcule l'échéance de la facture
    Worksheets("facture").Range("H16").Value = ModCalculEch.calculEcheance("A16", "E16")
    Range("A17").Select
'Verrouille les cellule N° Facture et Affaire
    'ModVerrouFacture.Verrou()
End Sub

L'erreur se déclenche sur
Code: 
Worksheets("facture").Range("H16").Value = ModCalculEch.calculEcheance("A16", "E16")

Je joins le fichier pour que vous ayez accès à la macro "ModCalculEch".

Vous remerciant par avance, Je vous souhaite à toutes et tous une agréable journée 😉
 

Pièces jointes

Trier par date Trier par votes
Re : Erreur 13 : incompatibilité de type ...

bonjour Talzatior,

la macro "ModCalculEcheance" attend une date et un string en entrée, toi tu lui a envoyé 2 string ("A16" et "E16")

essaye de remplacer
Code: 
Worksheets("facture").Range("H16").Value = ModCalculEch.calculEcheance("A16", "E16")
par
Code: 
With Worksheets("facture")
    .Range("H16").Value = ModCalculEch.calculEcheance([B]CDate[/B](.Range("A16")), [B]CStr[/B](.Range("E16")))
End With
a+
 
Vote positif 0 Vote négatif
Re : Erreur 13 : incompatibilité de type ...

Merci beaucoup, effectivement, ça tourne mieux ainsi 😉

Par contre, CDate et CStr, ce sont des commandes qui précisent les types de données contenues dans les cellules précisées ?

En tous les cas, merci mille fois 😉

A bientôt 😉
 
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

T
  • Résolu(e)
XL 2021 Incompatibilité de type avec un userform
2
Réponses
19
Affichages
933
Bernard38
V
  • Résolu(e)
XL 2016 Exportation au format PDF à l'aide d'une macro : erreur 1004 'Document non enregistré'
Réponses
14
Affichages
1 K
Phil69970
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
1 K
mouchtre
A
  • Question Question
XL 2016 Erreur d'exécution 13 Incompatibilité de type
Réponses
14
Affichages
744
Aldonanou
A
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
350
Latias
L
V
  • Résolu(e)
XL 2016 Facturier : Retour à la ligne sur la facture
2
Réponses
19
Affichages
1 K
Vermithor
V
F
  • Question Question
XL 2019 erreur 1004
Réponses
8
Affichages
542
florian50470
F
H
  • Résolu(e)
Microsoft 365 Incrémentation d'un numéro de devis/facture
2
Réponses
24
Affichages
2 K
dysorthographie
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
718
Zonmé
Z
D
  • Résolu(e)
Microsoft 365 Incompatibilité de type '13' Excel VBA
Réponses
9
Affichages
1 K
Staple1600
C
  • Résolu(e)
XL 2013 Problème incompatibilité de type
2
Réponses
16
Affichages
2 K
Chris Linefield
C
M
  • Résolu(e)
XL 2013 Liens hypertexte / Nouvelle onglet
Réponses
8
Affichages
838
vgendron
D
  • Question Question
Microsoft 365 Erreur d'execution 13 Incompatibilité de type
Réponses
14
Affichages
2 K
fanch55
M
  • Résolu(e)
Microsoft 365 Formulaire recherche qui plante - VBA
Réponses
3
Affichages
604
Mcmaldo
M
C
  • Question Question
Microsoft 365 Erreur dans mon code VBA
2
Réponses
17
Affichages
2 K
Cherrylie
C
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
M
  • Question Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
1 K
macseb
M
S
  • Question Question
XL 2019 Visual Basic: Run-time error '13': Type mismatch
Réponses
10
Affichages
1 K
snake21
S
  • Résolu(e)
XL 2019 erreur avec loop de formule vba
Réponses
5
Affichages
745
TooFatBoy
A
  • Résolu(e)
Microsoft 365 Trop de caractères de continuité de ligne
Réponses
9
Affichages
855
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…