Discussion :

[guigui69]

Bonsoir à tous,

Je dispose dans une feuille excel d'une liste utilisateur (col A) et d'une société (Col B), il y des lignes qui se repete

Ci-joint le document.

Et je voudrais par exemple sur une autre feuille extraire de la première feuille (BDD) tout les utilisateurs qui sont de la société Microsoft (Cellule E2) et que leur nom apparaisse une seule fois.

Est-ce réalisable ?

Merci d'avance pour votre aide et vos explications

guigui69

[jfontaine]

Bonjour,

Tu peux aussi faire cela sans VBA en utilisant la formule matricielle ci dessous

A mettre en A3 et a valider par CTRL + MAJ + ENTREE, puis descendre la formule

Code :

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

=INDEX(BDD!$A$1:$A$16;PETITE.VALEUR(SI((BDD!$B$1:$B$16=$E$2)*1=1;LIGNE(BDD!$A$1:$A$16)-MIN(LIGNE(BDD!$A$1:$A$16))+1);LIGNES(BDD!$A$1:A1)))

Cette formule ne gère pas l'erreur si plus rien a retourner, alors il te faudra gérer cette erreur comme ceci

Code :

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

=SI(ESTERREUR(INDEX(BDD!$A$1:$A$16;PETITE.VALEUR(SI((BDD!$B$1:$B$16=$E$2)*1=1;LIGNE(BDD!$A$1:$A$16)-MIN(LIGNE(BDD!$A$1:$A$16))+1);LIGNES(BDD!$A$1:A1))));"";INDEX(BDD!$A$1:$A$16;PETITE.VALEUR(SI((BDD!$B$1:$B$16=$E$2)*1=1;LIGNE(BDD!$A$1:$A$16)-MIN(LIGNE(BDD!$A$1:$A$16))+1);LIGNES(BDD!$A$1:A1))))

[guigui69]

Merci pour ta réponse,

peux-tu m'expliquer ta formule je comprend pas INDEX LIGNE et est-il possible de limiter à l’apparition à une fois du prenom.

Dans ton exemple cela répété le prénom de "Jean" et je voudrais que celui-ci s'inscrive juste une fois. Est-ce possible ?

[jfontaine]

Difficile de t'expliquer le fonctionnement de cette formule (j'avoue que je ne la maîtrise pas encore très bien)

Pour sortir une liste sans doublons, je ne vois que le code

Exemple en utilisant un dictionaire

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
Sub LanceFiltre()
 
Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")
Dim i As Integer
 
Dim sh As Worksheet
Dim shCible As Worksheet
 
Set sh = Sheets("BDD")
Set shCible = Sheets("Microsoft")
 
shCible.Range("A:A").ClearContents
 
'Ajoute les données
For i = 1 To sh.Range("A" & Rows.Count).End(xlUp).Row
    If UCase(sh.Range("B" & i).Value) = UCase(shCible.Range("E2").Value) Then
        If Not dic.Exists(sh.Range("A" & i).Value) Then
            dic.Add sh.Range("A" & i).Value, sh.Range("A" & i).Value
        End If
    End If
Next i
 
'Copie le dictionnaire sur la feuille
shCible.Range("A1").Resize(dic.Count, 1) = Application.WorksheetFunction.Transpose(dic.Keys)
 
 
End Sub

[guigui69]

Merci pour ta réponse,

Comment je pourrais adapté ton code dans le cas ou j'ai plusieurs feuille, comme dans l'exemple je voudrais rajouter la feuille google et faire meme type extraction.

Merci d'avance pour vos explications

guigui69