Vba problème avec bouton

Avec le mot de passe du projet VBA, s'il te plait.

taper : a et a

Bonjour,

Apparemment, la feuille "Fiche" est protégée et tu essaies d'effacer le contenu des fiches au moment de l'affichage de l'userform. Tu dois déprotéger la feuille d'abord, ou déverrouiller les cellules concernées.

Daniel

Bonjour,
Effectivement, la feuille Base est vide, mais c'est sans doute volontaire. Ajoute un nom et une date de baptême dans les données.
Cordialement.
Daniel

Bonjour,

Apparemment, la feuille "Fiche" est protégée et tu essaies d'effacer le contenu des fiches au moment de l'affichage de l'userform. Tu dois déprotéger la feuille d'abord, ou déverrouiller les cellules concernées.
Il faut modifier la macro

Private Sub ClearFiches()

    Dim i, Décalage As Integer
    Dim Lig, Col As Integer
    Sheets(FicheNomFeuille).Unprotect
    For Décalage = 0 To 30 Step 30
        For i = LBound(TCellsFiche) To UBound(TCellsFiche)
            Lig = Range(TCellsFiche(i)).Row
            Col = Range(TCellsFiche(i)).Column
            Sheets(FicheNomFeuille).Cells(Lig, Col + Décalage).Value = ""
                If TBaseColFiche(i) = BaseColTéléphoneMaison _
                Or TBaseColFiche(i) = BaseColTéléphonePortable _
                Or TBaseColFiche(i) = BaseColTéléphoneBureau Then
                    Sheets(FicheNomFeuille).Cells(Lig, Col).Font.Color = 0
                    Sheets(FicheNomFeuille).Cells(Lig - 1, Col + 4 + Décalage).Value = ""
                    Sheets(FicheNomFeuille).Cells(Lig - 1, Col + 4 + Décalage).Font.Color = 0
                End If
            Next i
    Next Décalage
    Sheets(FicheNomFeuille).Protect
End Sub

J'ai ajouté Les lignes :

Sheets(FicheNomFeuille).Unprotect
Sheets(FicheNomFeuille).Protect

Si la feuille est protégée avec un mot de passe, il faut mettre :

Sheets(FicheNomFeuille).Unprotect "XXX"
Sheets(FicheNomFeuille).Protect "XXX"

Remplace XXX par le mot de passe.

Daniel