Effacement de cellule

Bonjour tout le monde

J'ai une erreur avec l'effacement par une macro (qui se trouve dans la feuille de janvier Poubelle) du contenu de plusieurs feuilles. Ça efface, mais ça provoque une erreur.

Si un champion pouvait

me corriger mon code

Bonjour,

De quelle erreur parles tu
Quand j'utilise ton bouton "Poubelle" je n'ai pas d'erreur .....!!!!

De plus dans ta macro tu écris :

  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("K4:S34").ClearContents
    '.Range("M4:M34").ClearContents
    '.Range("G4:G34").ClearContents
    End With
  Next Wsh

Dans la ligne ".Range("K4:S34") tu cumules plusieurs colonnes, et ensuite tu rééfaces les colonnes "M" et "G"
La colonne "G" est en dehors de ton tableau, dois tu l'effacer
Enfin tu aurais intérêt à écrire

  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("I:I,G:G,K:K,M:M").ClearContents
    End With
  Next Wsh

A+

Oups! étourderie de ma part
La ligne

Range("I:I,G:G,K:K,M:M").ClearContents

doit s'écrire

Range("I4:I34,G4:G34,K4:K34,M4:M34").ClearContents

Sinon tu effaces également les titres

Ce que je veux faire exactement pour toutes les feuilles (Janvier a Décembre)

Effacer

de D4 a F65

ainsi que les colonnes suivantes

I K M O Q R S de 4 a 34

Si vouspouvez corriger directement mon code dans le fichier joint se serrait fabuleux parce que je ne connais pas grand-chose et je vais tout foutre en laire

Voici la macro qui répond à ta question

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,K4:K34,M4:M34,O4:O34,Q4:Q34,R4:R34,S4:S34").ClearContents
    End With
  Next Wsh
End Sub

J'aurais pu ecrire les deux lignes .Range ........ en une seule, mais j'ai voulu les séparer, comme tu l'avais fait, pour que tu puisses éventuellement les différencier dans leur effacement .... pourquoi pas !

Il y a plus rien qui fonctionne maintenant avec tous ces changement

Bonjour

Logiquement tout fonctionne

Crdlt

Ben ... je suis d'accord avec Joco, tout fonctionne chez moi

Bonjour,

Même résultat que Jocco et Jacky pas d'erreur non plus.

Il n'y a pas une autre macro qui se lance en même temps ?

Merci tout le monde vraiment super ce service que vous m'avez rendu.

Bonne année a tous

Pas de problèmes, on est là pour aider
Bonnes fêtes de fin d'année