effacement cellule non vérouillées

Y

Yvon

Guest
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!

XLDnaute Barbatruc
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,
 
Y

Yvon

Guest
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!

XLDnaute Barbatruc
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]
 

Pièces jointes

  • PourYvon.zip
    8.9 KB · Affichages: 17

Statistiques des forums

Discussions
312 913
Messages
2 093 534
Membres
105 749
dernier inscrit
Mamadou221