Code VBA - RAZ feuille de calcul + protection

[phil555]

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]

Bonjour phil555,

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

A+

 

[phil555]

Voila une des feuilles du classeur

 

[job75]

Utilisez cette macro :

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]

C'est Nickel

Merci beaucoup !!!