Verouiller la cellule fusionné apres la saisié dans la feuille Type

[chaelie2015]

Bonjour Forum
Dans le même principe du fil précédent, cette fois je souhaite verrouiller la cellule fusionné B1-H1 de la feuille Type « OC » une fois cette dernier (la cellule fusionnée) est remplie.
Salutations

 

[tototiti2008]

Re : Verouiller la cellule fusionné apres la saisié dans la feuille Type

Bonjour chaelie,

ça va pas aider les modifications de la cellule si faute de frappe, mais c'est toi qui vois
Sur l'évènement Change de la feuille, vérifie l'adresse de Target pour voir si c'est $B$1
Si oui et si elle est non vide, verrouille la

 

[chaelie2015]

Re : Verouiller la cellule fusionné apres la saisié dans la feuille Type

Bonjour chaelie,
ça va pas aider les modifications de la cellule si faute de frappe, mais c'est toi qui vois
Sur l'évènement Change de la feuille, vérifie l'adresse de Target pour voir si c'est $B$1
Si oui et si elle est non vide, verrouille la

Re tototiti
Merci d'avoir répondu a mon souci
concernant

Bonjour chaelie,
ça va pas aider les modifications de la cellule si faute de frappe, ....

Oui, je l'ai fait pour ça , une fois saisie (correcte ou faux)

concernant

Bonjour chaelie,
.........
Sur l'évènement Change de la feuille, vérifie l'adresse de Target pour voir si c'est $B$1
Si oui et si elle est non vide, verrouille la

Puis je avoir plus éclaircissement
Salutations

 

[chaelie2015]

Re : Verouiller la cellule fusionné apres la saisié dans la feuille Type

Re
si j'ai bien compris

If Target.Address = "$B$1" <>”” Then Target.Locked = True

est ce que c'est correcte ?
Salutations

 

[tototiti2008]

Re : Verouiller la cellule fusionné apres la saisié dans la feuille Type

Re,

Oui, l'idée est là

je t'aide un peu

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cellule As Range
    For Each Cellule In Target.Cells
        If Cellule.Address = "$B$1" And Cellule.Value <> "" Then
            Cellule.Locked = True
        End If
    Next
End Sub

 

[chaelie2015]

Re : Verouiller la cellule fusionné apres la saisié dans la feuille Type

Re
merci pour l'aide , je l'ai adapté selon mon fichier mais je n'arrive pas a le faire fonctionner ( bug)
ci joint le fichier Test
Salutations

 

[tototiti2008]

Re : Verouiller la cellule fusionné apres la saisié dans la feuille Type

Re,

il faut avoir protégé avec userinterfaceonly à True
petite modif du code

Private Sub Worksheet_Change(ByVal R As Range)Dim Cellule As Range
 For Each Cellule In R.Cells
        If Cellule.Address = "$B$1" And Cellule.Value <> "" Then
            Cellule.MergeArea.Locked = True
        End If
    Next
End Sub

 

[chaelie2015]

Re : Verouiller la cellule fusionné apres la saisié dans la feuille Type

Re
merci pour la Modif, mais j'ai toujours le même bug au niveau du code

.....
            Cellule.MergeArea.Locked = True

a+
Edit : Type d'erreur d’exécution 1004
Peut être la version de l'excel (2007 2010???)

 

[tototiti2008]

Re : Verouiller la cellule fusionné apres la saisié dans la feuille Type

Re,

il faut avoir protégé avec userinterfaceonly à True

tu l'as fait ?

Sub UnProt()    
ActiveSheet.Unprotect "mp"
    Range("B1").MergeArea.Locked = False
End Sub


Sub Prot()
    ActiveSheet.Protect Password:="mp", userinterfaceonly:=True
End Sub

 

[chaelie2015]

Re : Verouiller la cellule fusionné apres la saisié dans la feuille Type

Re
merci , the same Pblm
Salutations

 

[tototiti2008]

Re : Verouiller la cellule fusionné apres la saisié dans la feuille Type

Re,

Si tu lances Unprot, ça marche ?
si oui Lances Prot ensuite
puis essaye d'executer une macro avec juste

Range("B1").MergeArea.Locked = True

 

[tototiti2008]

Re : Verouiller la cellule fusionné apres la saisié dans la feuille Type

Re,

Je viens de tester sur un 2007, ça marche chez moi

 

[chaelie2015]

Re : Verouiller la cellule fusionné apres la saisié dans la feuille Type

Re tototiti
je suis désolé 🙁 toto je n'arrive pas a l’exécuter malgré j'ai suivié tes conseils mais une fois je ferme le fichier et je saisi une donné dans la cellule B1 , j'ai ce BUG
"Erreur d’exécution 1004"
Impossible de définir la propriété Locked de la classe Range

a ce niveau :Cellule.MergeArea.Locked = True
encore une fois je suis désolé de vous demander votre Help
Salutations

 

[tototiti2008]

Re : Verouiller la cellule fusionné apres la saisié dans la feuille Type

Re,

Ouvre le fichier du message #9

Lance Unprot
Lance Prot
Vide la cellule B1
tapes quelque chose dedans

Toujours le bug ?

 

[chaelie2015]

Re : Verouiller la cellule fusionné apres la saisié dans la feuille Type

Re
oui ça fonctionne , mais est ce que a chaque fois je fais cette procédure.