Discussion :

[goodsayan]

Bonjour
Je souhaite supprimer automatiquement des cellules d'une colonne suivant leurs positions.
Mon tableau est comme ca:
cellules 1 a 6 à supprimer
cellules 7 à 10 a garder
cellules 11 à 14 à supprimer
cellules 15 à 20 à suppimer
cellules 21 à 24 a garder
cellules 25 à 28 à supprimer
Etc...
Et cela sur toutes une colonne de taille variable.

Mon probleme peut donc se décomposer en 2:
suppression des 1 à 6, puis 15 à 20 etc... il y a 5 lignes à supprimer
suppression des 11 à 14, puis 25 à 28 etc... il y a 3 lignes à supprimer

Si quelqu'un connait une macro pouvant faire au moins un des sous problemes? Après je devrais pouvoir l'adapter pour l'autre partie.
Merci

[wilfried_42]

bonjour

en foction de ce que j'ai compris

voici une macro faite en fonction de l'exemple donné

Code :

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

1
2
3
4
5
6
7
sub suppligne()
dim i as long, nb as long
nb = int(Range("A65535").end(xlup).row/10)
for i = 1 to nb
Range("A" & 1 + ((i-1)*4) & ":A" & 6 + ((i-1)*4)).entirerow.delete
next i
end sub

bonne journée

[goodsayan]

Cela ne marche pas correctement.
Il m'enleve des valeurs que je veux garder.
J'ai vu sur d'autres réponses similliares à mon probleme que cela venait souvent de for i = 1 to nb
A chaque boucle il redefinit son point de départ... La solution était donc de partir de la derniere ligne et de remonter.

[wilfried_42]

re:

je me suis fourvoyé, j'ai cru que les ecarts entre les nombres etaient identiques

Voici une autre macro

Code :

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

1
2
3
4
5
6
sub supprime()
dim i as long
For i = range("A65535").end(xlup).row to 1 step -1
if val(range("A" & i).value)= 0 then range("A" & i).entirerow.delete
next i
end sub

Suppression de toute les ligne si A est alphabetique

[goodsayan]

Merci beaucoup