Une macro pour suppr toutes les 7 cellules Résolu

Question

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.

tompols · Answer

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

Serenity75 · Answer

Je savais que je pouvai l'utiliser mais je suis vraiment une quiche ^^.

Je vais essayer ça merci.

Serenity75 · Answer

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

tompols · Answer

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

Une macro pour suppr toutes les 7 cellules

4 réponses

Discussions similaires

Newsletters