Discussion :

[theopvs]

Bonjour à tous,

je vous expose mon problème. J'ai une feuille avec des milliers de lignes et j'aimerais sélectionner une ligne sur six pour pouvoir les coller dans une autre feuille.

Après de nombreuses tentatives et de longues recherches, je n'ai toujours pas réussi à le faire.

Je ne suis pas vraiment un expert, quelqu'un aurait-il une solution ?

Merci d'avance,

Théo

[QuestVba]

Bonjour,

Passe par VBA et fait une boucle du style

une ligne sur deux
For i = PremiereLigneTo DerniereLigne Step 2

une ligne sur trois
For i = PremiereLigneTo DerniereLigne Step 3

[theopvs]

Salut,

oui j'ai essayé un truc dans ce genre là :

Sub selectUNsurSIX()

For i = 2 To 1000 Step 6
Cells(i, 1).EntireRow.Select
Next

End Sub

mais au final, seule la dernière ligne est sélectionner.

[Supermichou]

Bonsoir,
sinon, faire un filtre sur une colonne avec des chiffres de 1 à 6 pour selectionner que le 6, puis tout selectionner et dans le menus edition, "selectionner les cellules visible" pour garder que celles désirées.

C'est de la bidouille, mais on évite le VBA, ce qui plaira à certains utilisateurs.

SM

[theopvs]

Bonne idée supermichou ! j'ai vraiment essayé pas mal de truc, j'avais pas pensé à ça !

merci !

[yaqqq]

Seulement pour savoir faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Sub Macro1()
 
Dim i As Integer
Dim istart, imax As Integer
Dim istep As Integer
Dim r1, tout As Range
 
Set tout = Nothing
i = 0
istart = 2
imax = 1331
istep = 6
 
Application.ScreenUpdating = False
 
For i = istart To imax Step istep
    Set r1 = Range(i & ":" & i)
    If tout Is Nothing Then
        Set tout = r1
    Else
        Set tout = Union(tout, r1)
    End If
Next
 
tout.Select
 
Application.ScreenUpdating = True
' option
'Range("a" & i - istep).Activate
 
End Sub

Pour (imax>10000 et istep<10) c'est pas vite...

[theopvs]

bien joué ! merci pour vos réponses en tout cas !

[Simon1993]

Bonjour,

Je viens d'utiliser votre code VBA pour réaliser des sélections dans mes tableurs.
J'avais une question

J'ai remplacé la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set r1 = Range(i & ":" & i )

Par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set r1 = Range(i & ":" & i + 1)

afin de sélectionner deux lignes.

Ma question est quelle ligne ajouter ou modifier pour ne sélectionner que les cellule de la colonne B ?