OVH Cloud OVH Cloud

quel est l'inverse de la commande UNION ????

1 réponse
Avatar
Hervé Frank-Dangel
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

1 réponse

Avatar
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