Rapport de message :*
 

Re: Empecher la suppression de la saisie

Titre du sujet : Re: Empecher la suppression de la saisie
par dss le 20/01/2008 18:03:45

Bonjour Didier et le forum,

J'ai bien reçu tes commentaires et entretemps j'ai continué à faire des essais et suis arrivé à la situation suivante :


?>


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lig As Long
lig = Target.Row
Const Mot2 As String = "y"
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Columns(18)) Is Nothing Then
If Target.Offset(0, -1).Value = "enregistré" Then
If InputBox("Mot de passe, Svp") = Mot2 Then
Target.Value = "Transport annulé"
If Target.Value = "Transport annulé" Then cells(lig, 19).Value = Now
End If
End If
End If
End Sub

?>


J'ai effectivement conscience que le test if target.value est inutile mais c'est la seule façon que j'ai trouvé pour renvoyer "Now" en colonne 19 sur la ligne concernée : Faute de mieux, c'était toujours ça...

Pour finaliser mon projet, je te confirme que j'ai aujourd'hui besoin :

1- d'éviter la suppression de la saisie sur les colonnes R et S dès qu'il s'y trouve la mention "transport annulé" (col 18) et la date (col 19) alors que la même ligne (cellule colonne 1 à 17) est déjà protégée. Et là je n'ai pas reussi à trouver la solution pour la ligne concernée : soit toute la colonne est protégée soit aucune des cellules de cette colonne ne l'est (idem pour la colonne 19)

2- Si la mention "transport annulé" (qui ne peut être saisie qu'à l'aide d'un mot de passe et donc sécurisée) est inscrite sur une ligne en colonne 18, alors je voudrais pouvoir libérer la plage de réservation initialement prévue pour ce transport : Là aussi, je n'ai pas reussi à intégrer le test sur la colonne R (transport annulé") au niveau de la partie du programme

J'ai pris connaissance sur ton site du thème concernant les boites de dialogue personnalisées et j'envisage d'utiliser cette procédure pour exploiter la valeur de renvoi de la boite de dialogue et renforcer le controle de la saisie : qu'en penses-tu?

Merci par avance de ton aide car pour répondre à tes interrogations, la logique de sécuriser la saisie sur la colonne 18 et d'empêcher sa suppression permet de sécuriser l'annulation du transport et d'obtenir, du moins je le crois, un programme fiable et cohérent.

Cordialement

A+

dss

NB : J'y pris bonne note de ta remarque pour l'envoi du code, désolé, je ne savais pas...
La version que j'utilise est excel 2002 mais le programme sera également traité par des postes sur différentes versions dont excel 97.
Je peux renvoyer le code mais j'ai pensé que cela n'était pas utile et éviterait de surcharger pour rien le forum.