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

4 réponses

  1.
    thev Messages postés 2011 Date d'inscription   Statut Membre Dernière intervention   724
     

    Bonsoir,

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

    1
    1. Jerome
       

      Bonsoir,

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

      Bonne soirée et encore merciiiiiiiii

      0
  2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     

    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. 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
  3. Jerome
     

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

    0
    1. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
       

      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
      1. 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
  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