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 : Sélectionner tout - Visualiser dans une fenêtre à part
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