Macro Excel Recherche d'une valeur et copie de ligne
Résolu
Fabzo
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
Fabzo Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Fabzo Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Macro Excel Recherche d'une valeur et copie de ligne
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Word et excel gratuit - Guide
- Aller à la ligne excel - Guide
- Partage de photos en ligne - Guide
- Liste déroulante excel - Guide
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!
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!