Discussion :

[BERRACHED SAID]

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

[Daniel.C]

Bonjour,

"Recherches" est une variable; ilne faut donc pas mettre son nom entre guillemets, sinon VBA considère le mot "Recherches" et non pas la variable :

Code :

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

result = .Range("A" & i).Value Like "*" & Recherches & "*"

au lieu de :

Code :

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

result = .Range("A" & i).Value Like "*Recherches*"

[BERRACHED SAID]

Bonjour daniel et merci

il beug a cette ligne :

Code :

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

Range("A" & i).Value = Mid(Range("A" & i).Value, InStrRev(Range("A" & i).Value, ".") - 1)

merci

[SfJ5Rpw8]

..
il beug a cette ligne :...

je comprends pas "beug" ... elle beugle ?

Rien de plus à dire ..?


elle sert à quoi cette ligne ?
toutes les ligne de ton tableau comporte-t'elle le caractére point en colonne A ?

[BERRACHED SAID]

Bonjour bbil

en faite je voudrait faire une recherche sur cette colonne qui comporte de cette façon 263/01/2012/0001 rien que sur les 4 chiffre dernier c'est pour cela que j'ai utilisé Mid c'est le numero est trouve il m'affiche sur les labels la contenu de la colonne "B" et "C"

Merci

[Daniel.C]

Dans "InStrRev", tu cherches des points plutôt que des "/".

[BERRACHED SAID]

la recherche est sur les 4 derniers chiffre du numéro bien entendu les chiffres sont sépare par "/" mais qui m’intéresse les 4 derniers chiffres c'est pour cela que j'ai utilisé Recherches = Mid$(TextBox1.Value, 13).

j’espère avoir été claire
Merci

j'ai refait le code de cette facon apparament aucun message d'erreur mais il fonctionne 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
Sub client_existe()
On Error Resume Next
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 - 1
For i = 1 To L
 With Feuil2
  result = .Range("A" & i).Value Like "*" & Recherches & "*"
  If result Then
   Recherches = Mid(Range("A" & i).Value, 13)
   Me.Label1.Caption = Cell.Offset(i, 2)
   Me.Label2.Caption = Cell.Offset(i, 3)
  End If
 End With
Next
End Sub

Cordialement

[Daniel.C]

Peux-tu mettre en PJ un classeur exemple ?

[BERRACHED SAID]

bonjour daniel
voila un exemple de mon classeur en PJ.
merci

[Daniel.C]

Code :

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

If Val(Recherches) = Val(Left(result, Len(Recherches))) Then

Je ne comprends pas ce que tu cherches à faire "result" prend les valeurs "Vrai" ou "Faux" selon qu'on a trouvé corresppondance. Peux-tu dire ce que tu cherches à faire quand on trouve l'égalité ?

[BERRACHED SAID]

salut daniel

quand le numero est trouvé je veux qu'il m'affiche la colonne "C" et "D" du numero trouvé dans les labels.

j'ai met un fichier joint

Bonne journnée

[Daniel.C]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub client_existe()
'On Error Resume Next
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)
With Feuil2
    L = Application.Match("????????????" & Recherches, .[A:A], 0)
    Me.Label1.Caption = .Cells(L, 3).Value
    Me.Label2.Caption = .Cells(L, 4).Value
End With
End Sub

[BERRACHED SAID]

salut daniel

Merci mon cher ami c'est le resultat souhaité

bonne journée