Copie d'une feuille sur un meme classeur
Benoit904
-
via55 Messages postés 14730 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14730 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Copie d'une feuille sur un meme classeur
- Copie cachée - Guide
- Super copie - Télécharger - Gestion de fichiers
- Copie écran samsung - Guide
- Copie disque dur - Guide
- Comment imprimer en a5 sur une feuille a4 - Guide
1 réponse
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
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
