Discussion :

[biche1]

Bonjour!
J'ai une colonne A ou se trouve les valeurs rechercher,
je voudrais retourner les valeurs de la colonne B ou C ou D ou... dans une cellule ou une colonne de la feuille active. Ma plage de données est sur la feuille Liste.
J'ai essayé rechercheV mais cela me retourne qu'une valeur et non toutes les valeurs. J'ai aussi essayé la fonction indexavec Equiv, la fonction decaler et mon dernier essai la fonction Vlookup qui se présente comme suit :

Code :

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

1
2
3
4
5
6
7
8
Sub test(var) 
Dim i As Integer 
i = 1 
For i = 1 To Cells(i, 1) <> "" 
Range(Cells(i + 4, 2)).Formula = "= VLOOKUP(var,Liste!(A1)(F100),7,true)" 
Next 
 
End Sub

Exemple de tableau

Equipe1 salle 101
Equipe2 salle 102
Equipe 1 salle 104
Equipe 3 Salle 105
Equipe 2 Salle 103

A partir d'une recherche sur l'équipe, je voudrai retourner toutes les salles qu'elle a occupée.

Merci de vos réponses.

[Pierre Fauconnier]

Bonjour et bienvenue sur nos forums...

Pense à prendre connaissance des règles du forum, et pense à placer les balises de code, cela rendra ton code plus lisible.

Utiliser VLookup revient à utiliser RechercheV...

Moi, je m'orienterais vers deux solutions:
Soit un tableau croisé dynamique dans lequel les équipes sont placées en ligne et les salles en colonnes, tu as alors un récap de l'utilisation des salles par les équipes. Tu peux aussi placer les équipes en page et les salles en ligne, pour filtrer sur une équipe particulière.

Soit un tableau à double entrée, équipes dans la colonne 1 et salles sur la ligne 1, avec, en B2, une formule qui pourrait ressembler à celle-ci

Code :

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

=SOMMEPROD((Feuil2!$A$2:$A$6=$A2)*(Feuil2!$B$2:$B$6=B$1))

en adaptatn les références à ta situation.

[biche1]

Voici la solution pour laquelle j'ai opté.

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 test(var)
Dim i As Integer
Dim j As Integer
i = 1
j = 5
While Sheets("Liste").Cells(i, 1) <> ""
If Sheets("Liste").Cells(i, 1) = var Then
Cells(j, 2) = Sheets("Liste").Cells(i, 7)
Cells(j, 3) = Sheets("Liste").Cells(i, 5)
Cells(j, 4) = Sheets("Liste").Cells(i, 9)
Cells(j, 5) = Sheets("Liste").Cells(i, 8)
j = j + 1
End If
i = i + 1
Wend
 
End Sub