Sujet Précédent Sujet Suivant

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

Résolu
Jerome -  
 Jerome -

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

A voir également:

4 réponses

Réponse 1 / 4
thev Messages postés 2009 Date d'inscription   Statut Membre Dernière intervention   719
 

Bonsoir,

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

Bonsoir,

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

Bonne soirée et encore merciiiiiiiii

0
Réponse 2 / 4
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 141
 

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
Jerome
 

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
Réponse 3 / 4
Jerome
 

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 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 141
 

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 18405 Date d'inscription   Statut Contributeur Dernière intervention  
 

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
Réponse 4 / 4
Jerome
 

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