(Résolu) Private Sub Worksheet_Change(ByVal Target As Range)

[fmoore]

Bonjour,

Dans la commande suivante avez-vous une idée ce que je peux mettre à la place de cancel=true ?

Dans le fond si il met pas le bon mot de passe je veux pas que le changement que la personne fait soit accepté.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$7" Then
Dim Reponse As Variant

Reponse = Application.InputBox("Entrez votre identifiant", "Autorisation", , , , , , 2)

If VarType(Reponse) = vbBoolean Then
Reponse = MsgBox("Modification non appliqué, Réessayer ?", vbYesNo)
If Reponse = vbYes Then ' L'utilisateur a choisi Oui.
Reponse = Application.InputBox("Entrez votre identifiant", "Autorisation", , , , , , 2)
If VarType(Reponse) = vbBoolean Then
MsgBox "Vous ne pouvez pas changer le seuil vous devez demander au secrétariat", vbOKOnly
Cancel = True
ElseIf StrComp(Reponse, "MDP") <> 0 Then
Cancel = True
End If
Else ' L'utilisateur a choisi Non.
Cancel = True
End If
ElseIf StrComp(Reponse, "MDP") <> 0 Then
Reponse = MsgBox("Mot de passe érroné, Réessayer ?", vbYesNo)
If Reponse = vbYes Then ' L'utilisateur a choisi Oui.
Reponse = Application.InputBox("Entrez votre identifiant", "Autorisation", , , , , , 2)
If VarType(Reponse) = vbBoolean Then
MsgBox "Vous ne pouvez pas changer le seuil vous devez demander au secrétariat", vbOKOnly
Cancel = True
ElseIf StrComp(Reponse, "MDP") <> 0 Then
Cancel = True
End If
Else ' L'utilisateur a choisi Non.
Cancel = True
End If
End If
End If
End Sub

Merci de votre temps !

 

[fmoore]

Re : Private Sub Worksheet_Change(ByVal Target As Range)

Effectivement elle fonctionne très bien et est beaucoup plus simple merci beaucoup.

 

[fmoore]

Re : (Résolu) Private Sub Worksheet_Change(ByVal Target As Range)

Merci beaucoup elle fonctionne très bien et est beaucoup plus simple que la mienne