effacement cellule non vérouillées

[Yvon]

Bonjour à tous,

je souhaiterai savoir si l'on peut effacer uniquement les cellules déverouillées sur une feuille protégée, avec une commande du genre:


unlock cells.clearcontents

rigolez pas j'essaie d'interpréter, merci de m'indiquer si la formule est bonne, la syntaxe et les foutues parenthèse sont bien tournées.

Merci d'avance
Yvon

 

[myDearFriend!]

Bonsoir Yvon,

Je ne connais pas de façon directe pour sélectionner d'un coup, l'ensemble des cellules non verrouillées.
Par contre, tu peux peut-être essayer quelque chose comme ça :

      Dim C As Range

      For Each C In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
            If C.Locked = False Then
                  C.ClearContents
            End If
      Next C

Cordialement,

 

[Yvon]

Ok c'est sympa merci, je m'aperçois que j'inteprête pas, comme il faut,

J'essai et je te tiens au courant

Merci
a+
Yvon

 

[Yvon]

Cela marche...............mais avec une feuille non protégée et il faut absolument que la feuille soit vérouillée, comment intégrer à ta formule le fait que la feuille soit vérouillée.

that is the question.

Merci quand même

a+
didier

 

[myDearFriend!]

Bonsoir Yvon,

Si tu utilises une protection par macro à l'ouverture du classeur (Workbook_Open()) utilisant l'argument UserInterfaceOnly, la macro que je t'ai donnée plus haut fonctionnera.

Dans l'objet ThisWorkbook :

Private Sub Workbook_Open()
      Sheets('Feuil1').Protect Password:='yvon', UserInterfaceOnly:=True
End Sub

Dans un module général (Module1 par exemple) :

Sub Effacer()
Dim C As Range
        For Each C In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
                  If C.Locked = False Then
                          C.ClearContents
                  End If
        Next C
End Sub

Ci-joint un exemple intégrant ces procédures...

Cordialement,
[file name=PourYvon.zip size=9111]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PourYvon.zip[/file]

 

[Yvon]

:woohoo: génial tout simplement génial

Merci beaucoup pour le coup de main

a+
Yvon