Erreur d'execution '13 Incompatible de type

Bonjour Whismeril,

En dehors de ce que vous avez mis en evidence, j'ai simule comme j'ai pu avec la ligne ou est l'erreur et les infos de l'image. Je n'ai pas d'erreur mais pourrai confirmer avec le fichier du monsieur mandrake007

mandrake007:
Pouvez-vous mettre votre fichier a dispo ??

Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

Bonjour

VBA c'est pas mon fort, mais un erreur de type ça veut que le compilateur n'arrive pas à interpréter ce que tu lui donnes comme étant un double.

Ta copie d'écran étant illisible je me réfère à ce que tu as écrit en dessus.

Sheets(tabs).Range(Column_value & j -1) = 0.0078125

Dans ton code c'est pas tabs, c'est onglet, en supposant que onglet et tab valent la même chose:

• est-ce que le symbole décimal sur ton PC est bien le . par défaut sur un PC français, c'est la , auquel cas, 0,0078125 est un double alors que 0.0078125 non.
• Est ce que ta cellule est au format texte? "0.0078125" n'est pas non plus un double
• Enfin, il me semble que sur VBA, les cellules ont une propriété Value, que vaut elle?

Bonjour,
Sur quelle ligne l'erreur??
Avec le code fourni, va pas être facile de vous aider!!!!!!