Discussion :

[fbobo]

Bonjour à tous.

Aujourd'hui, un souci qui me semble pourtant simple. Je souhaiterai à chaque fois garder seulement, une colonne sur 3 (de gauche à droite).
J'ai un petit code mais ça ne ressort pas comme je le souhaite et à vrai dire j'ai du mal avec les "step" :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub SupprimerColonneSur2()
 
    Dim x As Long
    Range("D2").Select
    For x = 200 To 1 Step -4
    Columns(x).Delete
    Next
 
End Sub

De base, mon tableau ressemble à ça :


Et j'aimerai bien en arriver là (dans le sens où je ne garde que la 2e colonne de chaque jour) :


Merci à toute la communauté par avance

Bonne journée!

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
Sub SupprimerColonneSur2()
Dim x As Integer
 
Application.ScreenUpdating = False
For x = 200 To 5 Step -3
    Columns(x).Delete
    Columns(x - 2).Delete
Next x
End Sub

[fbobo]

Merci à toi mercatog c'est IMPECCABLE !