Cherche macro de recherche qui listerait les résultat dans une liste déroulante

V

vincent

Guest
Je recherche une macro qui me permettrait d'effectuer une recherchev qui me listerait les résultats obtenus (car c ca mon pblm, je dois obtenir plusieur résultats) dans une cellule de type liste déroulante afin de sélectionner une de ces réponses.

Merci d'avance à la personne qui aura la solution car c urgent
 
@

@+Thierry

Guest
Salut Vincent, le Forum

L'Urgent est Fait
l'Impossible est en cours
pour les Miracles prévoir un délai...

Oui, oui il n'y a pas le feu ! Mais par contre un p'ti bonjour ou même un p'ti "Hi" ne prend pas bien longtemps à taper...


Enfin tu as de la chance j'ai déjà fait çà !!!

Le Fichier ==> Lien supprimé (15k)

Le Fil de Discussion => Lien supprimé

Bon Aprèm

@+Thierry


PS : Passe par notre Charte si il te reste cinq minutes...
 
V

vincent

Guest
Bonjour Thierry,

Je suis désolé pour le manque de politesse de mon message et du deuxième que g envoyé si tu l'as remarqué.
Je te dis merci et je vais tester ca tout de suite.
Dans tout les cas j'aprécis ta réponse

Merci encore et bonne soirée
 
V

vincent

Guest
Rebonjour Thierry

Non ça a pas mordu.
G une petite question pour toi, en copiant ta macro, j'obtient les bon résultats mais je dois la lancer manuellement, y a une manip a faire pour que ce soit automatique?

@+
 
@

@+Thierry

Guest
Bonjour Vincent, le Forum

Alors on met le "Why" !! lol

Pour cette question qui a atterri ailleurs :

Auteur: vincent (194.206.220.---)
Date: 23-07-03 11:07

Bonjour à tous.

J'ai une question piège pour thierry, après avoir trouver comment éxécuter la macro en automatique, j'ai eu besoin d'en insérer une deuxième identique or, quand je veus la faire éxécuter en automatique, ca bloque tu saurais pas pourquoi par hasard?

A bientôt j'éspère



Ben tu vas avoir à modifier pas mal de trucs, mais au départ c'est surtout l'évènementielle sur laquelle il faut travailler comme suit :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A2:A30 ")) Is Nothing Then
On Error Resume Next
If Target.Value = "" Then
Target.Offset(0, 1).Validation.Delete
Else
ActionListAA
End If
End If

If Not Application.Intersect(Target, Range("F2:F30 ")) Is Nothing Then
On Error Resume Next
If Target.Value = "" Then
Target.Offset(0, 1).Validation.Delete
Else
ActionListFF
End If
End If

End Sub


L'ideal pour ActionAA ou ActionFF serait de reprendre complètement la macro ListeRechercheV qui serait la même paramétrée différemment selon des variables, mais là franchement je n'ai pas le temps... Donc tu peux simplement dédoubler cette macro en deux macro (ActionListAA et ActionListBB qui agiront chacune sur les plages et les références choisies...)


Bon Courage

Et retiens bien Vincent, qu'il ne faut pas dédoubler les Posts

Bon aprèm
@+Thierry
 

Discussions similaires

Statistiques des forums

Discussions
312 338
Messages
2 087 394
Membres
103 537
dernier inscrit
alisafred974