recherche dans tableau excel

Version imprimable

27/06/2008, 13h11
zepeto

1 pièce(s) jointe(s)

recherche dans tableau excel

Bonjour à tous,
je suis sous excel 97, je crée une macro pour faire une recherche dans un tableau de mon classeur.
Hélas, mon code permet de faire les recherche en saisissant la chose puis en déterminant dans une combobox là ou on doit chercher. (sa marche trés bien)
Mon probléme est que je voudrais ajouter dans ma combobox un élément pour faire une recherche sur le "nom" mais les noms sont stockés dans différentes colonnes (colonnes peintent en jaune dans mon classeur) et je ne trouve pas le moyen de le faire alors si vous avez des idées?
Merci par avance pour votre aide et je reste disponible pour plus d'information.

Citation:

saisissant la chose puis

que veux-tu dire par la chose ???

ce que tu veux faire si j'ai bien compris c'est rechercher toutes les cases jaunes de ta feuille et les entrer dans ta combobox pour qu'ils soient selectionnable, non ?:?

Si c'est ça que tu veux :
Code:

1 2 3 4 5 6 7 8 9 Sub recherche() For X = 1 To 100 For y = 1 To 100 If tafeuille.Cells(X, y).ColorIndex = 6 Then tacombobox.AddItem (tafeuille.Cells(X, y)) End If Next y Next X End Sub
je pense que cela devrait t'aider,
si c'est pas ça, dit-le ;)

27/06/2008, 13h59
zepeto

Bonjour,
Ce que j'entend par la chose c'est ce que recherche l'utilisateur.
Sinon je pense que je me suis mal expliqué.
Je voudrais pouvoir faire la recherche sur le nom (colonnes en jaunes) mais je ne veux pas avoir dans ma combobox "nom1", "nom2" ..."nom5" j'aimerais avoir les élément que j'ai déjà soit "dénomination", "adresse", "ccp" et "nom" qui face référence au colonnes en jaunes, mais je ne sais pas comment on le fait et ni ou je doit le placer dans mon code?
Merci pour ton aide
27/06/2008, 14h05
zandru

Je viens d'ouvrir ta pièce jointe.
donc, si je comprend bien tu veux rechercher ce que l'utilisateur rentre dans la première case dans la colonne selectionné dans la combobox suivante ?

Bonjour, je n'étais pas là cess derniers jours

Ajoute un textbox, moi je l'ai nommé "textboxproduitcherche" et donne lui le code suivant , à adapter suivant la plage de recherche et les colonnes désirées à l'affichage, pour moi, ça marche:

Code:

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
Private Sub TextBoxproduitcherche_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim cel As Range, ERREUR As Integer
Application.ScreenUpdating = False 'retire l'actualisation de l'ecran
With Sheets("references") 'feuille ou se trouve les  données
    If .AutoFilterMode Then 'regarde si le filtre automatique est activé
     .AutoFilterMode = False 'si oui le retire
    End If
    ERREUR = .Range("b2").End(xlDown).Offset(0, 0).Row 'variable de verification
    .Range("b2").AutoFilter 'filtre sur la col de recherche
    .Range("b2").AutoFilter Field:=2, Criteria1:="*" & TextBoxproduitcherche & "*" 'texte entré ds textbox
    Set plage = .Range("b2", .Range("b2").End(xlDown)) 'nom de la plage de recherche
    Set plage = plage.Cells.SpecialCells(xlCellTypeVisible)
 
    If plage.Count > ERREUR Then
    If .AutoFilterMode Then
     .AutoFilterMode = False
    MsgBox "AUCUN CRITERE NE CORRESPOND A LA RECHERCHE" 'message si pas de données
    Exit Sub
    End If
    End If
    With REFCHOISIE 'nom de la listbox ou combobox
    .Clear 'on vide le contenu
    For Each cel In plage 'et on la remplit
      .AddItem cel(1, 0) 'ajout ds combox le nom cherché
      .Column(1, .ListCount - 1) = cel(1, 1) 'col choisie sur la meme ligne
      .Column(2, .ListCount - 1) = VBA.Format(cel(1, 2), "#,##0.00 €") 'col choisie sur la meme ligne
      .Column(3, .ListCount - 1) = VBA.Format(cel(1, 3), "#0.00 %") 'col choisie sur la meme ligne
      .Column(4, .ListCount - 1) = cel(1, 5) 'col choisie sur la meme ligne
      .Column(5, .ListCount - 1) = VBA.Format(cel(1, 6), "#0.00") 'col choisie sur la meme ligne
      .Column(6, .ListCount - 1) = VBA.Format(cel(1, 8), "# ##0.00 €") 'col choisie sur la meme ligne
      .Column(7, .ListCount - 1) = VBA.Format(cel(1, 9), "##0") 'col choisie sur la meme ligne
      .BoundColumn = 1
    Next cel
 
    End With
Selection.AutoFilter
.Select
If .AutoFilterMode Then
    .AutoFilterMode = False 'retire le filtre automatique
    End If
End With
Application.ScreenUpdating = True 'actualisation de l'écran
End Sub

27/06/2008, 14h21
zepeto

c'est sa l'utilisateur tape sa recherche dans la premiére textbox et ensuite il détermine une sorte de domaine grace à la combobox puis il clique sur chercher et tout se rempli
27/06/2008, 14h24
casefayere

non, l'utilisateur remplit la textbox avec une partie du nom et clique sur entrée, la listbox ou combobox doit se mettre à jour, moi ça marche avec une listbox mais ça devrait marcher avec une combobox
27/06/2008, 14h36
casefayere

J'ai oublié de dire que je suis sous of 2007 donc les formats de mes colonnes chiffrée "vba.format" sont à traduire par "format" mais si tu n'a pas de format spécifique enlèves les , exemple:

Code:

.Column(2, .ListCount - 1) = VBA.Format(cel(1, 2), "#,##0.00 €")

à changer par :

Code:

.Column(2, .ListCount - 1) = cel(1, 2)
27/06/2008, 14h50
zepeto

Bonjour casefayere,
Je c'est pas si tu as regarder ma piéce jointe mais je ne comprend pas pourquoi tu veux que je face sa ?
Moi je voudrais juste par rapport au code que j'ai déjà et qui fonctionne, ajouter un élément dans ma combobox représentant les colonnes peintes en jaunes ?
Merci pour votre aide

Comme je ne comprends pas tout, j'ai fait un test sur la recherche (on mets le nom ou une partie du nom) qui donne en appuyant sur entrée, la dénomination

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub tbValeurcherchée_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim y As Integer, x As Integer, plage As Range
If cbChampRecherche = "denomination" Then
    y = Sheets("proc").Range("a2").End(xlDown).Offset(0, 0).Row
    With Sheets("proc").Range("a2:a" & y)
    Set plage = .Find("*" & tbValeurcherchée & "*", LookIn:=xlValues)
    If Not plage Is Nothing Then
        firstaddress = plage.Address
        Do
        tbdenomination = plage
        Set plage = .FindNext(plage)
        Loop While Not plage Is Nothing And plage.Address <> firstaddress
    End If
    End With
Else: MsgBox "nom inexistant, voir dans " & cbChampRecherche
End If
End Sub

il faut adapter pour obtenir l'adresse, code postal et ville

je continue, avec une amélioration en attendant de savoir si c'est ce que tu veux :

Code:

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
Private Sub tbValeurcherchée_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim y As Integer, x As Integer, plage As Range, indice As String, ch As String, lg As Integer
If cbChampRecherche = "denomination" Then
    indice = "denomination": ch = "a"
End If
If cbChampRecherche = "adresse" Then
    indice = "adresse": ch = "b"
End If
If cbChampRecherche = "CCP" Then
    indice = "CCP": ch = "c"
End If
If cbChampRecherche = indice Then
    y = Sheets("proc").Range(ch & "2").End(xlDown).Offset(0, 0).Row
    With Sheets("proc").Range(ch & "2:" & ch & y)
    Set plage = .Find("*" & tbValeurcherchée & "*", LookIn:=xlValues)
        If Not plage Is Nothing Then
            firstaddress = plage.Address
            lg = plage.Row
        Do
            tbdenomination = Sheets("proc").Cells(lg, 1)
            tbAdresse = Sheets("proc").Cells(lg, 2)
            tbCP = Sheets("proc").Cells(lg, 3)
            tbVille = Sheets("proc").Cells(lg, 4)
            Set plage = .FindNext(plage)
            Loop While Not plage Is Nothing And plage.Address <> firstaddress
        End If
        If tbdenomination = "" Then MsgBox "nom inexistant, voir dans " & cbChampRecherche
        End With
End If
End Sub

30/06/2008, 09h01
zepeto

Merci pour ton aide