J'ai une feuille de calcul Excel avec des milliers de lignes. Je veux sélectionner toutes les 7 lignes de cette feuille de calcul. (Par “sélectionner”, je veux dire supprimer toutes les autres lignes, ou copier les lignes sélectionnées dans une nouvelle feuille de calcul).
Quelle est la façon la plus simple de faire cela dans Excel 2003 ?
Voir aussi : Sélectionnez chaque nième ligne dans Nombres
Il vient juste de terminer l'idée que Randolph Potter a lancée….
Pour information, je ne pense pas que vous puissiez jamais arriver à ce résultat en enregistrant. L'enregistrement de macros est un bon moyen de se familiariser avec le modèle objet Excel, mais pas un très bon moyen d'écrire des fonctions réutilisables.
Option Explicit
'A simple test that copies every 7th row from the active sheet to a new sheet.
Sub SimpleTest()
Dim r As Range
Dim ws As Worksheet
Set r = GetEveryNthRow(7)
If Not r Is Nothing Then
Set ws = Worksheets.Add(Before:=Sheets(1))
r.Copy ws.Range("A1")
Else
MsgBox "Nothing came back from GetEveryNthRow"
End If
Set ws = Nothing
Set r = Nothing
End Sub
'
Function GetEveryNthRow(ByVal NthRow As Long) As Range
Dim keepRows As Range
Dim r As Range
If NthRow > 0 Then
Set keepRows = Rows(1)
For Each r In ActiveSheet.UsedRange.Rows
If (r.Row Mod NthRow) = 0 Then
Set keepRows = Union(keepRows, Rows(r.Row))
End If
Next r
Set GetEveryNthRow = keepRows
Else
MsgBox "The row multiple provided must be greater than 0"
End If
Set keepRows = Nothing
End Function
pour sélectionner chaque 7ème ligne, il y a une MODE DE FACILITATION : dans les 7 premières lignes de votre colonne, sauf une (la première), vous écrivez quelque chose à l'intérieur. Ensuite, vous sélectionnez ces 7 lignes et vous les copiez sur toute la colonne. Maintenant, il vous suffit d'aller dans SELECT->GO TO SPECIAL->select BLANKS->OK Vous avez une sélection pour chaque 7 lignes. Vous pouvez maintenant faire ce que vous voulez. Profitez-en !
pour chaque 7ème ligne,