Erreur d’exécution 13 incompatibilité de type
Bonsoir
la macro bloque a cette ligne :
Quelqu'un pourrait il m'expliquer pourquoi ?
que dois je modifier dans mes classeurs ou dans la macro pour ne plus avoir ce bug ?
Bien cordialement
Astil
Bonsoir,
incompatible de type veut dire :
j'additionne des pommes avec des cornichons...
Donc la valeur de la cellule "qui est différente de rien <>"" ", doit tout de même pas être une valeur numérique...
Il faut donc peut-être changer le test avec une instruction de type "est numérique" :
If IsNumeric(Cells(Dte, 2).value) Then@ bientôt
LouReeD
Merci LouReeD,
j'ai fais le test, ça fonctionne par contre il y a un problème au niveau des dates, au au lieu du mois d'avril 2017 ça met le mois de décembre 1899 ?
Merci
Astil
Bonsoir,
Le soucis c'est que je n'ai pas réussi à "lancer" le programme, donc je ne sais ce qu'il doit y avoir dans les cellules...
Dte représente un compteur qui va de ligne en ligne de la ligne 2 à la ligne DL (dernière ligne), Est-ce cela ?
Mais avec Cells(Dte,2) vous tester le contenue de la cellule en ligne Dte et colonne B, mais qu'y a t il dans ces cellules ? des dates ? des valeurs numériques ? le 1462 correspond à 4 ans ? En fait votre test c'est de vérifier s'il y a une date dans la cellule et si c'est le cas on lui rajoute 4 ans ?
@ bientôt
LouReeD
Re
il y a des dates dans la colonne B.
Merci
Astil