Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Liste avec plusieurs resultats selon critere particulier

Créer une discussion

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 !

S'inscrire
G

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.
 
Trier par date Trier par votes
Re : Liste avec plusieurs resultats selon critere particulier

Bonjour,

regarde du coté du filtre élaboré, devrait résoudre ton problème... onglet "données" => groupe "trier et filtrer" => "Avancé"

bon après midi
@+
 
Vote positif 0 Vote négatif
Vote positif 0 Vote négatif
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

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

B
  • Question Question
Affichage de données sur image selon liste déroulante
Réponses
3
Affichages
2 K
Babat
B
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…