VBA faire une recherche de date

Bonjour à tous,

je suis sur un code en VBA pour réaliser une recherche sur une ligne dans un document excel.

Le terme de recherche est 30/10/2016 ou 10/2016, mais avec mon code vba il arrive pas à le retrouver.
Par contre (pour tester) je recherche le caractère "toto" il me le trouve bien.

Donc je pense que c'est le terme ou le format de la cellule qui pose un problème, mais je ne vois pas lequel:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Cherche() 'déclaration des variables : Dim Trouve As Range, PlageDeRecherche As Range Dim Valeur_Cherchee As String, AdresseTrouvee As String   '********* à adapter *********** 'affectation de valeurs aux variables : 'on cherche le mot "Trouve" Valeur_Cherchee = "a" 'dans la première colonne de la feuille active Sheets("Cumul-Stock-mort").Select Rows("1:1").Select   Dim x As Range Set x = Range("1:1").Find("01/10/2016", LookIn:=Values, lookat:=xlWhole) If Not x Is Nothing Then MsgBox x.Column   End Sub

---

Quelle erreur est-je commis dans code?

Merci d'avance pour votre aide

guigui69

Code:

---

Set x = Range("1:1").Find("2016-10-01", LookIn:=Values, lookat:=xlWhole)

---

Bonjour à tous,

Code:

---

Set x = Range("1:1").Find(DateValue("30/10/2016"), LookIn:=xlFormulas, lookat:=xlWhole)

---

devrait trouver ta date qq soit le format d'affichage.
eric

Bonjour,

Ou encore :

Code:

---

1 2	Set X = Range("1:1").Find(CDate("30/10/2016"), , xlValues, xlWhole)

---

A noter qu'avec xlValues on est tributaire du format d'affichage, la valeur cherchée String doit correspondre.
Avec xlFormulas la recherche est sur le numéro de série et est insensible au format d'affichage.
eric

Bonjour,

Tout à fait Eric, si la colonne ou ligne contient des dates avec un format de date valide, CDate() permet de transformer un String en format de date valide et les deux doivent correspondre bien sûr, ce qui pose une contrainte contrairement à ton exemple !