Discussion :

[stmastma]

Bonjour,
Je cherche à faire la différence entre 2 dates dans une feuille.
J'ai déclaré mes variables comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
dim date_traite as date
dim date_recu as date
dim delai_priseencompte as integer ou as date
 
date_traite = activeworkbook.worksheet("I3").value
date_recu = activeworkbook.worksheet("A3").value
 
delai_priseencompte = date_traite - date_recu + delai_priseencompte

J'ai un message d'erreur problème de type incompatibilité pour date_traite=... et les autres.
J'ai essayé de combiner différents types de variables rien à faire !

[Fvandermeulen]

Salut,
Tu as un soucis avec la définition de ta source de données pour tes variables, tu devrais essayer comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim date_traite As Date
Dim date_recu As Date
Dim delai_priseencompte As Integer 'ou as date
 
date_traite = ActiveWorkbook.Worksheets("NomDeTaFeuille").Range("I3").Value
date_recu = ActiveWorkbook.Worksheets("NomDeTaFeuille").Range("A3").Value
 
delai_priseencompte = date_traite - date_recu + delai_priseencompte

A+

[stmastma]

Désolé j'ai mal recopié le code, en faite tout est bon pour la partie "ActiveWorkbook.Worksheets("NomDeTaFeuille").", c'est exactement ce que j'avais mis mais malgré ça :
J'ai le message incompatibilité de type 13.

Apparemment ce serait parce que je suis dans une boucle for next mais je ne vois pas pourquoi ca pose problème

[Fvandermeulen]

Apparemment ce serait parce que je suis dans une boucle for next mais je ne vois pas pourquoi ca pose problème

Et si tu mettais l'entièreté de ton code, on gagnerait peut-être du temps !