Macro Excel Recherche d'une valeur et copie de ligne
Résolu/Fermé
Fabzo
Messages postés
2
Date d'inscription
mercredi 13 novembre 2013
Statut
Membre
Dernière intervention
18 novembre 2013
-
13 nov. 2013 à 13:25
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
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
A voir également:
- Macro Excel Recherche d'une valeur et copie de ligne
- Aller à la ligne excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Si et excel - Guide
- Word et excel gratuit - Guide
- Liste déroulante excel - Guide
1 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
18 nov. 2013 à 10:08
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!