Bonjour à tous,
je fais de nouveau appelle à vous car j'ai un bout de code qui commence à me faire criser.
J'ai écris:
Le problème c'est que lorsque je lance ma macro il n'y a aucun message d'erreur, sauf que les cellules ne se vident pas. J'ai fais plusieurs essais mais je n'arrive pas à comprendre où se situe le problème.
Quelqu'un aurait-il une idée pour m'aider?
Merci par avance pour votre aide.
je fais de nouveau appelle à vous car j'ai un bout de code qui commence à me faire criser.
J'ai écris:
Code:
Dim DerColonne As Long
DerColonne = Rows(12).Find("*", , , , xlByColumns, xlPrevious).Column
I = 2
For I = 2 To 13
For M = (DerColonne - 2) To 6 Step -5
Sheets(I).Range(M & "12:" & M & "18").ClearContents
Sheets(I).Range(M & "20:" & M & "26").ClearContents
Sheets(I).Range(M & "28:" & M & "34").ClearContents
Sheets(I).Range(M & "36:" & M & "42").ClearContents
Sheets(I).Range(M & "44:" & M & "50").ClearContents
Sheets(I).Range(M & "52:" & M & "58").ClearContents
Next
Next
Le problème c'est que lorsque je lance ma macro il n'y a aucun message d'erreur, sauf que les cellules ne se vident pas. J'ai fais plusieurs essais mais je n'arrive pas à comprendre où se situe le problème.
Quelqu'un aurait-il une idée pour m'aider?
Merci par avance pour votre aide.