effacer plage de cellules sans les formules

K

kjin

XLDnaute Barbatruc

• 31 Octobre 2010

• #2

Re : effacer plage de cellules sans les formules

Code:

Dim c As Range
On Error Resume Next
Set c = Range("A12:J300").SpecialCells(xlCellTypeConstants, 3)
If Not c Is Nothing Then
c.ClearContents
End If

Reste à voir s'il faut réinitialiser le gestionnaire d'erreurs
A+
kjin

 

Vote positif 0 Vote négatif

D

domik

Guest

• 31 Octobre 2010

• #3

Re : effacer plage de cellules sans les formules

Merci pour ta réponse kjin

En insérant ton code j'ai ce message d'erreur:

"instruction incorrecte à l'exterieur d'une prodedure" 🙁

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 31 Octobre 2010

• #4

Re : effacer plage de cellules sans les formules

Bonjour à vous,

Ce que t'a marqué kjin, il faut le placer dans un module, en commençanr par Sub nomdumodule et le finissant par End Sub

Par exemple comme ceci :

Code:

Sub reinit()
  Dim c As Range
    On Error Resume Next
    Set c = Range("A12:J300").SpecialCells(xlCellTypeConstants, 3)
    If Not c Is Nothing Then
      c.ClearContents
    End If
    On Error GoTo 0
End sub

 

Vote positif 0 Vote négatif

D

domik

Guest

• 31 Octobre 2010

• #5

Re : effacer plage de cellules sans les formules

merci à vous deux

c'est ok 🙂

A+

 

Vote positif 0 Vote négatif