Discussion :

[victoire0]

Bonjour à tous,

Je souhaite réaliser une recherchev dont il existe des correspondance multiples (exemple ci-dessous tableau). J'aimerais, par rapport à cet exemple que ma recherchev lorsque que je recherche la valeur 10, me renvoie d'abord 1 puis 4. Actuellement la recherchev que j'ai écrit me renvoie deux fois la valeur 1... comme une recherchev "classique"...

Quelqu'un serait-il écrire une code vba pour avoir cette correspondance multiple ? Je vous remercie !

[mat955]

Bonjour,

Les RECHERCHEV ne sont pas fait pour ça.

Dans ce cas là c'est un Tableau Croisé Dynamique qu'il te faut, qui sera au passage beaucoup plus rapide qu'une RECHERCHEV

[ARTURO83]

Bonjour,

Vous avez demandé un code VBA, le voici avec le résultat affiché en colonne C. J'ai mis la valeur cherchée en dur dans le code, à vous de l'adapter à vos besoins/.

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
Sub Recherche()
    Application.ScreenUpdating = False
    Lig = 2
    Valeur = 10 'ValeurCherchée
    With Sheets("Feuil1").Columns(1)
        Set v = .Find(Valeur, lookat:=xlWhole)
            If Not v Is Nothing Then
                Cells(1, "C") = "valeur Cherchée: " & Valeur
                Deb = v.Address
                Do
                    Cells(Lig, "C") = Cells(v.Row, "B")
                    Lig = Lig + 1
                    Set v = .FindNext(v)
                Loop While Not v Is Nothing And v.Address <> Deb
            End If
    End With
End Sub

Cdlt

[victoire0]

Bonjour,

Vous avez demandé un code VBA, le voici avec le résultat affiché en colonne C. J'ai mis la valeur cherchée en dur dans le code, à vous de l'adapter à vos besoins/.

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
Sub Recherche()
    Application.ScreenUpdating = False
    Lig = 2
    Valeur = 10 'ValeurCherchée
    With Sheets("Feuil1").Columns(1)
        Set v = .Find(Valeur, lookat:=xlWhole)
            If Not v Is Nothing Then
                Cells(1, "C") = "valeur Cherchée: " & Valeur
                Deb = v.Address
                Do
                    Cells(Lig, "C") = Cells(v.Row, "B")
                    Lig = Lig + 1
                    Set v = .FindNext(v)
                Loop While Not v Is Nothing And v.Address <> Deb
            End If
    End With
End Sub

Cdlt

Bonjour, merci pour votre réponse, je suis débutante en vba, j'essaye de comprendre votre code, il y a t il des variables que je doit déterminer en amont ? Notamment "Lig", "v" et "Valeur" ? Je vous remercie par avance !

[ARTURO83]

Bonjour,

Dans "Lig=2", J'ai fixé la première ligne des résultats à la 2. Variable utilisée "LIG", mettez la ligne que vous voulez.
Pour faire des essais et ne connaissant pas comment est construit votre fichier, j'ai fixé la valeur à rechercher à 10. Variable utilisée: "Valeur", à vous d'affecter cette variable la valeur à rechercher, comment sera-t-elle choisie?
Rien à faire en ce qui concerne la variable "v"
Dernier point: j'affiche les résultats dans la colonne "C", changez la lettre de la colonne si différente dans chaque "Cells(1, "C")"

C'est tout

Cdlt

[MarcelG]

Bonjour,

Pour ma part, il reste préférable de bien déclarer les variables.

Code :

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

1
2
Dim Lig as Long
Dim v as Range

D'autre part, notre ami utilise apparemment un tableau structuré

Pour la recherche donc, plutôt qu'une colonne entière, autant utiliser le champ adéquat du tableau

Code :

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

Worksheets("Données").Range("t_Données[valeur recherchée]")

L'utilisation ici d'un tableau structuré permet de shunter la définition de plage par son adresse (derlign=....End(xlUp)

Enfin, il est souvent, voire toujours, utile de bien rattacher les Objets (ici Cells) à leur parent (Worksheet).
Dans le cas présent, je reporterais les résultats de la recherche dans une 2nde feuille, d'où la nécessité de ce rattachement.

[victoire0]

Bonjour,

Les RECHERCHEV ne sont pas fait pour ça.

Dans ce cas là c'est un Tableau Croisé Dynamique qu'il te faut, qui sera au passage beaucoup plus rapide qu'une RECHERCHEV

Bonjour,

Merci pour votre réponse, mais je cherche à faire cela par une macro en vba. En effet mon exemple était simplifié, je travaille sur un fichier principal dont j'alimente deux colonnes avec beaucoup d'autres fichiers... Cette macro serait intégrée dans mon code général. Les tcd ne sont donc pas une solution pour moi....