Recherche dans un tableau et copie dans une autre feuille
Bonjour à tous,
Dans le but de me créer un petit outil perso, je souhaite réaliser la fonction suivante :
A partir d'un tableau dans une feuille1, je souhaite en retirer tous les éléments en fonction d'une date, et les copier dans un tableau d'une autre feuille de calcul (feuille2).
Exemple, dans mon fichier PJ, je récupère les dossiers avec échéance 2017 dans un deuxième tableau. Je rajoute une colonne supplémentaire pour insérer éventuellement un commentaire.
Quelqu'un a t'il une ébauche de solution?
Merci d'avance pour votre aide,
Cordialement,
Bonjour,
Fichier en PJ repondant à vos besoins.
Cordialement
https://excel-appli.wixsite.com/excel
#############################################
Ligne de code affecté au bouton EXTRACT en Feuil 1 :
#############################################
Sub extract()
Dim i As Integer
For i = 2 To 100
If Sheets("Feuil1").Cells(i, 2).Value = Sheets("Feuil1").Range("C1").Value Then ' entrer l'année en cellule C1 et test....
Sheets("Feuil1").Range("C1").Value = Sheets("Feuil1").Cells(i, 2).Value
Sheets("Feuil2").Select
Sheets("Feuil2").Range("A1").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveCell.Value = Sheets("Feuil1").Cells(i, 1).Value
End If
Next i
End Sub
Bonjour,
C'est super, Merci !
Bonne soirée !
PARFAIT !
Ne pas oublier de passer le sujet en résolu !
Bonne soirée !