Bonjour,
J'ai un problème avec la macro ci dessous. Le but est que lorsque si je choisis une ligne où j'ai déjà choisi PLANNED ca m'indique "
souhaite vous écraser etc etc".
Sauf que le problème, c'est que par exemple mon booléen bascule en True si choisis PLANNED en ligne 12. Et quand je vais en ligne 13 choisir PLANNED, il me met que j'ai déjà séléctionné cette valeur alors que c'est la 1ere fois!!
Pouvez vous m'aider?merci
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligne As Integer
Static TemoinAnalysed, TemoinRejected, TemoinPrePlanned, TemoinPlanned, TemoinClosed As Boolean
If ActiveWorkbook.ReadOnly Then Exit Sub
If Target.Column <> 20 Then Exit Sub
If Target.Count = 1 And Target.Column = 20 Then
ligne = ActiveCell.row
Select Case UCase(Target)
Case "PLANNED"
If Range("Q" & ligne).Value = "" Then
MsgBox ("saisir date dans colonne Q et recommencer")
ActiveCell.Value = ""
Exit Sub
Else
If TemoinPlanned Then
If MsgBox("Souhaitez-vous écraser la date de plannification précédente", vbYesNo + 48, "Demande de confirmation") = vbYes Then
NotifPlanned
Else: Exit Sub
End If
Else: NotifPlanned
End If
TemoinPlanned = True
End If