Effacer les cellules déverrouillé de 3 feuilles Excel

Voici un exemple de code

Sub videtableau()

Application.ScreenUpdating = False

'Msgbox Ok + Annuler

yourmsgbox = MsgBox("Êtes-vous sûr de vouloir effacer ce classeur entièrement ?", vbOKCancel, "Confirmation")

If yourmsgbox = vbCancel Then

Exit Sub

End If

Dim C As Range

Dim F As Worksheet

'boucle pour passer en revue toutes les feuilles

For Each F In Worksheets

'on active la feuille à traiter

F.Activate

'boucle pour tester les cellules vérouillées ou non

For Each C In Range("A1:T50") '<-- à adapter

'si la cellule n'est pas vérouillée on efface

If C.Locked = False Then C=""

Next

Next

End Sub

Je souhaite l' appliquer sur des feuilles nommé : paramètre 1,paramètre 2, et BASE DE DONNÉES

à la fin je souhaite activé la feuille paramètre 1 et la cellule H4

S'IL VOUS PLAÎT AIDEZ MOI

Bonjour Tinolacoro,

je te propose ce code VBA :

Option Explicit

Sub VideTableau()

  Dim yourmsgbox%: Application.ScreenUpdating = False

  'Msgbox Ok + Annuler
  yourmsgbox = MsgBox("Êtes-vous sûr de vouloir effacer ce classeur entièrement ?", vbOKCancel, "Confirmation")

  If yourmsgbox <> vbOK Then Exit Sub

  Dim F As Worksheet, C As Range

  'boucle pour passer en revue toutes les feuilles
  For Each F In Worksheets
    If F.Name = "paramètre 1" Or F.Name = "paramètre 2" Or FName = "BASE DE DONNÉES" Then
      'boucle pour tester les cellules vérouillées ou non
      For Each C In F.Range("A1:T50") '<-- à adapter
        'si la cellule n'est pas vérouillée on efface
        If C.Locked = False Then C.ClearContents
      Next C
    End If
  Next F

  Worksheets("paramètre 1").Select: [H4].Select

End Sub

je t'ai répondu aussi sur ton autre sujet (ta sub TestVerrouillage) :

https://forum.excel-pratique.com/viewtopic.php?p=689532#p689532

dhany

Merci dhany je vais appliquer ton code et te faire un retour, merci chère ami, que Dieu te bénisse