Bonjour,
Cette macro fonctionne à merveille pour rechercher du texte, mais impossible de trouver une date alors que la recherche excel trouve mes dates sans problème.
Merci pour votre aide
Philippe
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
20
21
22
23
24
25
26
27
28 Private Sub BT_Chercher_Click() Dim Trouve As Range Dim PlageDeRecherche As Range Dim Valeur_Cherchee As Variant Dim AdresseTrouvee As String Application.ScreenUpdating = False Valeur_Cherchee = TextBoxDate If TextBoxDate <> Format(TextBoxDate, "dd.mm.yyyy") Then MsgBox "Saisir la date au format 01.12.2020" Exit Sub Else Valeur_Cherchee = TextBoxDate Set PlageDeRecherche = ActiveSheet.Range("BE49:AKD49") 'Important!!! pour les dates ou les nombres = Format de cellule ajuster au texte Set Trouve = PlageDeRecherche.Find(What:=Valeur_Cherchee, LookIn:=xlValues, LookAt:=xlWhole) 'traitement de l'erreur possible : Si on ne trouve rien : If Trouve Is Nothing Then 'ici, traitement pour le cas où la valeur n'est pas trouvée MsgBox " La recherche demandée n'éxiste pas.", vbExclamation, "! Oups ! Action interrompue" Else 'ici, traitement pour le cas où la valeur est trouvée AdresseTrouvee = Trouve.Address Range(AdresseTrouvee).Offset(rowOffset:=-1, columnOffset:=0).Select Unload Me End If End If Application.ScreenUpdating = True End Sub
Partager