Code VBA - RAZ feuille de calcul + protection

phil555 · 31 Août 2020

Bonjour à tous,
Ma requête est je pense relativement pour un connaisseur du VBA
J'ai un classeur composé de plusieurs feuilles de calcul
Je souhaiterai paramétrer un bouton dans chaque feuille pour supprimer les valeurs contenues dans les cellules blanches
En complément j'ai également besoin de protéger toutes les cellules de couleur (Je n'utilise pas de MFC)

D'avance merci !!

job75 · 31 Août 2020

Bonjour phil555,

Puisqu'il y a des valeurs dans les cellules "blanches" montrez-les nous en joignant le fichier.

A+

phil555 · 31 Août 2020

Voila une des feuilles du classeur

job75 · 31 Août 2020

Utilisez cette macro :

VB:

Sub Cellules()
Dim c As Range
With ActiveSheet
    .Protect "toto", UserInterfaceOnly:=True
    .Cells.Locked = True
    For Each c In .UsedRange
        If c.Interior.ColorIndex = xlNone Then If Not c.HasFormula Then c.MergeArea.Locked = False: c = ""
    Next
End With
End Sub

phil555 · 3 Septembre 2020

C'est Nickel

Merci beaucoup !!!

Code VBA - RAZ feuille de calcul + protection

phil555

XLDnaute Nouveau

job75

XLDnaute Barbatruc

phil555

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

phil555

XLDnaute Nouveau

Discussions similaires