Protege feuille

Bonsoir a tous

dans la fichier joint

une macro qui fonctionne

feuille protège on met un chiffre la date du jour apparait

super tout va bien.

et non quand on clic rapide plusieurs fois en E13 exemple et après 1 fois en E14

la feuille et déprotégé

.et ca NON il me la faux protégé

si vous avait 1 idée

merci par avance

aiglon74

Bonjour,

Déplace "ActiveSheet.Protect" après ton "End If".

Gelinotte

Bonjour,

Essaie ainsi:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E8:E30")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        ActiveSheet.Unprotect
        If Target.Value = "" Then
            Target.Offset(0, -3) = ""
        Else
            Target.Offset(0, -3) = Date
        End If
        ActiveSheet.Protect
    End If    
End Sub

Et préfère un alignement centrée sur plusieurs colonnes (E,F) à la fusion des cellules.

Cdlt.

Bonsoir

désolé pour le retard de ma réponse

mais boulot avant tout

je vous remercie pour vos réponses que je viens de testé

sans problème ca fonctionne bien non très bien

cordialement

aiglon74