Re : Autoriser la modification d'une ligne saisie seulement par mot de passe
Bonsoir le Forum et bonsoir BrunoM45,
Grand merci pour ton envoi.
Je teste et je ne comprends pas pourquoi lorsque je saisis en colonne N, la valeur saisie disparaît. la suppression ou la modification deviennent alors possibles.
Si ce n'est pas trop te demander, peux tu m'expliquer d'autant que le reste de ma macro prevoit de remplir cette case selon reponse de l'utilisateur.
Pour info, peux tu me dire si le reste du code presentera à ton avis probleme en l'integrant tel quel
VColD = Range("D" & Target.Row).Value
VColL = Range("L" & Target.Row).Value
If VColL <> 0 And VColD <> 0 Then
Setrep = MsgBox("Validez votre saisie :Attention,vous ne pourrez plus modifier la ligne après la validation ", vbYesNo)
End If
Tri des données sur 3 colonnes
If Setrep = 6 Then
Range("A4:M65000").Select
Selection.Sort key1:=Range("D5"), Order1:=xlAscending, Key2:=Range("A5") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
'Enregistre le classeur
ActiveWorkbook.Save
End If
End If
Inscrit Enregistré en colonne N sur la ligne saisie
If ActiveWorkbook.Saved = True And Range("N" & Target.Row).Value = "" Then
Range("N" & Target.Row).Value = "Enregistré"
End If
Encore mille fois merci car tu me sors d'une veritable galere!
Cordialement
dss