Bonjour le Forum
je voudrais faire une recherche sur BD(Feuille de calcul)a l'aide d'un textbox
mes données dans la colonne "A" sont disposé comme suite :
263/01/2012/0001
263/01/2012/0002
263/01/2012/0003
263/01/2012/0004
ma recherche ce fait uniquement sur les quatre derniers chiffres souligné en rouge.
j'ai met ce code mais apparament il ne marche pas
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 Sub client_existe() Dim result As Boolean Dim nom As String Dim L As Integer TextBox1.Value = Format(TextBox1.Value, "000/00/0000/0000") Recherches = Mid$(TextBox1.Value, 13) L = Sheets("Offices & Organismes").Range("A65536").End(xlUp).Row For i = 1 To L With Feuil2 result = .Range("A" & i).Value Like "*Recherches*" If result Then Range("A" & i).Value = Left(Range("A" & i).Value, InStrRev(Range("A" & i).Value, ".") - 1) Me.Label1.Caption = Cell.Offset(0, 1) Me.Label2.Caption = Cell.Offset(0, 2) End If End With Next End Sub
Merci infiniment
Partager