Discussion :

[bilou_12]

Bonjour,

dans le bout de code suivant

Code :

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

DateDiff("d", Range(colTradeDate & i), .Range(colCaptureDate & i))

est égal à 41156.

Pourtant,

Code :

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

Range(colTradeDate & i) = 03/09/2012

et

Code :

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

.Range(colCaptureDate & i)=04/09/2012

!

Que se passe-t-il?

Merci d'avance pour vos conseils!

[HopPopPop]

Bonjour à tous.

Chez moi, ça fonctionne, j'obtiens 1.

En ayant ajouter, pour essai

Code :

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

colTradeDate = "A": i = 1: colCaptureDate = "B"

et écrit 03/09/2012 en A1 et 04/09/2012 en B1 puis

Code :

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

j = DateDiff("d", Range(colTradeDate & i), Range(colCaptureDate & i))

J'ai enlevé le "." devant le 2ème Range, sans doute pour un With ??

Les Ranges utilisés doivent être dans le format Date.

Cordialement.

[EDIT] - Je suis perplexe !
J'ai fait un essai avec une date A1 03/09/2012 sur feuille 1 et B1 04/09/2012 sur feuille2
En conservant le ".", là j'obtiens 41156 ? avec le code suivant

Code :

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

1
2
3
4
colTradeDate = "a": i = 1: colCaptureDate = "b"
With Sheets("Feuil2")
    j = DateDiff("d", Range(colTradeDate & i), .Range(colCaptureDate & i))
End With

[Harry Covair]

Bonjour,

A quoi sert le "." devant le second "range"?
Cela n'irait-il pas mieux en le supprimant?

Harry

[HopPopPop]

C'est un problème de feuille active.

Le second Range fait appel à la bonne feuille puisqu'elle est nommée par l'instruction With ; en revanche le premier Range part du principe de la feuille active.

si la feuille active est celle où se trouve la date, c'est bon ; à l'inverse, si c'est une autre feuille active où la date voulue n'y est pas, alors le résultat est faussé. on obtient effectivement 41156 avec une cellule vide.

[EDIT] Pour éviter ce genre de problème qui pourrait survenir lors de changements de feuille par l'utilisateur pendant le déroulement du code.

Code :

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

DateDiff("d", Sheets("Feuil1").Range(colTradeDate & i), .Range(colCaptureDate & i))

Préciser en dur la feuille du 1er Range

[gFZT82]

Bonjour,

Un petit complément d’explication.
Le nombre 41156 correspond au numéro de série de la date "04/09/2012".
Si tu obtiens ce résultat, c’est que l’autre argument vaut 0. Ta formule est alors équivalente à

Code :

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

DateDiff("d", 0, DateValue("04/09/2012"))

Reste à comprendre pourquoi Range(colTradeDate & i) vaut 0.
Comme l’indique HopPopPop, l’écriture sans le point avant Range(colTradeDate & i) indique que tu fais référence à la feuille active. C’est certainement cette référence qui est incorrecte.
Si tu places un point avant Range(colTradeDate & i), celui-ci te permet de faire référence à l’objet spécifié par l'instruction With .
Si tu souhaites faire référence à une autre feuille, tu dois le noter explicitement (comme indiqué également par HopPopPop) .
Exemple :

Code :

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

DateDiff("d", Sheets("Feuil1").Range(colTradeDate & i), .Range(colCaptureDate & i))

Cordialement.

[bilou_12]

Merci tout le monde!

C'est bel et bien un oubli du "." donc un problème de feuille active.