Discussion :

[souley90]

Bonjour à tous ,


Je cherche à programmer un moteur de recherche sous la forme d'un userform excel et je n'arrive pas à définir le nombre de décimale des données qui apparaîtrons dans les différentes colonnes de ma listebox.

Mon code est le suivant :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
 
Private Sub TextBox1_Change()
Sheets("Base De Données").Select
Range("C:C").NumberFormat = "0.00"
 
Dim Plage As Range, cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Integer, n As Integer
Dim C As Range
ListBox1.Clear
n = 0
Recherche = TextBox1.Value
Range("a2").Select
Ligne = Sheets("Base De Données").Range("a" & "6556").End(xlUp).Row
Set Plage = Sheets("Base De Données").Range("a" & "1:" & "a" & Ligne)
With Plage
Set C = .Find(Recherche, , xlValues)
If Not C Is Nothing Then
Adresse = C.Address
 
Me.ListBox1.ColumnCount = 18
Do
    If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then
        ListBox1.AddItem C.Offset(0, 0), n
        ListBox1.List(n, 0) = C
         ListBox1.List(n, 1) = C.Offset(0, 1)
          ListBox1.List(n, 2) = C.Offset(0, 2)
           ListBox1.List(n, 3) = C.Offset(0, 3)
            ListBox1.List(n, 4) = C.Offset(0, 4)
             ListBox1.List(n, 5) = C.Offset(0, 5)
             ListBox1.List(n, 6) = C.Offset(0, 6)
             ListBox1.List(n, 7) = C.Offset(0, 7)
              ListBox1.List(n, 8) = C.Offset(0, 8)
              ListBox1.List(n, 9) = C.Offset(0, 9)
 
 
 
                n = n + 1
    End If
    Set C = .FindNext(C)
    Loop While Not C Is Nothing And C.Address <> Adresse
    End If
 
 
End With
 
 
End Sub

Merci d'avance pour votre aide !

[Theze]

Bonsoir,

Avec Round :

Code :

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

1
2
 
ListBox1.List(n, 1) = Round(C.Offset(0, 1), 2)

Hervé.

[souley90]

Top ! merci pour ta réponse rapide et efficace
par contre j'ai un autre problème j'arrive pas à ajouté plus de 10 colonne sur ma listbox ( je suis sur excel 2003 )

[Theze]

Bonjour,

Tu as atteint le maximum !

Hervé.

[Docmarti]

Bonjour souley

Set C = .Find(Recherche, , xlValues)

La recherche de valeurs numériques par FIND et XlValues n'est pas facile à utiliser efficacement.

Si les valeurs du champ de recherche ne sont pas le résultat d'une formule, utilise FIND avec XlFormulas :

Code :

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

Set C = .Find(Recherche, , xlFormulas, xlWhole)

en enlevant la comparaison

Code :

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

 If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then

Sinon mieux vaut utiliser une boucle FOR...NEXT