Remise à zéro nouvelles plages

Bonjour à toutes et à tous,

Comment effacer dans les mêmes conditions 2 autres plages de cellules T10:U30 et G2:U3 avec la même macro qui efface déjà la plage H10:P30.

D'avance merci,

Cordialement,

Alban

Sub Remise_a_zero()

'ActiveSheet.Range("h10:p30").ClearContents

Application.ScreenUpdating = False

Dim C As Range

Dim Zone As Range

Set Zone = ActiveSheet.Range("h10:p30")

For Each C In Zone

C.Value = ""

Next C

End Sub

Bonjour Alban, bonjour le forum,

Essaie comme ça :

ActiveSheet.Range("H10:P30,T10:U30,G2:U3").ClearContents

J'ai un message d'erreur "erreur execution '424'" et la macro H10:P30 ne fonctionne plus.

Sub Remise_a_zero()

'ActiveSheet.Range("H10:P30,T10:U30,G2:U3").ClearContents

Application.ScreenUpdating = False

Dim C As Range

Dim Zone As Range

Set Zone = ActiveSheet.Range("H10:P30,T10:U30,G2:U3").ClearContents

For Each C In Zone

C.Value = ""

Next C

End Sub

A +

Re,

Arf ! Une seule ligne dans le code pas besoin de boucler !

Sub Remise_a_zero()
ActiveSheet.Range("H10:P30,T10:U30,G2:U3").ClearContents
End Sub

Oui, mais je veux conserver les encadrements de colonnes, et les couleurs d'origine de mon tableau.

Re,

Ben oui, si tu avais testé tu te serais rendu compte que ça le fait !... Clear aurait tout effacer, ClearContents n'efface que le contenu...

3 lignes de code font tout ?

Re,

Mais P... de B... de M... (Purée de Bananes Mexicaine, évidemment...), teste avant de poser des questions !..

Sorry,

J'avais essayé; mais j'avais intégré ta ligne de code dans mon code et évidemment ça ne fonctionnait pas.

Je ne pouvais pas croire qu'une seule ligne pouvait tout faire.

Avec tous mes remerciements pour ta patience et mes excuses.

Bien cordialement,

Alban