Discussion :

[Péchereau]

Bonjour à tous,

Mon objectif est de retrouver le numéro de colonne, dans une ligne sélectionnée, qui correspond à une date donnée.
j'ai le code suivant :

Code :

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

colDate = Application.Match(dateEndofMonth, Rows(7), 0)

qui me retourne une erreur : "Erreur 2042"

Or, quand j'utilise, sous Excel directement, la formule en question :

Code :

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

=EQUIV(E3 ; 7:7; 0)

(la cellule "E3" contenant la date en question), cela marche correctement.

Comment expliquer cette "anomalie" ?
Et comment faire en sorte que je puisse rechercher, dans mon code VBA, la position de cette date ?

Merci d'avance,

Cordialement,

[Jean-Philippe André]

salut
essaie d'utiliser a la place la syntaxe suivante :

Code :

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

Application.WorksheetFunction.Match

[Péchereau]

Encore pire :
"Erreur d'exécution '1004' :
Impossible de lire la propriété Match de la classe WorksheetFunction"

[Jean-Philippe André]

ce n'est pas pire, je te rassure.
Ton code est-il dans un module ou dans une page ?

[Péchereau]

le code est écrit dans un Module

[Jean-Philippe André]

OK, dans ce cas la, il faut specifier dans quelle feuille tu veux aller chercher ta Row

[mapeh]

Bonjour,

Excel considère les dates comme étant des nombres.
Ainsi, le 03/07/2010 pour lui, équivaut à 40362 (nombre de jours depuis le 01/01/1900)

En convertissant ta date en Long, tu obtiens ton résultat :

Code :

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

colDate = Application.Match(CLng(dateEndofMonth), Rows(7), 0)

Ou alors, tu déclares ta variable en Long dans la déclaration des variables :

Code :

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

1
2
3
Dim dateEndofMonth As Long
dateEndofMonth = Range("E3").Value
colDate = Application.Match(dateEndofMonth, Rows(7), 0)

Et le tour est joué...

Bonne journée

[Péchereau]

OUI !!!!
Effectivement il faut convertir en nombre pour que la recherche marche !