Effacer une cellule qui effacera la ligne

Bonjour,

Plutôt que de faire un classeur de 12 feuilles pour l'année, je pense qu'une seule feuille avec un "enregistrer sous" en fin de mois est suffisant mais il faut effacer toutes les données du mois précédent d'où ma question, peut on effacer, par exemple, les cellules de la colonne "C" qui sont les dates, ce qui effacera à son tour les cellules "D, E, F, G, H et L" qui sont les données du mois.

Un petit fichier qui va bien:

Merci à vous

Bonjour,

Il est difficile d'effacer les colonnes D, E, F, G, H et L, sans effacer le contenu des colonnes I et K

que voulez-vous faire exactement ?

Amicalement

Pierrot

Bonjour,

Les colonnes I et K s'effacent toutes seules lors de l'effacement des autres colonnes (D, E, F, G, H) c'est pour ça que je n'en ai pas parlé.

Ce que je voudrais, c'est revenir à un tableau vierge de toutes données.

Cordialement et merci

Alors, voilà la solution valable pour toute la colonne C

Amicalement

Pierrot

Re,

Excuse moi, Pierre, mais je ne comprends pas la logique de la chose.

C'est bien cette macro que tu as rajouté!?

Sub Effacer()'
' Effacer Macro'
    ActiveCell.Offset(0, -4).Range("A1:E1,I1").Select
    ActiveCell.Offset(0, 4).Range("A1").Activate
    Selection.ClearContents
End Sub

Cordialement

Non, c'est une erreur de fichier,

voici le bon

Amicalement

Pierrot

C'est la macro_Change de la feuille qui appelle la macro effacer

Change ton code par celui-ci

Sub Effacer()
'
' Effacer Macro
' Sélectionnez la colonne C et effacer , la macro se déplace de 1 rang vers la droite et
'sélectionne le reste de la ligne
ActiveCell(Offset0, 1).Range("A1").Select
    ActiveCell.Range("A1:I1").Select
    Selection.ClearContents
End Sub

Change ton code par celui-ci

le précédant effacait les totaux des colonnes I,K

'

Sub Effacer()
'
' Effacer Macro
'
ActiveCell(Offset0, 1).Range("A1").Select
    ActiveCell.Range("A1:E1,I1").Select
    Selection.ClearContents
End Sub
End Sub

Salut Pierre et le Forum,

Suite à notre conversation, je me suis un peu perdu donc j'ai retravaillé sur la chose et voila ce que ça donne

Sub Effacer_données()
    Dim dx As Long, i As Long
    dx = ActiveWorkbook.Sheets("Septembre 2017").Range("A" & Rows.Count).End(xlUp).Row
    i = 5
    While ActiveWorkbook.Sheets("Septembre 2017").Range("B" & i) <> ""
       If ActiveWorkbook.Sheets("Septembre 2017").Range("C" & i) = "" Then
          ActiveWorkbook.Sheets("Septembre 2017").Range("D" & i & ":H" & i & ":L" & i).ClearContents
        End If
        i = i + 1
    Wend
End Sub

Ca fonctionne mais bien sur , il reste encore un problème

Lorsque je lance ma macro sur une feuille non protégée, ça efface les formules dans les colonnes "I et K" et lorsque la feuille est protégée ça bloque sur

ActiveWorkbook.Sheets("Septembre 2017").Range("D" & i & ":H" & i & ":L" & i).ClearContents

Je pense que le problème vient des " : " devant le " L " car je veux aussi effacer ce qui est dans la colonne " L ".

Si je comprends bien, c'est comme si je demandais d'effacer de D à L

Donc si quelqu'un avait une idée, je suis preneur.

Merci

Bonjour, bayard

A tester avec un double-clic pour toutes les feuilles

je ne peux rien faire d'autre

Amicalement

Pierrot

Merci Pierre, c'est tout bien

Bon travail