Macro Excel Recherche d'une valeur et copie de ligne [Résolu/Fermé]

Messages postés
2
Date d'inscription
mercredi 13 novembre 2013
Statut
Membre
Dernière intervention
18 novembre 2013
- - Dernière réponse : Fabzo
Messages postés
2
Date d'inscription
mercredi 13 novembre 2013
Statut
Membre
Dernière intervention
18 novembre 2013
- 18 nov. 2013 à 10:08
Bonjour,

Je souhaite créer une macro qui réaliserai les actions suivantes:

J'ai un fichier Excel avec beaucoup d'onglets.

-Lorsque je lance la macro, celle-ci me demande quelle valeur alphanumérique rechercher.

-Puis la macro recherche cette valeur dans toutes les cellules de tous les onglets.

-Lorsque la valeur est trouvée, la ligne entière contenant cette valeur est recopiée dans un nouveau fichier excel.

Je n'ai jamais programmé de Macro et j'ai seulement quelques notions de programmations générales.

Est-ce que cela est à ma portée?

Merci d'avance pour vos réponses,

Cordialement,

Fabzo
Afficher la suite 

1 réponse

Messages postés
2
Date d'inscription
mercredi 13 novembre 2013
Statut
Membre
Dernière intervention
18 novembre 2013
0
Merci
J'ai commencé un bout de code.
J'ai du mal avec la fonction find.

Sub Macro1()

Dim resultat As String

resultat = InputBox("Entrer numéro de LIO :", "Titre") 'La variable reçoit la valeur entrée dans l'InputBox

If resultat <> "" Then 'Si la valeur est différente de "" on affiche le résultat
MsgBox "Le LIO recherché est " & resultat
End If

With Sheets("feuil1")
Set trouve = .Find(resultat, LookIn:=xlValues, LookAt:=xlWhole)
End With


End Sub



Un petit peu d'aide PLEASE!