protection de cellules aprés validation

[degap05]

Bonsoir,

Aprés avoir rempli une ligne de données sur une feuille "A", je valide une cellule en bout de cette ligne qui copie toute la ligne sur une feuille "B". Cette cellule change de couleur à ce moment là. Existe-t-il un moyen dans la même action de protéger cette ligne de données (de la feuille "A") pour éviter de pouvoir modifier des données par erreur.

Merci.

 

[fanfan38]

Re : protection de cellules aprés validation

Bonjour
Perso je mettrai une protection sur tout le classeur apres avoir enlevé cellule verouillée pour les cellules à modifier ulterieurement
Si macro il suffit d'ajouter
ActiveSheet.unProtect(mot de passe eventuel)
selectionner la ligne
Selection.Locked = true
ActiveSheet.Protect (mot de passe eventuel, DrawingObjects:=True, Contents:=True, Scenarios:=True)

A+ François

 

[degap05]

Re : protection de cellules aprés validation

Bonjour, mes explications n'étaient pas assez précises:

Pour une feuille protégée "Boulons" je rempli certaines cellules de chaque ligne, par exemple pour la ligne 4:

A,B,C,F,G,H,T,U,V (donc dévérouillées). Au remplissage de la dernière cellule de la ligne, les données sont renvoyées sur la page "Totaux".

Je souhaite qu'il ne soit plus possible de changer les données de cette ligne, à partir du moment ou les données sont transmises par remplissage de la dernière cellule (V, toujours la même) et ce, au fur et à mesure, pour chaque ligne remplie.

Le but est de ne plus pouvoir ré-intervenir sur les cellules A,B,C,G,H,T,U,V, à partir du moment ou les données ont été validées par remplissage de la cellule V de chaque ligne.

Merci beaucoup.

 

[fanfan38]

Re : protection de cellules aprés validation

Bonjour
Quelle feuille "A ou B" faut il proteger?
Cette cellule(de quelle feuille?)... change de couleur à ce moment là.
Le changement de couleur ce fait t'il par macro ou par mise en forme conditionnelle?
Pour une feuille protégée... protégée comment? Y a t'il un mot de passe?
page "Totaux": c'est une autre feuille?
Le but est de ne plus pouvoir ré-intervenir sur les cellules A,B,C,G,H,T,U,V, ...
et les cellules d,e f... ?
La cellule V elle est saisie ou c'est une formule?

A+ François
Ps: un fichier exemple vaut mieux qu'un long discours...

 

[degap05]

Re : protection de cellules aprés validation

Bonjour, il faut protéger les cellules de la feuille "A".
La cellule de la colonne "V" change de couleur par mise en forme conditionnelle.
La feuille "A" est protégée, mais sans mot de passe.
Toutes les cellules de chaque ligne peuvent être prises en compte.
La cellule "V" est saisie.

Merci de ton attention Fanfan38.

Bon week-end🙂

 

[fanfan38]

Re : protection de cellules aprés validation

Bonsoir
Je penses avoir repondu à ton souhait

A+ François

 

[allegro50]

Re : protection de cellules aprés validation

Bonjour deGap, françois
En ajoutant ce bout de code dans la macro qui fait la copie en feuille B, tu proteges la ligne.
Attention, il faut, au prealable, et une fois pour toutes deverouiller toutes les cellules qui acceptent une saisie et proteger la feuille

Range("V65500").End(xlUp).Select
If ActiveCell = "Valider" Then
ActiveCell.EntireRow.Locked = True
ActiveSheet.Protect 'optionnel
End If

 

[degap05]

Re : protection de cellules aprés validation

Bonsoir, merci Fanfan38 et Allegro50 (dont je n'ai pas encore essayé la méthode).

Donc je re-joins ton fichier Fanfan38, sur lequel j'ai porté quelques annotations, si tu veux bien en prendre connaissance.

Merci.

 

[fanfan38]

Re : protection de cellules aprés validation

Bonsoir
Modifie la macro de la feuille comme suit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 22 Then Exit Sub
ActiveSheet.Unprotect
Target.EntireRow.Select
Selection.Locked = True
lig = Target.Row
Cells(lig + 1, 1).EntireRow.Select
Selection.Locked = False
ActiveSheet.Protect
End Sub
la ligne dont la colonne V a été saisi est verouillé
La ligne suivante est deverouillée

A+ François

 

[degap05]

Re : protection de cellules aprés validation

Bonjour, c'est exactement ce que je souhaitais!!!!🙂 J'essaierai lundi sur ma "vraie" feuille et te tiendrai informé.

Merci beaucoup.