Recherchev

[Sandra]

Bonjour,

Je cherche comment faire pour aller chercher tous les noms qui appartiennent à un code. Exemple
A B
48 Julie
48 Mathieu
48 Karine
47 Luc

Donc, je voudrais avoir dans un tableau la colonne A avec le chiffre 48 et dans la colonne b il va chercher tout ceux qui ont 48 dans la colonne A

A B
48 =Formule


Merci et bonne journée

 

[_Thierry]

Re:Recherchev (Specialiste Formule Demandé(e)) !!!

Bonjour Sandra, enfin Bonsoir

La formule RechercheV seule ne peut retourner qu'une seule occurrence par Code, c'est une combinaison de Fonctions qu'il te faut et là c'est pas mon truc (lol) (Index, Equiv, SommeProd)

Dans l'attente que nos spécialites Formules viennent dans ce Post, je peux te le faire en VBA mais je ne pense pas que c'est ce que tu cherches...

Regardes en attendant pour te faire Patienter regarde cette Démo :

=> Lien supprimé

Bonne Soirée
@+Thierry

 

[Sandra]

Re:Recherchev (Specialiste Formule Demandé(e)) !!!

Merci Thierry, mais ce n'est pas tout a fait ce que j'ai besoin.

Mais, ca va surement me servir pour autre chose.....

Merci beaucoup 😉

 

[Rénato]

Salut Sandra, Mes respects mon cher Thierry,

Un petit exemple de filtre élaboré qui devrait venir au secours de Sandra.



bonne soirée à tous les deux [file name=sandra.zip size=17144]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/sandra.zip[/file]

 

[Celeda]

Re:Recherchev (Specialiste Formule Demandé(e)) !!!

Bonjour,

Il y a un qui combine le tout : (surtout les sommeprod puisqu'il en est rempli) c'est le TCD et je vois Thierry que tu m'as déjà oublié 🙁 🙁 🙁 🙁 mais bon c'est pas grave comme je t'aime beaucoup malgré tout... 🙂 🙂 🙂 , je te pardonne mon grand!!!

Pour des petites bases de données c'est un vrai plaisir
que dis-je, comme si on buvait un elixir

cela s'effleure d'une touche
et intutile d'être farouche

il s'apprivoise en un tournemain
et réalise notre dessein


Celeda

PS Forum - PERSO - (pardonnez-moi à l'avance pour cette intrusion )

Ma copine Monique rencontre de sérieuses difficultés pour se joindre à nous. Une panne sérieuse de son modem nous la rend indisponible mais elle est avec nous tous les jours!!!.[/size]

[file name=TcdNos.zip size=4499]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TcdNos.zip[/file]

 

[_Thierry]

Re:Recherchev (Specialiste Formule Demandé(e)) !!!

Coucou Celeda

For i = 1 to 100000000000000
Big BizzzzzzzzzzzzzzzzzzzOuh !
Next

Sorry pour les TCD !!! LOL C'est que c'est pas mon truc non plus... Mais bon je le fais en moins de vingts ligne de codes sans intervention humaine et sans limite de taille donc, en fait je suis devenu parresseux (enfin pas sur XLD !) LOL

Pour Rénato

Le truc de Rénato : Attention ne réaliser un filtre élaboré qu'à partir de la feuille de destination des données…sinon….message d'erreur assuré !!!

Non non, on voit que tu as fait l'école buissonière d'XLD ce week-end, on a appris une garnde nouvelle... Cherche Brigitte ... (hihihi le 02/04/2005 13:35....)

Bonne soirée

@+Thierry

PS ah oui le fameux code dont j'ai parlé plus haut... Ici [file name=Faux-RechercheV-LOL_20050404224337.zip size=12478]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Faux-RechercheV-LOL_20050404224337.zip[/file]


EDITION !!! Rectification du Code

En fait je n'ai pas mis de libellé sur la Feuille Data... Donc le code devrait être comme ceci, sinon Julie passe à la Trape (heureusement que c'est pas Celeda, elle sur la ligne numéro 7... lol)
Plage = .Range('A2:B' & .Range('A65536').End

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Variant
Dim L As Long, I As Long
    If Target.Address(0, 0) = 'A1' Then
        Me.Range('B1:B65536').ClearContents
        L = 1
                With Sheets('Data')
                Plage = .Range('A2:B' & .Range('A65536').End(xlUp).Row)
                End With
       
                For I = 1 To UBound(Plage)
                    If Target.Value = Plage(I, 1) Then
                        Me.Cells(L, 2) = Plage(I, 2)
                        L = L + 1
                    End If
                Next
    End If
End Sub

Sorry Too Speed !!! @+Thierry

Message édité par: _Thierry, à: 04/04/2005 22:51

Message édité par: _Thierry, à: 04/04/2005 22:54

 

[Rénato]

Re:Recherchev (Specialiste Formule Demandé(e)) !!!

Re Thierry, Bonsoir princesse CELEDA,

C'est très juste thierry, j'ai fait l'école buissonnière ce week-end, j'avais un déménagement + un garage à carreler....dur dur de concilier ça avec le forum.
Cependant je reviens sur la notion de 'feuille de destination des données' . Je n'ai pas dit que l'on ne pouvait pas filtrer les données vers une autre feuille. Je veux seulement préciser que si le menu données/filtre élabo est activé ailleurs, que sur la feuille qui va recueillir le résultat du filtre (que l'on peut qualifier aussi de feuille active) on a droit à son petit message d'erreur.

Pour Sandra, sur mon exemple xls ci-dessus , et en complément de ce que te propose ma toulousaine préférée qui se reconnaitra :

Sans doublons sur les noms on peut réaliser le dénombrement ainsi : =NB.SI(A5:A15;48)
Afin d'éviter d'éventuels doublons sur les noms (doublons que l'on souhaiterais ignorer bien sûr) le dénombrement serait alors : =SOMMEPROD((A5:A15=48)*(1/NB.SI(B5:B15;B5:B15)))

Bonsoir à tous

 

[JeanMarie]

Re:Recherchev (Specialiste Formule Demandé(e)) !!!

Bonsoir tout le mmonde

Ci-joint un lien sur un fil, qui permet d'afficher plusieurs lignes d'une base en fonction d'un critère, et une fonction à la fin du fil, en multi feuilles.
Lien supprimé
@+Jean-Marie

Message édité par: JeanMarie, à: 04/04/2005 23:19

 

[Sandra]

Re:Recherchev (Specialiste Formule Demandé(e)) !!!

Merci à tous pour votre aide!

C'est génial.

Je crois que c'est le code VBA qui va m'être le plus utile dans ce cas si, mais j'ai un peu de difficulté à l'utiliser...

Merci encore une fois
Sandra

 

[_Thierry]

Re:Recherchev (Specialiste Formule Demandé(e)) !!!

Bonjour à Tous !!!

Bon alors dans les Championnats XLDiens du Jour ...

1ere Manche
Formula 1 / VBA 0 / TCD 0

2em Manche
TCD 1 / VBA 0 / Formula 0

3em Manche
VBA 10... Les autres Hors Concours !!! lol


Bon Aprèm
@+Thierry

 

[Celeda]

Re:Recherchev (Specialiste Formule Demandé(e)) !!!

Bonjour,

ah non pas juste !!!

voilà je m'en vais définitivement

🙁 :whistle: :whistle: :whistle:

...............................................

...............................................


...............................................


...............................................


...............................................


...............................................


...............................................







euh non je vous aime trop!!! 🙂

la réalité c'est qu'il ne faut pas générer des macros pour des travaux qui ne necessitent pas du vba

si j'ai bien appris quelque chose sur ce forum c'est bien cela



et ne crois pas THierry que je sois mauvaise perdante
mais en tant qu'assidue de excel, il faut savoir mettre
toute son energie là où il semble qu'elle soit vraiment
nécessaire. Et ne me tire pas dessus - embrasse moi
très fort en t'inclinant (si tu peux le faire of course 🙂 🙂 )

Celeda

 

[_Thierry]

Re:Recherchev (Specialiste Formule Demandé(e)) !!!

Re Bonjour tous et toutes

Meuh non Celeda, on t'aime trop pour que tu puisses partir !!!

Non en fait, lit attentivement ceci :

ColA ColB
48   Julie
48   Mathieu
48   Karine
47   Luc

Donc, je voudrais avoir dans un tableau la colonne A avec le chiffre 48 et dans la colonne B il va chercher tout ceux qui ont 48 dans la colonne A

En fait avec une définition telle que celà, j'ai un peu forcé la main, mais je n'ai pas triché, seul VBA pouvait faire ce coup là aussi simplement et surtout aussi facilement sans aucune manip pour l'utilisateur, comme c'est écrit au dessus ... (Tu as testé ma démo, non... lol)

Mais je sais (et tu sais) que je suis un gros VBArresseux !!!

Bon Aprèm et Big Zoubi
@+Thierry

EDITION !!! Arf si j'avais tapé avec une pomme de terre il y aurait eu moins de coquille dans ce mesage !!! LOL

Message édité par: _Thierry, à: 05/04/2005 16:29

 

[PascalXLD]

Re:Recherchev (Specialiste Formule Demandé(e)) !!!

Bonjour le fil

Je profite de celui-ci pour faire une bise à Celeda 😱

et pour crier avec Thierry

VIVE LA VBARESSE !!!!

Bonne soirée

 

[_Thierry]

Re:Recherchev (Specialiste Formule Demandé(e)) !!!

407...

tatata... encore un Lien supprimé qui se pointe à l'horizon !!!

@+Thierry

 

[thilam]

Re:Recherchev (Specialiste Formule Demandé(e)) !!!

Re-bonjour Sandra,
OUPS! J'avais omis de le joindre
:unsure: Est-ce que le fichier joint répond à ton pb?

[file name=selection.zip size=6293]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/selection.zip[/file]

Message édité par: thilam, à: 05/04/2005 17:07