Discussion :

[microman]

Bonjour,

Comment faire vérouiller automatiquement une cellule juste apres avoir appuyer sur la touche "entrée" (apres la saisie...) ?

Merci d'avance.

[wilfried_42]

bonjour

Mieux vaut un exemple qu'un long discours

fichier joint

bonne journée

[ilcocodrillo]

Macro evenementielle à mettre dans la feuille qui t'interresse. Si tu veux vraiment vérouiller jusqu'au bout il faut aussi activer la protection de la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Target.Select
    Selection.Locked = True
 
End Sub

[ilcocodrillo]

le fichier de Wilfried est très bien fait, inspire toi de ça !

ciao

[microman]

Merci beaucoup !

[jfontaine]

Une autre possibilité

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Dim str As String
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address = "$A$1" Then
    If str = "" Then
        str = Target.Value
    Else
        If Target.Value <> str Then
            Target.Value = str
            MsgBox "Modification Impossible"
        End If
    End If
 
End If
 
End Sub

Jérôme

[microman]

Merci jérome mais suffit t-il de copier ton code pour que ca marche ? (je débute...)

[jfontaine]

le code devrait fonctionner en le copiant dans la feuille que tu veux tester
Il te restera a remplacer $A$1 par l'adresse de la bonne cellule

jerome