XL 2016 Résollu : Raz plage de cellule

[GClaire]

Hello

Je cherche a effacer une plage de cellule de plusieur feuille, vouici un peu ce que j'ai fais, mais j'ai une erreur.

Voici le code :

Sub Raz_Base()
'
' Raz_Base Macro
'

'
    Sheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aoùt", _
        "Septembre", "Octobre", "Novembre", "Décembre")).Select

    Sheets("Janvier").Activate

   ' Range("G9:E43").Select
    'Selection.ClearContents
   
    Application.WorksheetFunction(Selection.Range("A9:J" & Selection.Range("P65536").End(xlUp).Row)).ClearContents
   
    Sheets("Janvier").Select
    Range("A9").Select
End Sub

Par avance merci.

G'Claire

 

[ChTi160]

Bonjour GClaire
Bonjour Le Fil ,Le Forum
Dans un fichier précédent ,j'avais mis ceux ci:

Sub Raz_Base()
' Raz_Base Macro
Dim I
For Each I In Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aoùt", _
        "Septembre", "Octobre", "Novembre", "Décembre")
  With Sheets(I)
  DerLgn = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
           .Range("A9:E" & DerLgn).ClearContents
  End With
Next I
    Sheets("Janvier").Activate
    Range("A9").Select
End Sub

je viens de remarquer que la plage n'est plus la même "A9:E" à l'époque et maintenant
"A9;P"
Attention à l'intitulé des Feuilles Mois !
mais cela ne correspond peut être plus à ce que tu recherches!
Bonne Journée
Amicalement
Jean marie

 

[GClaire]

Hello

Heu sisi c'est bien cela

Vraiment confus car je ne l'ai pas vu ce code, tellement concentré sur ma demande principale.

Tu l'as fais et je suis passé a coté, n'ayant pas utiliser mon bouton RAZ et surtout je récupéré les codes que tu m'as écrit par rapport a ma demande, pour les coller dans mon classeur, comme celui-ci avait pas mal bougé.

Désolé de ma demande.

Merci encore, G'Claire