arnoldbrice19
XLDnaute Nouveau
Bonjour à tous, j'espère que vous vous portez merveilleusement bien et que vous préparez agréablement la nouvelle année ? Merci !!!
Etant débutant, j'ai tout d'abord essayé de lire les articles similaires mais sans trouver de réponse à ma question. C'est donc pourquoi je viens vers vous pour avoir une aide sur cette macro afin de l'améliorer. C'est celle-ci
En effet, je souhaiterais que les cellules indiquées (remplie en vert) de la colonne B (B3, B5, B6, B8, B10,...) ou bien toutes les cellules de la colonne, se verrouillent automatiquement après avoir sélectionné le "Code client" de la colonne suivante (colonne C). L'objectif est de sécuriser les données saisies dans la colonne précédente relatives au client précédent.
Les cellules concernées sont remplies en vert.
Ci-dessous le fichier explicatif. Le code de verrouillage est celui indiqué dans le code.
Merci par avance pour votre aide !
Etant débutant, j'ai tout d'abord essayé de lire les articles similaires mais sans trouver de réponse à ma question. C'est donc pourquoi je viens vers vous pour avoir une aide sur cette macro afin de l'améliorer. C'est celle-ci
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:M3, B5:M6, B8:M8, B10:M27")) Is Nothing Then
ActiveSheet.Unprotect "0000"
Target.Locked = True
ActiveSheet.Protect "0000"
End If
End SubLes cellules concernées sont remplies en vert.
Ci-dessous le fichier explicatif. Le code de verrouillage est celui indiqué dans le code.
Merci par avance pour votre aide !