remettre à zero plusieurs cellules sur plusieurs feuilles

[titoffe60]

Bonjour

je voudrais mettre à zéro différentes cellules dans différentes feuilles

les cellules E4 de chaque feuille E1 à E6
Les cellules C14;Q43 sur feuille prévisionnel

Merci encore à vous
A+ Christophe

 

[Robert]

Re : remettre à zero plusieurs cellules sur plusieurs feuilles

Bonsoir Christophe, bonsoir le forum,

Peut-être comme ça :

Sub Macro1()
Dim x As Byte
Dim no As String

For x = 1 To 6
    no = "E" & x
    Sheets(no).Range("E4").ClearContents
Next x
Sheets("Prévisionel pédagoguique").Range("C14:Q43").ClearContents
End Sub

 

[titoffe60]

Re : remettre à zero plusieurs cellules sur plusieurs feuilles

Re,

merci ça fonctionne nickel

Maintenant mais je voudrais ajouter une cellule en plus de la plage de cellules ("C14:Q43")
et comment j'ajoute d autre feuilles avec d autre plage de cellule pour le code VBA

Merci
A+ Christophe