remettre à zero plusieurs cellules sur plusieurs feuilles

titoffe60 · 3 Août 2012

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 · 3 Août 2012

Re : remettre à zero plusieurs cellules sur plusieurs feuilles

Bonsoir Christophe, bonsoir le forum,

Peut-être comme ça :

Code:

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 · 3 Août 2012

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

remettre à zero plusieurs cellules sur plusieurs feuilles

titoffe60

Guest

Pièces jointes

Robert

XLDnaute Barbatruc

titoffe60

Guest

Discussions similaires

remettre à zero plusieurs cellules sur plusieurs feuilles

titoffe60

Guest

Pièces jointes

Robert

XLDnaute Barbatruc

titoffe60

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency