Copie d'une feuille sur un meme classeur

Fermé
Benoit904 - 21 févr. 2013 à 11:48
via55 Messages postés 14495 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 7 novembre 2024 - 21 févr. 2013 à 19:53
Bonjour,

Je cherche par une macro à copier une feuille dans un meme classeur (jusque la pas de problème :

Private Sub CommandButton1_Click()

Sheets("Construction").Select
Sheets("Construction").Copy After:=Sheets(5)

End Sub

Je voudrais maintenant que toutes les lignes comprenant "Non" dans la colonne G de la feuille "Construction" soient supprimées. Faire un tri avant la copie en quelques sortes

Quelqu'un a une solution facile, je trouve bien des codes mais impossible de les mettre à la suite...

merci

A voir également:

1 réponse

via55 Messages postés 14495 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 7 novembre 2024 2 734
21 févr. 2013 à 19:53
Bonjour,

Faire un tri avant semble dangereux car cela supprimerait des lignes dans l'original
par contre tu peux le faire sur la copie en rajoutant dans ton code avant End sub

Sheets("Construction (2)").Select
For n = 200 To 1 Step -1 'scrute les 200 premières lignes, à adapter selon les besoins
Rows(n).Select
If Cells(n, 7).Value = "Non" Then
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End If
Next

Cordialement
0