Sub Macro6()
'
' Macro6 Macro
' Macro enregistrée le 14/06/2004 par FRANK-DANGEL Hervé
'
'
Dim rangeToCopy As Range
Dim i As Long
With Worksheets("Feuil1").Columns("A:G")
Set rangeToCopy = .Rows(1)
For i = 11 To 15400 Step 10
Set rangeToCopy = Union(rangeToCopy, .Rows(i))
Next
End With
rangeToCopy.Copy Worksheets("Feuil2").Range("A1")
Set rangeToCopy = Nothing
End Sub
Comment faire pour que cette macro copie a l'identique ( c'est a dire la
selection des lignes 1,10,20,30.......) dans la feuille2 au emplacement A1
A10 A20 ..... en gardant la mise en forme quoi....
le but est ensuite d'utiliser le filtre elaboré pour suprimmer les lignes
vides, et ainsi gagner du temps comparer a la commande Union qui est très
lente dans le cas de fichier très gros.....
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Hervé,
une solution serait de faire un filtre automatique sur cette feuille et de copier le résultat sur l'autre feuille,
tu peux utilisé une colonne libre et exécuter ce code pour avoir le critère du filtre sur la colonne "K" par exemple.
With Worksheets("Feuil1") For i = 11 To 15400 Step 10 range("K" & i) = 1 Next
isabelle
Voici ma macro:
Sub Macro6() ' ' Macro6 Macro ' Macro enregistrée le 14/06/2004 par FRANK-DANGEL Hervé '
' Dim rangeToCopy As Range Dim i As Long With Worksheets("Feuil1").Columns("A:G") Set rangeToCopy = .Rows(1) For i = 11 To 15400 Step 10 Set rangeToCopy = Union(rangeToCopy, .Rows(i)) Next End With rangeToCopy.Copy Worksheets("Feuil2").Range("A1") Set rangeToCopy = Nothing End Sub
Comment faire pour que cette macro copie a l'identique ( c'est a dire la selection des lignes 1,10,20,30.......) dans la feuille2 au emplacement A1 A10 A20 ..... en gardant la mise en forme quoi....
le but est ensuite d'utiliser le filtre elaboré pour suprimmer les lignes vides, et ainsi gagner du temps comparer a la commande Union qui est très lente dans le cas de fichier très gros.....
Merci d'avance
bonjour Hervé,
une solution serait de faire un filtre automatique sur cette feuille et
de copier le résultat sur l'autre feuille,
tu peux utilisé une colonne libre et exécuter ce code pour avoir le
critère du filtre sur la colonne "K" par exemple.
With Worksheets("Feuil1")
For i = 11 To 15400 Step 10
range("K" & i) = 1
Next
isabelle
Voici ma macro:
Sub Macro6()
'
' Macro6 Macro
' Macro enregistrée le 14/06/2004 par FRANK-DANGEL Hervé
'
'
Dim rangeToCopy As Range
Dim i As Long
With Worksheets("Feuil1").Columns("A:G")
Set rangeToCopy = .Rows(1)
For i = 11 To 15400 Step 10
Set rangeToCopy = Union(rangeToCopy, .Rows(i))
Next
End With
rangeToCopy.Copy Worksheets("Feuil2").Range("A1")
Set rangeToCopy = Nothing
End Sub
Comment faire pour que cette macro copie a l'identique ( c'est a dire la
selection des lignes 1,10,20,30.......) dans la feuille2 au emplacement A1
A10 A20 ..... en gardant la mise en forme quoi....
le but est ensuite d'utiliser le filtre elaboré pour suprimmer les lignes
vides, et ainsi gagner du temps comparer a la commande Union qui est très
lente dans le cas de fichier très gros.....
une solution serait de faire un filtre automatique sur cette feuille et de copier le résultat sur l'autre feuille,
tu peux utilisé une colonne libre et exécuter ce code pour avoir le critère du filtre sur la colonne "K" par exemple.
With Worksheets("Feuil1") For i = 11 To 15400 Step 10 range("K" & i) = 1 Next
isabelle
Voici ma macro:
Sub Macro6() ' ' Macro6 Macro ' Macro enregistrée le 14/06/2004 par FRANK-DANGEL Hervé '
' Dim rangeToCopy As Range Dim i As Long With Worksheets("Feuil1").Columns("A:G") Set rangeToCopy = .Rows(1) For i = 11 To 15400 Step 10 Set rangeToCopy = Union(rangeToCopy, .Rows(i)) Next End With rangeToCopy.Copy Worksheets("Feuil2").Range("A1") Set rangeToCopy = Nothing End Sub
Comment faire pour que cette macro copie a l'identique ( c'est a dire la selection des lignes 1,10,20,30.......) dans la feuille2 au emplacement A1 A10 A20 ..... en gardant la mise en forme quoi....
le but est ensuite d'utiliser le filtre elaboré pour suprimmer les lignes vides, et ainsi gagner du temps comparer a la commande Union qui est très lente dans le cas de fichier très gros.....