Remises à zéro

[jjp]

Bonjours,

J'utilise un classeur annuel avec des feuille "mensuelles" sur lesquelles il y a 2 tableaux superposés mais séparés.
Ce classeur, je l'utilise tout les ans, mais à chaque fois, je dois remettre à zéro (effacer) les contenus et les mises en formes (couleur et traits) de beaucoup de cellules.

je voudrais savoir si il était possible de créer une macro qui effacerait le contenu d'une feuille via un bouton protégé(pour éviter d'effacer par erreur).

Pour info j'aimerais "vider" totalement les cellules suivantes:
de la ligne 9 à 43
et de la ligne 53 à 76
uniquement dans les colonnes 2 à 33 (B à AG)

Merci pour votre aide

Cordialement,
JJ

 

[Pierrot93]

Re : Remises à zéro

Bonjour,

essaye ceci, une confirmation de l'exécution est necéssaire ...

If MsgBox("Voulez vous effacer les lignes ??", vbYesNo) = vbYes Then _
    Range("B9:AG43,B53:AG76").Clear

bon après midi
@+

 

[jjp]

Re : Remises à zéro

merci
elle est très efficace et même un peux trop.
je n'avait pas vu cela comme ça.

Tu peux me le refaire mais en laissant le quadrillage ??
(simplement supprimer : lettres, chiffres et couleur)

merci

 

[Pierrot93]

Re : Remises à zéro

Re,

Tu peux me le refaire mais en laissant le quadrillage ??

tu veux dire les bordures ??? elles font partie du format.... pour le contenu, remplace "clear" par "clearcontents"...

 

[david84]

Re : Remises à zéro

Bonsoir, salut Pierrot🙂,
peut-être en remplaçant

Range("B9:AG43,B53:AG76").Clear

par

Range("B9:AG43,B53:AG76").ClearContents

A+

 

[Pierrot93]

Re : Remises à zéro

Re, bonsoir David🙂,

pour le contenu, couleur de remplissage et coleur de police :

With Range("B9:AG43,B53:AG76")
    If MsgBox("Voulez vous effacer les lignes ??", vbYesNo) = vbYes Then
        .ClearContents
        .Interior.ColorIndex = xlNone
        .Font.ColorIndex = xlAutomatic
    End If
End With

 

[jjp]

Re : Remises à zéro

Re, bonsoir David🙂,

pour le contenu, couleur de remplissage et coleur de police :

With Range("B9:AG43,B53:AG76")
    If MsgBox("Voulez vous effacer les lignes ??", vbYesNo) = vbYes Then
        .ClearContents
        .Interior.ColorIndex = xlNone
        .Font.ColorIndex = xlAutomatic
    End If
End With

Sur celle ci ça me met erreur End With ??

 

[jjp]

Re : Remises à zéro

dsl c'est moi qui avait fait l'erreur.
voici ce qui foncctionne:

Sub RAZ()
'
' RAZ Macro
' remise à zéro des cellules de pointage
'
With Range("B9:AG43,B53:AG76")
If MsgBox("Voulez vous effacer les lignes ??", vbYesNo) = vbYes Then
.ClearContents
.Interior.ColorIndex = xlNone
.Font.ColorIndex = xlAutomatic
End If
End With
End Sub