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

Résolu

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

  1. 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
    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
  2. 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
    1. Bonsoir,

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


      1
      1. Bonsoir,

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

        Bonne soirée et encore merciiiiiiiii

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

      0
      1. 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
      2. @Mike-31

        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