bloquer automatiquement des cellules apres avoir fait une saisie Résolu/Fermé

Question

Bonjour le FORUM


je souhaite savoir si c'est possible de bloquer automatiquement des cellules après avoir saisie une valeur. si possible de mettre un message "ex: confirmez-vous c'est valeur?".

je souhaite vraiment cibler les cellules, car le reste doit rester bloquer et inaccessible.

Merci beaucoup de votre aide.

Ci-joint un model de mes formulaire: https://www.cjoint.com/?DKynfii46b8


Configuration: Windows / Mozilla 11.0

jordane45 · Answer

Bonjour,

Pourrais tu nous expliquer un peu plus en détail ce que tu souhaites faire ?
Car ton fichier.. ne suffit pas à lui tout seul...
 
 

je souhaite vraiment cibler les cellules, car le reste doit rester bloquer et inaccessible. 
Déjà.. sous Excel.. tu as un mode "protection" qui permet de choisir les cellules qui peuvent être éditées ou non..

https://support.microsoft.com/fr-fr/help/973079


Ensuite, par Macro.. tu peux intercepter la/les cellule(s) modifiée(s) sur une feuille et faire un traitement spécifique de ton choix comme faire apparaitre un message..

Ca se gère avec la méthode : Worksheet_Change
Target correspond à la cellule modifiée...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 And Target.Row = 14 Then
 MsgBox "vous avez modifié la cellule F14 ! La nouvelle valeur est: " & Target.Value
End If

End Sub

f894009 · Answer

Bonjour,

Si c'est pour le fichier de votre precedent message (https://forums.commentcamarche.net/forum/affich-31063403-copier-effacer-et-coller-a-la-suite c'est faisable, mais il faudra proteger la feuille avec un mot de passe et le code VBA avec le meme ou un different. Erreur 0 pour les operateurs !!!!!!!

mimi13580 · Answer

Bonjour f894009, le forum

Non cela concerne pas le copier, coller effacer, pour sa c'est le top! et encore Merci....

Par contre je souhaite mettre en place une VBA dans un autre fichier, qui me permet de saisir des valeurs dans les cellules, puis les bloquer automatiquement après avoir fait entrer ou changer de cellule.

Merci d'avance

mimi13580 · Answer

Bonjour jordane45

J'ai essayer ton code, mais c'est pas ce que je recherche,

1-je veux sélectionner une cellule exemple F14
2- remplir cette cellule exemple 35,
3-Bloquer cette cellule automatiquement une fois que je fais entrer ou je que change de cellule,

c'est pour cela que j'ai mis un model.

Merci d'avance pour votre aide:)

mimi13580 · Answer

Bonjour 894009,

Puis-je avoir ton code pour essayer???

protéger la feuille avec un mot de passe et le code VBA avec le même ou un diffèrent. Erreur 0 pour les operateurs !!!!!!!

mimi13580 · Answer

Bonsoir f894009

Merci beaucoup pour ton aide, franchement rien à dire, bon, rapide et efficace....
BRAVO A TOI.

Et encore 1000 merci :)

mimi13580 · Answer

Bonjour f894009, bonjour le forum,

j'ai une question concernant ton code, sur le formulaire j'ai fait plusieurs copier coller à la suite j'ai donc 3 page, j'aimerais savoir si je doit marquer tous les cellules? ou y à un code à donner?

Voici un exemple, merci d'avance.

https://www.cjoint.com/?0KDqne1qnBl

f894009 · Answer

Bonjour,

Heureusement que ce n'etait pas le meme fichier que dans un post precedent!!!!!!!!!!!!

Private Sub Worksheet_Change(ByVal Target As Range)    If Not Application.Intersect(Target, Range("F14:H16,F19:H19,F22:H27," & _                                                                     "F64:H66,F69:H69,F72:H77," & _                                                                     "F114:H116,F119:H119,F122:H127")) Is Nothing Then        retval = MsgBox("Confirmez-vous cette valeur?", vbYesNo, "VALIDATION SAISIE")        If retval = vbYes Then            Target.Locked = True        End If    End IfEnd Sub

mimi13580 · Answer

Bonjour à toi et merci de ta rapidité et de ton efficacité :)

Une question: cela et-il possible d'effacer le contenu lorsqu'on répond au message par "non"?

f894009 · Answer

Re,

Private Sub Worksheet_Change(ByVal Target As Range)    If Not Application.Intersect(Target, Range("F14:H16,F19:H19,F22:H27," & _                                                                     "F64:H66,F69:H69,F72:H77," & _                                                                     "F114:H116,F119:H119,F122:H127")) Is Nothing Then        retval = MsgBox("Confirmez-vous cette valeur?", vbYesNo, "VALIDATION SAISIE")        If retval = vbYes Then            Target.Locked = True        Else            Application.EnableEvents = False            Target = ""        End If    End If    Application.EnableEvents = TrueEnd Sub

mimi13580 · Answer

Wawwww trop fort, 
merci beaucoup

je pense que j'aurai encore besoin de votre aide, et-il possible de parler en privé?
Si non c'est pas grave, car je veux pas vous perdre dans le FORUM

f894009 · Answer

Re,

passez par les MP et je vous donnerai une adresse @mail

Bloquer automatiquement des cellules apres avoir fait une saisie

12 réponses

Discussions similaires