copier certaines lignes

[sonskriverez]

Bonjour aux lèves tôt du Dimanche et boone grasse mat aux autres.

J'ai une feuilles 3900 lignes : Je voudrais à l'aide d'une macro copier dans une autre feuilles les lignes dont au moins une cellule contient le chiffre '2'.


merci de votre aide

 

[G.David]

Salut

application.ScreenUpdating=False ' deconnecte le sintillement de l'ecran
for t=1 to 3900 'nombre de ligne
for c=1 to 256 'nombre de cellule par ligne
sheets(1).select 'feuille traitée
if cells(t,c).value=2 then 'si 2 est une valeur numerique
Rows(ActiveCell.Row).Copy
Sheets(2).Select 'feuille cible
Range('a1').End(xlDown).Offset(1, 0).Select 'selection de la derniere ligne vide
ActiveSheet.Paste
end if
next c
next t

ceci devrait aller

 

[sonskriverez]

Ca marche d'enfer

Merci