Macro Excel Recherche d'une valeur et copie de ligne
Résolu
Fabzo
Messages postés
2
Statut
Membre
-
Fabzo Messages postés 2 Statut Membre -
Fabzo Messages postés 2 Statut Membre -
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
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
1 réponse
-
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!
