Ajout de parametre dans
bonjour,
EXCEL 2007
La macro ci-dessous fonctionne lorsque je change de valeur une cellule de la colonne T
Par contre, que dois-je faire si je souhaite que les évènements ne se lancent que si la cellule de la colonne O est vide???? J'ai pas un souci de formule mais j'ai l'impression qu'il faut changer ça :ByVal Target As Range
merci
Private Sub Worksheet_Change(ByVal Target As Range)
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
Select Case UCase(Target)
Case "ANALYSED"
If TemoinAnalysed Then
If MsgBox("Vous avez déjà analysé la demande. Souhaitez-vous écraser la date d'analyse précédente", vbYesNo + 48, "Demande de confirmation") = vbYes Then
Impactanalysed
Else: Exit Sub
End If
Else: Impactanalysed
End If
TemoinAnalysed = True
Case "REJECTED"
If TemoinRejected Then
If MsgBox("Vous avez déjà rejeté la demande. Souhaitez-vous écraser la date de rejet précédente", vbYesNo + 48, "Demande de confirmation") = vbYes Then
Impactrejected
Else: Exit Sub
End If
Else: Impactrejected
End If
TemoinRejected = True
End Select
End If
End Sub
Bonjour,
pas sur mais essaye d'ajouter ce qui est surligné
Private Sub Worksheet_Change(ByVal Target As Range)
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 And Target.Offset(, -5) = "" Then
Select Case UCase(Target)
Case "ANALYSED"
If TemoinAnalysed Then
If MsgBox("Vous avez déjà analysé la demande. Souhaitez-vous écraser la date d'analyse précédente", vbYesNo + 48, "Demande de confirmation") = vbYes Then
Impactanalysed
Else: Exit Sub
End If
Else: Impactanalysed
End If
TemoinAnalysed = True
Case "REJECTED"
If TemoinRejected Then
If MsgBox("Vous avez déjà rejeté la demande. Souhaitez-vous écraser la date de rejet précédente", vbYesNo + 48, "Demande de confirmation") = vbYes Then
Impactrejected
Else: Exit Sub
End If
Else: Impactrejected
End If
TemoinRejected = True
End Select
End If
End SubBonne journée