Une macro pour suppr toutes les 7 cellules

Résolu/Fermé
Serenity75 Messages postés 14 Date d'inscription vendredi 29 janvier 2010 Statut Membre Dernière intervention 11 février 2010 - 29 janv. 2010 à 16:30
tompols Messages postés 1273 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 - 29 janv. 2010 à 16:51
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 jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 435
29 janv. 2010 à 16:38
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 jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 435
29 janv. 2010 à 16:51
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 vendredi 29 janvier 2010 Statut Membre Dernière intervention 11 février 2010
29 janv. 2010 à 16:40
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 vendredi 29 janvier 2010 Statut Membre Dernière intervention 11 février 2010
29 janv. 2010 à 16:43
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