Selection d'une ligne toutes les 6 lignes

[paolo44]

Bonjour

Je cherche actuellement a faire en VBA:
Par exemple: Selectionner la ligne 2 puis la ligne 8 ...
Je veux selectionner une ligne toutes les 6 lignes
Et apres avoir fait cette selection les regrouper dans une nouvelle feuille
Je ne sais pas si c'est possible?
Merci d'avance pour votre aide

 

[Pierrot93]

Re : Selection d'une ligne toutes les 6 lignes

Bonsoir Paolo

essaye le code ci dessous :

Sub test()
Dim i As Integer
For i = 2 To 25 Step 6
    Sheets(1).Rows(i).Copy Sheets(2).Range("A65536").End(xlUp).Offset(1, 0)
Next i
End Sub

bonne fin d'après midi

@+

 

[paolo44]

Re : Selection d'une ligne toutes les 6 lignes

Merci je vais regarder cela de suite

 

[smotty]

Re : Selection d'une ligne toutes les 6 lignes

Bonjour Paolo,

essaie ça,

For x = 2 To 14 Step 6
i = Sheets("Feuil2").[A65000].End(xlUp).Row + 1
Rows(x).Cut Sheets("Feuil2").Range("A" & (i))
Next x

 

[smotty]

Re : Selection d'une ligne toutes les 6 lignes

Oups!!

Salut Pierrot, tu as été plus rapide...

 

[Gorfael]

Re : Selection d'une ligne toutes les 6 lignes

Bonjour

Je cherche actuellement a faire en VBA:
Par exemple: Selectionner la ligne 2 puis la ligne 8 ...
Je veux selectionner une ligne toutes les 6 lignes
Et apres avoir fait cette selection les regrouper dans une nouvelle feuille
Je ne sais pas si c'est possible?
Merci d'avance pour votre aide

Salut
Petite macro à adapter suivant besoin

Sub test()
Dim X As Long
Dim Col As Integer
Col = UsedRange.SpecialCells(xlCellTypeLastCell).Column + 1
For X = 2 To UsedRange.SpecialCells(xlCellTypeLastCell).Row
    If (X - 2) Mod 6 = 0 Then
        Cells(X, Col) = "X"
    Else
        Cells(X, Col) = "Y"
    End If
Next X
If AutoFilterMode = True Then AutoFilterMode = False
UsedRange.AutoFilter Field:=Col, Criteria1:="X"
Range([A2], Cells(X, Col - 1)).Copy Sheets(2).Range("A10")
Columns(Col).Delete
AutoFilterMode = False
End Sub

On crée une colonne après la denière colonne utilisée
on y copie "X" si la ligne nous interesse, "Y" autrement
On passe en filtrage automatique sur X
on copie la zone utilisée sur feuille(2)
on supprime la colonne créée
on supprime le filtre automatique
A+

 

[paolo44]

Re : Selection d'une ligne toutes les 6 lignes

Bonjour

J'ai adapter un peu le code mais j'ai un souci concernant la capacité:

Dim i As Long
Dim j As Long
j = InputBox("indiquer le numéro de ligne de départ")
For i = j To Sheets(1).Range("A65500").End(xlUp).Row Step 6
Sheets(1).Rows(i).Copy Sheets(2).Range("A65500").End(xlUp).Offset(1, 0)
Next i
End Sub

Le problème c'est que je souhaite copier une ligne toutes les 6 lignes et les copier sur une nouvelle feuille mais mon fichier contient 35000 lignes.

Help please!

 

[Pierrot93]

Re : Selection d'une ligne toutes les 6 lignes

Bonjour Paolo

tu as un problème a quel niveau ? en principe le type de donnée "long" doit être bon... ca ne doit pas être ca qui provoque ton "dépassement de capacité"... j'ai testé le code que tu viens de poster, chez moi pas de problème, il s'exécute bien.

Quand tu es en débogage quelle ligne de code est surlignée en jaune ?

@+

 

[paolo44]

Re : Selection d'une ligne toutes les 6 lignes

la ligne avant nexti
Mais j'ai fait une autre facon moins belle mais ca marche
Merci quand même!