Erreur d'execution '13' - Incompatibilité de type [Résolu/Fermé]

Signaler
-
Messages postés
23419
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
8 août 2020
-
Bonjour,

Pour des raisons professionnelles, je me suis collé à VBA pour Excel (version 2003 sur mon ordinateur perso et 2007 pour celui du travail). Le but de la manoeuvre est d'un côté créer des rapports type avec un modèle Excel incluant les macros, et d'un autre, d'avoir un fichier récapitulatif qui fasse la synthèse des dits rapports.

Grâce en grande partie au site CCM, pour le moment, tout se passe relativement bien, mais il y a une erreur que je ne parviens pas à saisir ... voyez la commande suivante :

    heures_cpt_total_enregistrement = Int(24 * cpt_total_enregistrement)
minutes_cpt_total_enregistrement = Int((cpt_total_enregistrement * 24 - heures_cpt_total_enregistrement) * 60)
If minutes_cpt_total_enregistrement < 10 Then minutes_cpt_total_enregistrement = "0" & minutes_cpt_total_enregistrement
total_enregistrement = heures_cpt_total_enregistrement & ":" & minutes_cpt_total_enregistrement

heures_cpt_total_divers = Int(24 * cpt_total_divers)
minutes_cpt_total_divers = Int((cpt_total_divers * 24 - heures_cpt_total_divers) * 60)
If minutes_cpt_total_divers < 10 Then minutes_cpt_total_divers = "0" & minutes_cpt_total_divers
total_divers = heures_cpt_total_divers & ":" & minutes_cpt_total_divers

heures_cpt_total_manoeuvre = Int(24 * cpt_total_manoeuvre)
minutes_cpt_total_manoeuvre = Int((cpt_total_manoeuvre * 24 - heures_cpt_total_manoeuvre) * 60)
If minutes_cpt_total_manoeuvre < 10 Then minutes_cpt_total_manoeuvre = "0" & minutes_cpt_total_manoeuvre
total_manoeuvre = heures_cpt_total_manoeuvre & ":" & minutes_cpt_total_manoeuvre




Les deux premiers groupes se passent très bien, mais pas celui qui commence par "heures_cpt_total_manoeuvre", qui m'affiche une erreur de type 13

Pitié, aidez moi :)

1 réponse

Messages postés
23419
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
8 août 2020
6 282
Bonjour,

La pitié ne suffira pas, il faut ton fichier. Et tu ne dis même pas la ligne exacte.
Le plus souvent ça correspond à une donnée attendue numérique qui est en texte.

cjoint.com pour joindre un fichier.

eric
Messages postés
23419
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
8 août 2020
6 282
Operation:=xlMultiply
J'avais corrigé mon post, c'est addition qu'il faut (à moins de copier un 1)

Remplacer cellule par cellule est assez lent, essaie par plages :
Columns("H:J").Replace What:=",", Replacement:=".", LookAt:=xlPart

Idem pour le format date.
Pense à mettre en résolu si c'st ok.
eric
Messages postés
17
Date d'inscription
dimanche 28 juin 2015
Statut
Membre
Dernière intervention
31 août 2015

Je ne peux pas malheureusement, le compte a été crée et pas moyen d'éditer le premier ...

oo'
Messages postés
23419
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
8 août 2020
6 282
???
Messages postés
17
Date d'inscription
dimanche 28 juin 2015
Statut
Membre
Dernière intervention
31 août 2015

En gros j'avais posté le début en tant que invité sur le forum et je ne vois pas comment le modifier maintenant
Messages postés
23419
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
8 août 2020
6 282
Ahhhh, pour mettre en résolu ?
Ok, je le fais pour toi :-)
eric