Bonjour,
Voici une fonction :
=RECHERCHE(B8;Feuil3!B1:B24;Feuil3!C1:C24)&CAR(10)&RECHERCHE(B8;Feuil2!F2:F12;Feuil2!G2:G12))&CAR(10)&.............
Comment faire, s'il n'y a aucune réponse pour l'une des recherches, pour
n'afficher que le résultat des recherches fructueuses.
Bonjour, pas de souci, les liens sont toujours actifs, il suffit de cliquer sur mon message du 15/02/07 à 22H55, en cliquant sur les liens en bleu et soulignés, ceux-ci vont se télécharger (après accord). il ne faut pas essayer de les ouvrir directement. PS : regarde également la solution de JB, il te propose une fonction à insérer dans une cellule, après inscription du code dans un module VBA Bonne lecture et bon courage
Merci cousinhub, mais je n'ai pas réussi, ni à lire, ni à enregistrer les fichiers joins que vous m'avez envoyé. Je suis peut ètre arrivé trop tard...(je me suis assoupi quelques heures) Pouvez-vous me les renvoyer? Merci d'avance.
Re-, Voici les liens pour ton problème cliques dessus et enregistre-les sur ton disque dur avant de les ouvrir
Merci cousinhub , Mais je ne comprend pas le VBA, je ne sait meme pas ce que c'est.
On y fait souvent réference dans les forums, pouvez-vous m'indiquer la voie à suivre pour apprendre ce language et enfin le comprendre.
Bonsoir, en VBA, cela t'intéresserait-il? une piste :
Sub rech_multiple()
Sheets(1).Select [c4] = "" x1 = Evaluate("=LOOKUP(c1,a2:a8,b2:b8)") x2 = Evaluate("=LOOKUP(c2,a2:a8,b2:b8)") x3 = Evaluate("=LOOKUP(c3,a2:a8,b2:b8)") For Each m In Array(x1, x2, x3) If Not IsError(m) Then [c4] = [c4] & m & Chr(10) End If Next [c4] = Left([c4], Len([c4]) - 1) End Sub
Bonjour, Voici une fonction : =RECHERCHE(B8;Feuil3!B1:B24;Feuil3!C1:C24)&CAR(10)&RECHERCHE(B8;Feuil2!F2:F12;Feuil2!G2:G12))&CAR(10)&............. Comment faire, s'il n'y a aucune réponse pour l'une des recherches, pour n'afficher que le résultat des recherches fructueuses.
Bonjour,
pas de souci, les liens sont toujours actifs, il suffit de cliquer sur
mon message du 15/02/07 à 22H55, en cliquant sur les liens en bleu et
soulignés, ceux-ci vont se télécharger (après accord). il ne faut pas
essayer de les ouvrir directement.
PS : regarde également la solution de JB, il te propose une fonction à
insérer dans une cellule, après inscription du code dans un module VBA
Bonne lecture et bon courage
Merci cousinhub, mais je n'ai pas réussi, ni à lire, ni à enregistrer les
fichiers joins que vous m'avez envoyé. Je suis peut ètre arrivé trop
tard...(je me suis assoupi quelques heures)
Pouvez-vous me les renvoyer?
Merci d'avance.
Re-,
Voici les liens pour ton problème
cliques dessus et enregistre-les sur ton disque dur avant de les ouvrir
Merci cousinhub ,
Mais je ne comprend pas le VBA, je ne sait meme pas ce que c'est.
On y fait souvent réference dans les forums, pouvez-vous m'indiquer la voie
à suivre pour apprendre ce language et enfin le comprendre.
Bonsoir, en VBA, cela t'intéresserait-il?
une piste :
Sub rech_multiple()
Sheets(1).Select
[c4] = ""
x1 = Evaluate("=LOOKUP(c1,a2:a8,b2:b8)")
x2 = Evaluate("=LOOKUP(c2,a2:a8,b2:b8)")
x3 = Evaluate("=LOOKUP(c3,a2:a8,b2:b8)")
For Each m In Array(x1, x2, x3)
If Not IsError(m) Then
[c4] = [c4] & m & Chr(10)
End If
Next
[c4] = Left([c4], Len([c4]) - 1)
End Sub
Bonjour,
Voici une fonction :
=RECHERCHE(B8;Feuil3!B1:B24;Feuil3!C1:C24)&CAR(10)&RECHERCHE(B8;Feuil2!F2:F12;Feuil2!G2:G12))&CAR(10)&.............
Comment faire, s'il n'y a aucune réponse pour l'une des recherches, pour
n'afficher que le résultat des recherches fructueuses.
Bonjour, pas de souci, les liens sont toujours actifs, il suffit de cliquer sur mon message du 15/02/07 à 22H55, en cliquant sur les liens en bleu et soulignés, ceux-ci vont se télécharger (après accord). il ne faut pas essayer de les ouvrir directement. PS : regarde également la solution de JB, il te propose une fonction à insérer dans une cellule, après inscription du code dans un module VBA Bonne lecture et bon courage
Merci cousinhub, mais je n'ai pas réussi, ni à lire, ni à enregistrer les fichiers joins que vous m'avez envoyé. Je suis peut ètre arrivé trop tard...(je me suis assoupi quelques heures) Pouvez-vous me les renvoyer? Merci d'avance.
Re-, Voici les liens pour ton problème cliques dessus et enregistre-les sur ton disque dur avant de les ouvrir
Merci cousinhub , Mais je ne comprend pas le VBA, je ne sait meme pas ce que c'est.
On y fait souvent réference dans les forums, pouvez-vous m'indiquer la voie à suivre pour apprendre ce language et enfin le comprendre.
Bonsoir, en VBA, cela t'intéresserait-il? une piste :
Sub rech_multiple()
Sheets(1).Select [c4] = "" x1 = Evaluate("=LOOKUP(c1,a2:a8,b2:b8)") x2 = Evaluate("=LOOKUP(c2,a2:a8,b2:b8)") x3 = Evaluate("=LOOKUP(c3,a2:a8,b2:b8)") For Each m In Array(x1, x2, x3) If Not IsError(m) Then [c4] = [c4] & m & Chr(10) End If Next [c4] = Left([c4], Len([c4]) - 1) End Sub
Bonjour, Voici une fonction : =RECHERCHE(B8;Feuil3!B1:B24;Feuil3!C1:C24)&CAR(10)&RECHERCHE(B8;Feuil2!F2:F12;Feuil2!G2:G12))&CAR(10)&............. Comment faire, s'il n'y a aucune réponse pour l'une des recherches, pour n'afficher que le résultat des recherches fructueuses.
