code vba Résolu/Fermé

Question

Bonjour,
Pour termier mon fichieril faudrait rajouter un code... si c'est possible :

j'ai un premier fichier "formulaire G" qui est rempli par un technicien sur excel oneline (sans vba possible)
Les informations sont récupérer dans un fichier, pour le comptable de l'entreprise (avec code).
Dans le fameux fichier de recuperation de données, et dans l'onglet "Dégustation Cadeau Casse Perso" (qui récupere les infos de du meme onglet mais dans le fichier "formulaire" ) : j'ai rajouté une colonne en I pour dire si c'est comptabilisé. Serait ce possible dans le meme code ou dans un autre, de dire que sur les lignes où il y a noté "oui" alors il faut sur le fichier "formulaires_G" onglet "Dégustation cadeau ..." sur les même lignes les cellules des colonnes C à H soient sélectionnées, clic droit , mise en forme, protection, cocher verouiller, puis proteger l'onglet (revision / proteger/ cocher "selectionner les cellules deverouillées").
 Attention avant de faire cela il faudra enlever la protection de la feuille.
Le but étant que le comptable une fois qu'il a mis "oui" (c'est comptabilisé) le technicien ne puisse pas modifier quoi que ce soit sur ces lignes déja comptabilisées...
 
Pouvez vous m'aider  ?
bonne journée
Merc
https://www.cjoint.com/c/HKlmyWincgl
https://www.cjoint.com/c/HKlmBZEkFpl

yg_be · Answer

bonjour, je regarde.
regardé, pas encore fait, cela me semble très faisable.

cependant, j'hésite à propos de quand le faire, et pour quels "oui".
à l'ouverture et/ou à la fermeture de la synthèse, au moment ou un "non" devient "oui", ou via un bouton ou autre chose déclenché par le comptable?
pour tous les "oui", oui uniquement pour les nouveaux "oui"?  si les nouveaux, il faudrait mémoriser quelque part dans la synthèse ceux qui sont déjà protégés, par exemple via la valeur en colonne J.

pour tester, j'ai fait ceci, qui déclenche quand le comptable change un "non" en "oui":
ceci est à mettre dans un nouveau module:Option Explicit
Public Const fichier_formulaire = "https://d.docs.live.net/169216252f734be3/Documents/Formulaires_G.xlsx"

Sub blockstock(ligne As Long)
Dim form As Workbook, degust As Worksheet

Set form = Workbooks.Open(fichier_formulaire)
Set degust = form.Sheets("Dégustation Cadeau Casse Perso")
degust.Unprotect
degust.Range(degust.Cells(ligne, 3), degust.Cells(ligne, 8)).Locked = True
degust.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
form.Save
form.Close
End Sub

ceci est  mettre dans le module de la feuille "Dégustation Cadeau Casse Perso":
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 And Target.Row > 6 And Target = "oui" Then
    blockstock (Target.Row)
End If
End Sub

Code vba

1 réponse

Discussions similaires