Copier ligne contenant une valeur particulière

[ludosipm]

Bonjour,


Voici mon problème, j'ai une base de donnée avec quelques cellules vides dans la colonne C. Je voudrais copier les lignes dont la cellule qui est en C contient la valeur "Y", pour les exploiter sur une autres feuilles.

Seulement mon niveau en VBA m'en empêche ....

 

[ROGER2327]

Re : Copier ligne contenant une valeur particulière

Bonjour ludosipm

En l'absence d'un support montrant précisément le problème, voici une exemple de solution dans le classeur joint.
La procédure, associée au bouton de la feuille Feuil1 est la suivante :

[COLOR="DarkSlateGray"][B]Sub tata()
   Application.ScreenUpdating = False
   With Sheets("Feuil2")
      .Activate
      .Range(.[A1], .[A1].SpecialCells(xlLastCell)).ClearContents
   End With
   With Sheets("Feuil1").[A1]
      Range(.Cells, .SpecialCells(xlLastCell)).Resize(1).AutoFilter
      .AutoFilter Field:=3, Criteria1:="Y"
      Range(.Cells, .SpecialCells(xlLastCell)).Copy Destination:=Sheets("Feuil2").[A1]
      .AutoFilter Field:=3
      .AutoFilter
   End With
   Application.ScreenUpdating = True
End Sub[/B][/COLOR]

Voyez si vous pouvez en tirer quelque-chose...​

ROGER2327
#4064

Vendredi 27 Phalle 137 (Priape, franc-tireur, SQ)
20 Fructidor An CCXVIII
2010-W36-1T13:54:44Z

 

[ludosipm]

Re : Copier ligne contenant une valeur particulière

Merci beaucoup Roger2327, j'ai réussi à résoudre mon problème avec ton aide