Liste avec plusieurs resultats selon critere particulier

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

gaella2901

XLDnaute Nouveau
Bonjour,

Je poste car je n'ai pas trouve de formule ou macro satisfaisantes pour le moment

Je travaille sous office 2010 et je cherche a faire apparaitre sous forme de liste le resultat d'une recherche selon un crietere particulier.

Un exemple sera plus parlant:

Dans une feuille1 en colonne O j'ai une liste de nombre:
5.02
6.26
7.11
7.58
7.90
8.66
7.90
etc...

et en colonne A la liste des noms associes
Fabrice A
Lola B
Arthur X
Andre Z
Pierre T
Simon P
Valerie Y
etc...

Je souhaite faire apparaitre sur une feuille2
A partir de la cellule B34 tous les nombre superieurs a 7.58
et en C34 tous leur noms associes

Attention je recherche une liste avec vue detaillee
c'est-a-dire pas de liste deroulante
De meme toutes les occurences (superieurs a 7.58) meme si elles sont multiples doivent apparaitre

Pouvez-vous m'aider?

N'hesitez pas a poser des questions si je ne suis pas assez claire

Merci d'avance pour votre aide.
 
Re : Liste avec plusieurs resultats selon critere particulier

Bonjour à tous,

Le fichier diffère de ce qui est indiqué au post #1 mais pas grave.

Avec cette macro il n'y aura pas de surprise si des valeurs sont du texte :

Code:
Sub Filtrer()
Dim mini#, tablo, R(), i&, v#, n&
mini = 7.58 'donnée de base, à adapter éventuellement
With Sheets("TEMPS")
  tablo = .Range("A1", .Cells(.Rows.Count, "G").End(xlUp))
End With
ReDim R(1 To UBound(tablo), 1 To 4)
For i = 1 To UBound(R)
  v = Val(Replace(tablo(i, 7), ",", "."))
  If v > mini Then
    n = n + 1
    R(n, 1) = v
    R(n, 2) = tablo(i, 1)
    R(n, 3) = tablo(i, 3)
    R(n, 4) = tablo(i, 2)
  End If
Next
With Sheets("Daily_Recap")
  .[B34:E34].Resize(UBound(R)) = R
  .Range("B" & i + 33 & ":E" & .Rows.Count).ClearContents
  .Activate 'facultatif
End With
End Sub
Fichier joint.

A+
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour