Discussion :

[guigui69]

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

[Invité]

Code :

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

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

[eriiic]

Bonjour à tous,

Code :

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

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

[Theze]

Bonjour,

Ou encore :

Code :

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

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

[eriiic]

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

[Theze]

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 !