Discussion :

[Tartenpion]

Je souhaiterais supprimer le contenu d'une certaines selection("A10,Z10") dans toutes les feuilles de mon classeur sauf les 3 premieres.

Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub ClearAllSheets()
 
    Dim i
 
    For i = 4 To Sheets.Count
        Sheets(i).Range("A1:1000").Value = ""
    Next i
 
End Sub

Mais cela me donne l'erreur suivante:

Code :

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

1
2
3
4
 
Sheets(i).Range("A1:1000").Value = "" 
Run time error 1004
Application defined or object defined error

Une idee?

[bib34690]

pourquoi Range("A1:1000) et pas Range("A1:Z10") ?

[Megaxel]

Hello.
Pour vider une cellule, fais un

Code :

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

.Clear

au lieu de ton

Code :

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

.Value=""

.