Discussion :

[milcaty]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Singular]

Tu utilises une façon longue et compliquée d'adresser tes cellules.

Au lieu d'utiliser ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(chr(64) + c & l).Select

tu devrais utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(l,c).ClearContents

Il y a un appel de procédure, une concaténation et une sélection en moins. Donc, c'est plus rapide, plus concis et plus clair.

Pour régler ton problème de cellule vide, ta réponse se trouve quelque part dans le forum puisqu'elle a été maintes fois demandée.

Mais, pour te faciliter la vie, la voilà:

À l'intérieur de ta boucle du milieu, sors de la procédure si IsEmpty(Cells(l,c).Value) = True.

Je te signale que ta procédure devrait s'appeler 'Effacement' et non 'suppression' puisque tu ne supprimes pas mais tu effaces ta cellule. Pour supprimer, il faut utiliser la méthode Delete de l'objet Range. Si tu fais ça, par contre, tu auras des problèmes dès que tu auras supprimé la première cellule puisque tes indices ne fonctionneront plus. La solution dans ce cas est d'itérer à rebours, en partant de la dernière cellule...