ecrire une fonction qui supprime une cellule sur M en ligne et une sur M en colonne
bonjour j un programme sur excel en utilisant visual basic, en fait il faut ecrire une fonction qui supprime une cellule sur M en ligne et une sur M en colonne;
c celui là:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14
| sub suppression(ByVal M As Integer, ByVal n As Integer)
Dim l As Integer
Dim c As Integer
For c = 1 To 10 Step M
For l = 1 To 10 Step n
Range(Chr(64 + c) & l).Select
Selection.ClearContents
Next l
Next c
End Sub
Sub appel()
Call suppression(2, 3)
End Sub |
mais là j'arrive pas à le faire jusqu'à rencontrer une cellule vide.
y a qq un pour m'aider svp, c pour demain et c un exam.
merci d'avance