XL 2021 Suppression de cellules

[clausen]

Bonjour tout le monde

J'aimerai avoir une macro (sur le bouton poubelle de la feuille janvier) qui me vide dans toutes les feuilles
les cellules ci-dessous.

D4 F65

I4 I34
K4 K34
M4 M34
G4 S34


Merci d'avance

 

[wDog66]

Bonjour Clausen,

C'est simple, menu "Développeur" -> Enregistrer une macro

Ensuite il suffit de faire les manipulations manuellement et d'arrêter l'enregistrement, vous aurez votre code (bon à optimiser)

A+

 

[clausen]

Bonjour Clausen,

C'est simple, menu "Développeur" -> Enregistrer une macro
Regarde la pièce jointe 1209704

Ensuite il suffit de faire les manipulations manuellement et d'arrêter l'enregistrement, vous aurez votre code (bon à optimiser)

A+

J'ai fait cette macro, mais j'aimerais l'attribuer à toutes les feuilles janvier à décembre.

Sub Suppression()
Range("D4:F65").Select
Selection.ClearContents
Range("I4:i34").Select
Selection.ClearContents
Range("K4:K34").Select
Selection.ClearContents
Range("M4:M34").Select
Selection.ClearContents
Range("G4:G34").Select
Selection.ClearContents
End Sub

 

[wDog66]

Re,

Et bien voici un code qui pourra fonctionner pour toutes les feuilles

Sub EffacerDonnées()
  Dim Wsh As Worksheet
  For Each Wsh In Sheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", _
        "Septembre", "Octobre", "Novembre", "Décembre"))
    With Wsh
    .Range("D4:F65").ClearContents
    .Range("I4:i34").ClearContents
    .Range("K4:K34").ClearContents
    .Range("M4:M34").ClearContents
    .Range("G4:G34").ClearContents
    End With
  Next Wsh
End Sub

A+

 

[clausen]

Re,

Et bien voici un code qui pourra fonctionner pour toutes les feuilles

Sub EffacerDonnées()
  Dim Wsh As Worksheet
  For Each Wsh In Sheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", _
        "Septembre", "Octobre", "Novembre", "Décembre"))
    With Wsh
    .Range("D4:F65").ClearContents
    .Range("I4:i34").ClearContents
    .Range("K4:K34").ClearContents
    .Range("M4:M34").ClearContents
    .Range("G4:G34").ClearContents
    End With
  Next Wsh
End Sub

A+

Je vais essayer et vous remercie mille fois. Super sympa
Bonne fetes

 

[wDog66]

 

[clausen]

Je vais essayer et vous remercie mille fois. Super sympa
Bonne fetes

 

[clausen]

Je n'arrive pas a enlever cette erreur