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. |
Forums