XL 2021 Suppression de cellules

clausen · Hier à 10:19

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 · Hier à 10:24

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 · Hier à 10:54

wDog66 à dit:
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 · Hier à 12:23

Re,

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

Code:

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 · Hier à 12:26

wDog66 à dit:

Re,

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

Code:

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 · Hier à 12:41

clausen · Hier à 13:40

clausen à dit:
Je vais essayer et vous remercie mille fois. Super sympa
Bonne fetes

clausen · Hier à 13:41

Je n'arrive pas a enlever cette erreur

XL 2021 Suppression de cellules

clausen

XLDnaute Occasionnel

Pièces jointes

wDog66

XLDnaute Occasionnel

clausen

XLDnaute Occasionnel

wDog66

XLDnaute Occasionnel

clausen

XLDnaute Occasionnel

wDog66

XLDnaute Occasionnel

clausen

XLDnaute Occasionnel

Pièces jointes

clausen

XLDnaute Occasionnel

Discussions similaires