Discussion :

[Doum2012]

Bonjour à toutes et a tous, avant de commencer, je tien a remercier tous les membres de ce forum pour leur aide.
je travail dans le domaine de la cartographie et j'ai en ma Possession, un fichier de points topographiques avec leur cordonnées XYZ.
Avec 187000 enregistrements (Points) la mise en page de ces points rapprocher ne permet pas d'afficher leur attribut (Altitude) convenablement, ce qui oblige à supprimer des points et ne laisser que quelqu'un (16000).
je n'ai pas de maitrise des marco Excel et je viens vers vous pour essayer de m'aider à supprimer des points et laisser d'autre grâce à une marco.(laisser le premier enregistrement,supprimer 8 Autre et laisser le 9 supprimer 8 autres .......etc, jusqu’à atteindre la fin de ma feuille 187000éme point ) je joins à ce sujet un fichier exemple, cordialement.

[mercatog]

Exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Supp()
Const Pas As Byte = 8                              '(Pas-1) lignes à supprimer entre 2 lignes i et i+pas
Const Deb As Integer = 1                           'Ligne de début
Dim N As Long, i As Long
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")
    N = .Cells(.Rows.Count, 1).End(xlUp).Row
    N = Deb + Pas + (N - 2) - (N - 2) Mod Pas
    For i = N To Pas + Deb Step -Pas
        .Rows(i - Pas + 1).Resize(Pas - 1).Delete
    Next i
End With
End Sub

[Doum2012]

Merci pour votre réponse rapide, j'ai du mal à insérer le code avec Alt+F11 comment je dois procéder

Code Erreur: Erreur d’exécution'9' l'indice n'appartient pas a la sélection svp aider moi

[mercatog]

Ta feuille s'appelle bien Feuil1?

Sinon, vu ton niveau en vba, c'est une erreur de commencer par la fin. Regardes les cours d'abord pour avoir les notions de base.

Sinon, tu peux sans vba faire ce que tu veux en ajoutant en E2 la formule

Code :

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

=MOD(LIGNE();8)

Tu la tires jusqu'à la dernière ligne
Tu fais une filtre automatique sur la colonne E avec comme critère <>2

Tu supprimes toutes les lignes visibles.

[Doum2012]

Finalement ça marche, merci bien pour ton aide et promi je vais me mettre au vba