CDbl erreur mais fonctionnait avant
Bonjour à tous,
Une petite question rapide, ça faisait longtemps que je n'avais plus rien poster.
J'avais du code, qui fonctionnait bien, mais après une petit mois de non utilisation, ça ne fonctionne plus.
Voici sur quoi ma ligne de code fonctionne. J'essaye d'enlever le texte et de garder les chiffres et qu'ils soient en format chiffre.
201922_WCAMF
et voici le code qui était censé transformé en chiffre soit :
201922
Dim num_lot As Variant
num_lot = CDbl(Left(.Cells(J, 10), 6))Le code est dans une boucle for pour faire ligne par ligne et ma cellule est bien dans la colonne 10
L'erreur est : incompatibilité de type (erreur d’exécution 13)
Ce que je comprend surtout pas, c'est que j'ai déjà eu l'occasion d'utiliser le code avec exactement la même chose. Mais ici, ça ne fonctionne plus.
Y a-t-il une réponse simple?
Ça serait l'idéal, sinon je vais devoir tout copier à la main et ça va être très long et chiant.....
J'espère que vous me solutionnerez facilement mon problème.
Merci à vous,
Maxime
Bonjour,
Il nous faut le code complet pour voir ce qui ne va pas. L'idéal est le fichier en disposition.
Bonjour,
Utilise :
num_lot = Val(.Cells(J, 10))Val récupère la partie numérique en début de chaîne en ignorant les espaces.
(Attention cependant, il ne reconnait pas la virgule mais seulement le point comme séparateur décimal, aussi si des valeurs décimales sont attendues [ce qui devrait être le cas, sinon pourquoi convertir en type Double !?], remplacer les virgules par des points [Replace] dans l'expression passée à Val.)
Cordialement.
Merci pour vos message et la réactivité,
Mais
num_lot = Val(.Cells(J, 10))fonctionne à merveille.
Oui, c'est fort possible que parfois je fais des choses un peu bizarre et pas optimal, mais étant débutant, et faisant ça dans mes heures perdues..... j'ai pas toujours le temps de creuser le problème et je m'arrête de temps en temps sur un truc qui marche même si c'est pas le meilleur des moyens.
Enfin voilà, ça fonctionne
Merci!!