Rapport de message :*
 

Re: Empecher la suppression de la saisie

Titre du sujet : Re: Empecher la suppression de la saisie
par myDearFriend! le 20/01/2008 21:17:23

Re,

Tout d'abord, merci pour l'utilisation des balises [ code ], cela dit, le code VBA doit se situer entre la balise [ code ] et la balise [ /code ] pour que ça fonctionne lol

Pour en revenir à ton problème, ci-dessous une mise en oeuvre de ce que je te proposais précédemment, c'est à dire l'utilisation de l'évènement BeforeDoubleClick :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lig As Long
Const Mot2 As String = "y"
    lig = Target.Row
    If Not Application.Intersect(Target, Columns(18)) Is Nothing Then
        Cancel = True
        If Cells(lig, 17).Value = "enregistré" Then
            If InputBox("Mot de passe, Svp") = Mot2 Then
                Target.Value = "Transport annulé"
                Cells(lig, 19).Value = Now
                Range(Cells(lig, 5), Cells(lig, 7)).Value = "00:00"
            End If
        End If
    End If
End Sub

Pour que ça puisse fonctionner, il te faut mettre en "verrouillée" l'ensemble des cellules des colonnes R et S au préalable (aucune saisie manuelle ne doit être possible tant que la feuille est protégée).

Par ailleurs, pour libérer la plage horaire, je n'ai pas trouver mieux que de redéfinir cette plage à 00:00.

Tu trouveras ci-joint ton fichier modifié en conséquence.

Cordialement,

EDITION
Citation :
dss a dit :
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?

L'utilisation de l'API Windows est toujours délicat et source de nombreux plantages si mal maitrisée. Par ailleurs, ton projet est destiné visiblement à plusieurs versions Excel différentes (dont Excel 97). Je te déconseille fortement d'y recourir pour ce projet.