XL 2016 Verrouillage cellule automatique

[jcoillot]

Bonjour,

J'ai trouvé sur le forum la solution pour verrouiller une cellule automatiquement après intégration d'une valeur dans le fichier joint..

En revanche, la solution trouvée s'applique à toute ma feuille, et je souhaiterais l'appliquer uniquement sur les colonnes K, L et M.

Est-ce qu'une âme charitable aurait une solution ?

Par avance, merci pour vos réponses, en vous souhaitant une bonne journée.

 

[Dan]

Bonjour,
Essayez votre code comme ceci :

Dim stpevt As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If stpevt = True Then Exit Sub
If MsgBox("Souhaitez-vous valider " & Target & " ?", vbYesNo + vbExclamation, "CONFIRMATION") = vbNo Then
    stpevt = True
    Target.ClearContents   'on efface
    stpevt = False
Else
    Unprotect "toto"
    Range("K" & Target.Row & ":" & "M" & Target.Row).Locked = True
    Protect "toto"
End If
End Sub

Cela suppose qu'une fois la cellule remplie dans cette cellule vous ne savez plus la changer évidement et que vous ne savez plus remplir les cellules en colonne K à M sur cette ligne

Crdlt

 

[fanfan38]

Bonjour et bienvenu sur le forum
Ci joint ma solution

A+ François

 

[jcoillot]

Bonjour,
Essayez votre code comme ceci :

Dim stpevt As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If stpevt = True Then Exit Sub
If MsgBox("Souhaitez-vous valider " & Target & " ?", vbYesNo + vbExclamation, "CONFIRMATION") = vbNo Then
    stpevt = True
    Target.ClearContents   'on efface
    stpevt = False
Else
    Unprotect "toto"
    Range("K" & Target.Row & ":" & "M" & Target.Row).Locked = True
    Protect "toto"
End If
End Sub

Cela suppose qu'une fois la cellule remplie dans cette cellule vous ne savez plus la changer évidement et que vous ne savez plus remplir les cellules en colonne K à M sur cette ligne

Crdlt

Bonjour,
Merci de votre réponse.
Malheureusement, c'est l'inverse, mais cela a été résolu plus bas.

Encore merci de votre réactivité, en vous souhaitant une bonne journée.

 

[jcoillot]

Bonjour et bienvenu sur le forum
Ci joint ma solution

A+ François

Merci beaucoup.

C'est exactement ce que je voulais!

En vous souhaitant tune bonne journée, cordialement!

 

[Dan]

Malheureusement, c'est l'inverse, mais cela a été résolu plus bas.

Désolé.

la solution pour verrouiller une cellule automatiquement après intégration d'une valeur....

En revanche, la solution trouvée s'applique à toute ma feuille, et je souhaiterais l'appliquer uniquement sur les colonnes K, L et M

Là j'ai (mal) compris mais la solution de verrouiller automatiquement devait s'appliquer à la colonne K,L et M
J'ai beau relire votre demande, je n'avais pas compris que vous vouliez éviter de verrouiller K, L et M.
Bref vous avez le choix 🙂
Merci du retour.
Crdlt

 

[jcoillot]

Désolé.
J'ai beau relire votre demande, je n'avais pas compris que vous vouliez éviter de verrouiller K, L et M
Merci du retour.
Crdlt

Pas de souci, merci pour le temps passé