Microsoft 365 VBA : Problème de reconnaissance de variable avec fonction FIND

[treza88]

Bonjour a tous,

J'ai cette ligne de code ci dessous, Qui fonctionne parfaitement avec des dates rentrées en dur dans les cellule.

Set celCollerDate = = Sheets("treminé").Range("D2;Z2)").Find(dateDeb,, lookIn:=xlFormulas)

Le soucis est que je veux que mes dates soit etirable et sous un format de 5 jours ouvré, donc j'ai utilisé la formule ci dessous :

=SERIE.JOUR.OUVRE(K2;1)

Et pour le coup mon code ne trouve plus la date, parce qu'elle n'est plus en dur dans la cellule.

J'ai essayer de donner a ma variable "dateDeb" un format date, mais même la variable en date, elle n'est pas trouvé par Find.

Auriez vous une solution pour trouver cette date sans passer par une date en dur ?


Complément après avoir posté le début :

Après quelques recherches je suis tomber là dessus, et donc ça ne parait pas si simple.

Discussion 'Find date résultant d'une formule ET avec format personnalisé'

19 Avril 2018

Bonjour le forum

c'est un sujet vu et revu. et pourtant.. je me casse les dents dessus...

Dans la PJ:
J'ai en lignes, les dates de l'année (1er Décembre annee n-1==> 31 Décembre annee n)

-->Ligne3 en format "ddd" pour avoir Lun, mar....
=ligne5

-->Ligne 4 en format "Date Courte"
=ligne5

-->ligne 6 en format "dd" pour n'avoir que le numéro du jour
1er jour = formule avec Date()
jours suivants = formule = jour précédent +1
==> toutes les dates des 3 lignes résultent de formule

-->cellule S8: la date (format date courte) à récuperer et chercher

j'en arrive au besoin
avec...

• vgendron
• Réponses: 16
• Forum: Forum Excel

Donc quel code me conseilleriez vous pour trouver ma date dans la plage ?

 

[treza88]

Pour l'instant j'ai fait une boucle For Each, ça fonctionne.

Si vous avez une meilleur proposition , merci d'avance.

 

[Dranreb]

Bonsoir.
Mettez LookIn:=xlValues au lieu de xlFormulas si la date cherchée n'est plus dans une formule.