VBA - Erreur d'exécution '13': Incompatibilité de type

Résolu
Jerome - Modifié le 13 févr. 2024 à 19:22
 Jerome - 15 févr. 2024 à 23:18

Bonjour à tous,

Je me permets de solliciter votre aide car j'utilisais un outil qui calculait la date de départ en fonction des congés restant à poser sauf qu'il ne fonctionne plus: J'ai un message : Erreur d'exécution '13': Incompatibilité de type

Et quand je clique sur débogage, il me surligne cette ligne : 

ANNEE = Application.Match(Year(SORTIE), Columns(1), 0)

Pourriez vous m'aider à le rendre de nouveau opérationnel s'il vous plait?

Je vous ai mis un lien pour celles et ceux qui auraient le temps de regarder

https://www.cjoint.com/c/NBnr54iR7l2

Merci pour votre aide,

Amicalement
Windows / Chrome 121.0.0.0

4 réponses

thev Messages postés 1853 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 27 avril 2024 681
13 févr. 2024 à 20:42

Bonsoir,

Votre problème vient a priori de la présence de cellules fusionnées en colonne A.


1

Bonsoir,

Au temps pour moi vous aviez raison, un très grand merci :-)

Bonne soirée et encore merciiiiiiiii

0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 078
13 févr. 2024 à 21:48

Bonjour,

Ton fichier semble fonctionne, l'erreur d'exécution "13" vient du fait que le calendrier 2024 n'existe pas mais pour les années 2021 à 2023 il n'y a aucun problème.

ajoute donc un calendrier en respectant le saut de deux lignes entre 2023 et le nouveau  


1

Bonjour,

Merci beaucoup pour votre aide. En effet le fait que je mette du 2024 rendez la demande nulle. Mais en mettant simplement 2024 (la personne a tout programmée déjà) ça se change automatiquement et en effet ça fonctionne

Merciiiiii beaucoup 

0

J'ai oublié de préciser que c'est quand je rentre les ça ou rt que ça ne fonctionne pas 

0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 078
14 févr. 2024 à 10:14

Re,

dans un premier temps ajoute en début de code une gestion d'erreur

On Error Resume Next

comme ci dessous

Function DecalePlanning(SORTIE As Date, I As Single)
    Dim MOIS As Byte
    Dim JOUR As Byte
    Dim ANNEE As Byte
    Dim CIBLE
    On Error Resume Next

Dès que j'ai un moment je regarde pourquoi il y a ce problème

0
Jerome > Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024
15 févr. 2024 à 23:18

Re,

Franchement merci pour votre gentillesse et votre aide et pour le temps consacré.

Problème résolu un très grand merci

Amicalement 

0

Bonjour,

Merci beaucoup pour votre retour. J'ai supprimé la fusion en colonne A, mais j'ai toujours la même erreur

Si vous voyez une autre solution ?

Encore merci pour l'aide apporté 

Amicalement

0