comment ne garder que une cellule sur 600

Victor21

XLDnaute Barbatruc

Supporter XLD

• 4 Mars 2011

• #2

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.
🙂

 

Dernière édition: 4 Mars 2011

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 4 Mars 2011

• #3

Re : comment ne garder que une cellule sur 600

Bonjour à tous,

Peux-tu essayer avec :

Code:

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

 

Vote positif 0 Vote négatif

S

sebastopolde

Guest

• 4 Mars 2011

• #4

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

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 4 Mars 2011

• #5

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 :

 

Pièces jointes

• coordonées gps.xls

  29.5 KB · Affichages: 45

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 4 Mars 2011

• #6

Re : comment ne garder que une cellule sur 600

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

VB:

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

 

Vote positif 0 Vote négatif

S

sebastopolde

Guest

• 4 Mars 2011

• #7

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

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 4 Mars 2011

• #8

Re : comment ne garder que une cellule sur 600

🙂

Bonne journée à toi aussi.

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

 

Vote positif 0 Vote négatif