comment ne garder que une cellule sur 600

[sebastopolde]

bonjour voici mon problème j'ai un tableau avec énormément de valeurs mais seulement une seul toutes les 600 m'interresse et je voudrais donc supprimer toutes les autres. j'ai commencé de les supprimer groupe par groupe mais cela s'avère long serais t'il possible de créer un macro ou utiliser un filtre pour faire ce travail

 

[Victor21]

Re : comment ne garder que une cellule sur 600

Bonjour, sebastopolde.

Un filtre est possible.
En quelle ligne se trouve la 1° donnée à conserver ?
Dans une colonne vide, saisir =mod(ligne();600) à recopier jusqu'en bas de la colonne
Regarde le nombre affiché sur la ligne de la 1° donnée.
Filtre cette colonne (Données, filtre, filtre automatique) sur ce nombre.
Tu peux copier-coller à un autre endroit la zone affichée et désactiver le filtre automatique.

Edit :
En filtrant sur différent de (ce nombre),
tu peux supprimer toutes les lignes affichées.
Les lignes correspondant à (ce nombre,) et donc contenant les données à conserver remonteront automatiquement en début de tableau.
Supprimer le filtre pour les voir.
🙂

 

[JCGL]

Re : comment ne garder que une cellule sur 600

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit
Sub Garde_600()
Dim X As Long
Application.ScreenUpdating = 0
For X = Feuil1.Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(X, 1) Mod 600 <> 0 Then Cells(X, 1).Delete
Next X
End Sub

Valable si tu as un grand nombre de lignes et si tu commences en A1...

A+ à tous

 

[sebastopolde]

Re : comment ne garder que une cellule sur 600

j'ai repris le tableau original donc la première ligne a conserver est la 1°
j'ai donc saisi =mod(ligne(1:1);600) aurais je du laisser la parenthèse vide ?
j'obtiens donc une liste de numéros allant de 1 a 599
et c'est a partir de la que je bloc: c'est la colonne que j'ai créé que je dois filtrer ou celle avec mes valeurs de départ?
une autre question la colonne avec les valeurs est en lien avec deux autres colonnes (c'est un tableau) : en modifiant la première colonne (contenant les valeurs ) les lignes des autres colones vonts bien se supprimer en meme temp ??

voici un lien contennant l'exel en question : Mango | coordonées gps.xls

merci beaucoup de ton aide

 

[Victor21]

Re : comment ne garder que une cellule sur 600

Re,
Mod(ligne();600) suffit.
Filtrer sur F, différent de 0
Suppimer les lignes affichées
filtrer sur F afficher tout
Ca donne :

 

[Efgé]

Re : comment ne garder que une cellule sur 600

Bonjour sebastopolde, Victor21, JC 🙂, le fil, le forum
Une proposition à mettre dans un bouton :

Private Sub CommandButton1_Click()
Dim Plg(), TabFin(), i&, j&, TabRow&
TabRow = 0
With Sheets("Feuil1")
    Plg = .Range(.Cells(Rows.Count, 1).End(xlUp), .Cells(1, Columns.Count).End(xlToLeft)).Value
    For i = 1 To UBound(Plg, 1) Step 600
        TabRow = TabRow + 1
        ReDim Preserve TabFin(1 To UBound(Plg, 2), 1 To TabRow)
        For j = 1 To UBound(Plg, 2)
            TabFin(j, TabRow) = Plg(i, j)
        Next j
    Next i
    .UsedRange.ClearContents
    .Cells(1, 1).Resize(UBound(TabFin, 2), UBound(TabFin, 1)) = Application.Transpose(TabFin)
End With
End Sub

Cordialement

 

[sebastopolde]

Re : comment ne garder que une cellule sur 600

merci beaucoup patrick du coup c'ettait toutes les 60 valeurs car c'ettait 600m mais grace a toi et ta methode j'ai pu reusir et m'epargner une journée de travail pour rien =)
merci a toi et bonne fin de journée

 

[Victor21]

Re : comment ne garder que une cellule sur 600

🙂

Bonne journée à toi aussi.

Profite du temps gagné pour aller aux champignons...
😎