Hello,
Pourriez-vous m'aider à corriger mon code qui doit avoir pour fonction :
- Un Bouton qui renvoie vers une macro ImputBox avec une fenêtre pour l'utilisateur ( Réussi ).
- En fonction de la saisie du l'utilisateur, la macro va aller rechercher dans trois autres feuilles ( 2013;2012;etc ) le mot rechercher ( Nom, prénom, etc... ) & copier la ou les lignes correspondantes ainsi que si possible l'en tête du tableau dans les autres feuilles ( en ligne 4). La mise en page doit être conservé si possible.
Ainsi l'utilisateur obtient un résultat sous forme de tableau prêt à être copier/coller sur la première feuille ( Appelé Find dans mon code).
Voici mon code, je pense que ça coince au niveau de la ligne pour copier les données... je me perd un peu !
Auriez-vous une idée?
Merci d'avance,
Cordialement
Pourriez-vous m'aider à corriger mon code qui doit avoir pour fonction :
- Un Bouton qui renvoie vers une macro ImputBox avec une fenêtre pour l'utilisateur ( Réussi ).
- En fonction de la saisie du l'utilisateur, la macro va aller rechercher dans trois autres feuilles ( 2013;2012;etc ) le mot rechercher ( Nom, prénom, etc... ) & copier la ou les lignes correspondantes ainsi que si possible l'en tête du tableau dans les autres feuilles ( en ligne 4). La mise en page doit être conservé si possible.
Ainsi l'utilisateur obtient un résultat sous forme de tableau prêt à être copier/coller sur la première feuille ( Appelé Find dans mon code).
Code:
Dim Resultat As Range
Dim RechercheMot As String
RechercheMot = InputBox("Nom ? Prénom ? Date ?")
Set Resultat = Worksheets("2013").Range("A1:F5000").Cells.Find(RechercheMot, , xlValues, xlWhole)
If Resultat Is Nothing Then
MsgBox "Aucunes correspondances trouvées..."
Else
For Each vCellule In Selection
If vCellule.Value = RechercherMot Then
Rows(vCellule.Row).Copy Sheets("Find").[a1].End(xlUp)
End If
Next
End If
End Sub
Voici mon code, je pense que ça coince au niveau de la ligne pour copier les données... je me perd un peu !
Auriez-vous une idée?
Merci d'avance,
Cordialement
Dernière édition: