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

 

[Sandra]

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

J'ai réussi à faire le VBA dans le même fichier, mais j'aimerais maintenant qu'il aille lire dans un autre fichier???? je suis embêté!

Thierry, peux-tu m'aider?

Merci encore


PS
Merci pour les formules excel :
(=SI(ESTNA(RECHERCHEV(G5;$B$5:$D$34;3;0));'';RECHERCHEV(G5;$B$5:$D$34;3;0))),
ca fonctionne super bien aussi!

 

[thilam]

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

Les formules du fichier sélection.xls, que tu sembles avoir récupéré, suposent qu'on insére une colonne à gauche de la colonne des codes.

Si le fichier est externe et que tu ne peux pas le modifier tu peux utiliser les 'si(estna( recherchev(....' en utilisant une référence mixte du style 'fichierexterne.xls!A1:$c$100' pour éviter les doublons. L'inconvénient c'est que les résultats ne seront pas triés. Ca peut se faire dans un second temps.

Suis-je assez clair??

Moi c'est Thilam!
Salut

Message édité par: thilam, à: 05/04/2005 18:13

 

[Sandra]

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

Salut Thilam,

Peux-tu donner un exemple de formule: soit:
=si(estna(recherchev(a1;fichierexterne.xls!A1:$c$100'[Analyse CUM Produit par produit(code struct).xls]ITF Mars'!$A:$D;2;faux));'';recherchev(a1;fichierexterne.xls!A1:$c$100'[Analyse CUM Produit par produit(code struct).xls]ITF Mars'!$A:$D;2;faux)
????

Merci

Et comment est-ce que j'inscrit fichierexterne dans la formule?

 

[thilam]

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

J'espère que les deux fichiers joints répondront à ton pb.
Je ne suis pas sûr de revenir sur le forum ce soir mais si tu es tjrs en rade je passerai demain.

Tchô!!
Thilam

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

 

[_Thierry]

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

Bonsoir Sandra, Thilam, re le Fil, re le Forum

Pour ta question sur la solution VBA :

Sandra écrit le 05/04/2005 17:55 :

J'ai réussi à faire le VBA dans le même fichier, mais j'aimerais maintenant qu'il aille lire dans un autre fichier???? je suis embêté!

Thierry, peux-tu m'aider?
Merci encore

La macro évènementielle doit impérativement se trouver dans le classeur où tu saisis ton tableau en cellule 'A1'...(Feuille 'HOME' dans ma démo) Par contre la Base de Données (Feuille 'DATA' dans ma démo)n'a pas besoin de se trouver dans le même classeur...

Par contre deux possibilités : soit le code va énormément se compliquer si on travaille sur un classeur fermé pour la Base de Données (ADO etc), soit c'est assez simple si le classeur est ouvert...

Une solution alternative si le classeur Base de Données doit être fermé, serait d'avoir une feuille dans le classeur de travail en liaison avec cette base...

Mais si le classeur est ouvert, il suffit de faire ceci (le classeur se nommant 'Database.xls' :

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 Workbooks('Database.xls').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

Bonne Soirée
@+Thierry

 

[Sandra]

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

Merci Thierry,

Ca fonctionne!

J'ai une dernière petite question....

Comment puis-je mettre 2 Macro dans la même feuille, exemple:

Va chercher tous les noms appartenant à 48 et leur adresse et code postal...etc.

A B C D
48 Julie 1 Prince H4G 6V8
48 Marc 2 Prince G4G 6V9
46 Luc 3 Prince H4G 6V1


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 Workbooks('Analyse CUM Produit par produit(code struct).xls').Sheets('ITF Mars')
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

????

Merci
Sandra

 

[pat1545.]

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

Salut,

avec un 'call' en fin de primière macro je pense

sub mac1()

ton code
call mac2
end sub

sub mac2

ton code
end sub

Patrick

 

[_Thierry]

Re:Recherchev (Finalement tout en VBA) !!! (lol)

Bonsoir Pat1545, Sandra et tous les zamis du Fils et du Forum

Pour commencer ce Post, je voulais dire à Pat, qui je pense ne me connait pas encore, mais quand je passe derrière lui parfois pour lui indiquer que telles ou telles informations sont parfois évasives ou erronnées, il ne faut pas qu'il le prenne mal ou qu'il m'en veuille...Et qu'il peut reprendre le fil pour s'exprimer, je ne suis pas propriétaire des lieux...

Mais par contre je suis comme çà (depuis que je suis tombé dans une marmite un certain jour ensoleillé d'été... faire une recherche à marmitte avec 1 ou 2 T ça dépend mon humeur !!!)

Enfin donc ici, avec une poignée d'irréductibles depuis des années on s'efforce de donner des informations cohérentes et fiables pour éviter aux gens, bien souvent totalement novices, de chercher des heures pour rien...

Le fait de poster ici, sous-entend que l'information est calculée et contrôlée de par quelques contributeurs ou contributrices qui ont pris de leur temps libres pour :
1) Lire et essayer de comprendre la question en son intégralité (ou tout le Fil si il dure)
2) Annoncer au demandeur une réponse qui ne le fera pas encore plus chercher qu'avant qu'il ne vienne sur XLD...

Donc voilà, je pense que je n'ai rien à ajouter si tu lis ce Fil, tu verras que Sandra doit vraiment maintenant se demander où elle doit mettre le 'Call' que tu lui proposes...

Pour Sandra... Désolé, mais parfois on est obligé de mettre les choses au point... Donc pour toi, c'est pas compliqué, par contre j'ai fait une démo qui 'bosse' sur un seul classeur (besoin de Démo oblige, car tu n'es et ne seras pas la seule qui en profitera)...

Mais maintenant tu sais comment faire pour un autre classeur si il est ouvert... (on peut par contre l'ouvrir par VBA si besoin s'en fait sentir)

Donc voici toute chaude la version 01 de cette mini démo... avec comme d'hab, un bonus (lol)

Bonne soirée à tous et toutes@+Thierry






[file name=Faux-RechercheV-V01_20050405220205.zip size=15259]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Faux-RechercheV-V01_20050405220205.zip[/file]

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