Discussion :

[shaku]

Bonjour , j'ai voulu écrire une macro qui m'efface le contenu d'une certaine plage de cellules , voici le code :

Code :

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

1
2
3
4
5
Sub effacer()
Dim plage As Range
Set plage = Range(Cells(10, 1), Cells(30, 15))
ActiveSheet.plage.ClearContents
End Sub

Et apparemment la propriété n'est pas gérée par l'objet ...Quelqu'un a une petite idée pour résoudre le problème ?

merci

[aalex_38]

Bonjour,

Travailler avec les éléments "actifs" n'est pas tellement ma tasse de thé; mais bon un exemple parmi d'autres :

Code :

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

1
2
3
4
5
6
7
Sub effacer()
Dim plage As Range
with ActiveSheet
Set plage = .Range(Cells(10, 1), Cells(30, 15))
plage.ClearContents
end with
End Sub

[shaku]

Oui j'ai réussi ya 20s t'as été plus rapide , on a pas besoin de activesheet finalement .

[laetitia]

bonjour shaku aalex_38 tu peus faire comme cela aussi

Code :

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

1
2
3
Sub essai3()
Range(ActiveCell(10, 1), ActiveCell(30, 15)).ClearContents
 End Sub