Effacement des cellules non protège

Bonsoir le forum

voici le code que j' utilise pour ouvrir mes feuilles(par boutons)

je voudrais y rajouter a chaque retour accueil

effacement des cellules non protège de la feuille que je vais quitter

Sub ouvrir_feuil()

Dim feuilles, f%

feuilles = Split("base;nouvelle ref;recherche emp;recherche ref;acceuil", ";")

On Error GoTo errfeuil

f = CInt(Right(Application.Caller, 1))

Select Case f

Case 1 To 5

Application.ScreenUpdating = False

If f = 5 Then ActiveSheet.Visible = False

With Worksheets(feuilles(f))

.Visible = True

.Activate

End With

Application.ScreenUpdating = True

Case Else

Exit Sub

End Select

errfeuil:

End Sub

cordialement

Aiglon 74

Bonsoir

Modifies ta macro

Sub ouvrir_feuil()

    Dim feuilles, f%
    feuilles = Split("base;nouvelle ref;recherche emp;recherche ref;acceuil", ";")
    On Error GoTo errfeuil
    f = CInt(Right(Application.Caller, 1))
    Select Case f
        Case 1 To 5
            Application.ScreenUpdating = False
If f = 5 Then
              ActiveSheet.Visible = False
              Sheets("nouvelle ref").Range("B8,D8,F8,H8,J8").ClearContents
              Sheets("recherche emp").Range("B12,D12,F12,H12,E17").ClearContents
              Sheets("recherche ref").Range("B12,D12,F12,H12").ClearContents
            End If
            With Worksheets(feuilles(f))
                .Visible = True
                .Activate
            End With
            Application.ScreenUpdating = True
        Case Else
            Exit Sub
    End Select
errfeuil:
End Sub

Bonsoir

désolé chez ca fonctionne pas

Aiglon74

re

E17 oui car non protégé

B12,D12,F12,H12 cellule protège ne fonctionne pas

Aiglon74

Bonsoir

A vérifier

Re

super tout fonctionne

merci pour la leçon

A+

Aiglon74