Liste avec plusieurs resultats selon critere particulier

Fermé

gaella2901 Messages postés 5 Date d'inscription mercredi 29 mai 2013 Statut Membre Dernière intervention 10 juillet 2013 - 10 juil. 2013 à 01:37
gaella2901 Messages postés 5 Date d'inscription mercredi 29 mai 2013 Statut Membre Dernière intervention 10 juillet 2013 - 10 juil. 2013 à 16:38

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 A j'ai une liste de nombre:
5.02
6.26
7.11
7.58
7.90
8.66
7.90
etc...

et en colonne B 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
En colonne A tous les nombre superieurs a 7.58
et en colonne B 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.

A voir également:

Liste avec plusieurs resultats selon critere particulier
Liste déroulante excel - Guide
Site de vente entre particulier - Guide
Lexer resultats - Télécharger - Sport
Liste déroulante en cascade - Guide
Trouver numéro liste rouge gratuitement ✓ - Forum Mobile

2 réponses

Réponse 1 / 2

Morgothal Messages postés 1236 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 19 mai 2015 183
10 juil. 2013 à 09:56

Bonjour,
Est-ce qu'une macro de ce genre conviendrait ?

Sub copie_avec_critère()
Dim chiffre As Double
Dim nom As String

Dim ligne, ligne2 As Integer

For ligne = 2 To Sheets(1).Range("A1:A65000").End(xlDown).Row
    chiffre = Sheets(1).Cells(ligne, 1)
    nom = Sheets(1).Cells(ligne, 2)
    
    If chiffre > 7.58 Then
        ligne2 = Sheets(2).Range("A1:A65000").End(xlDown).Row
        Sheets(2).Cells(ligne2, 1) = chiffre
        Sheets(2).Cells(ligne2, 2) = nom
    End If

Next

End Sub

gaella2901 Messages postés 5 Date d'inscription mercredi 29 mai 2013 Statut Membre Dernière intervention 10 juillet 2013
10 juil. 2013 à 16:38

Bonjour j'ai essayer la macroa mais elle ne marche pas serait-il possible d'avoir un fichier d'exemple?

Merci

Réponse 2 / 2

gaella2901 Messages postés 5 Date d'inscription mercredi 29 mai 2013 Statut Membre Dernière intervention 10 juillet 2013
10 juil. 2013 à 16:13

Bonjour dois-je renommer mes plages colonnes A et B chiffre et nombre pour faire fonctionner cette macro?

Merci

Discussions similaires

annuaire telephonique de maroc telecom IAM

Accéder à la liste de numéros de téléphone en 07

Annuaire inversé liste rouge

ordre alphabetique sous word

Récupérer un résultat selon la date d'aujourd'hui

Discussions similaires

Newsletters