Une macro pour suppr toutes les 7 cellules

Résolu
Serenity75 Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   -  
tompols Messages postés 1273 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'aimerai répété une macro pour supprimer toutes les 7 cellules.

J'ai essayé ca :
Selection.ClearContents
Range("B28").Select
Selection.ClearContents
Range("B35").Select
Selection.ClearContents
End Sub

Mais cela ne continue pas. Merci par avance.
A voir également:

4 réponses

tompols Messages postés 1273 Date d'inscription   Statut Contributeur Dernière intervention   435
 
re,
tu peux utiliser la meme methode que sur ton post précédent :
For i = lignedebut to lignefin step 7
Range("B" & i).ClearContents
next i

en remplaçant ligne debut et lignefin par les valeurs souhaitées....
1
tompols Messages postés 1273 Date d'inscription   Statut Contributeur Dernière intervention   435
 
Ok,
ds ce cas :
For i = lignedebut to lignefin step 7
Range("B" & i &":B" & i+5).ClearContents
next i

toujours en remplaçant ligne debut et lignefin par les valeurs souhaitées....
1
Serenity75 Messages postés 14 Date d'inscription   Statut Membre Dernière intervention  
 
Je savais que je pouvai l'utiliser mais je suis vraiment une quiche ^^.

Je vais essayer ça merci.
0
Serenity75 Messages postés 14 Date d'inscription   Statut Membre Dernière intervention  
 
Non je me suis trompé enfaite il faut que j'efface 6 lignes puis j'en laisse 1 puis j'efface 6 puis j'en laisse 1 etc ...
0