XL 2019 Conditions avec Sub Worksheet_Change(ByVal Target As Range)

Bonjour Pat,
Un essai en PJ mais la demande n'est pas très claire, j'ai fait au mieux avec :
Le cas échéant c'est facilement adaptable en fonction de vos besoins.

Bonjour Sylvanu,
ravi de te lire et merci encore une fois pour ton aide, c'est exactement ce qu'il me fallait !
Pourrais tu m'aider à ajouter les instructions suivantes, si ce n'est pas trop te demander, car lorsque je rajoute ta macro à celles ci, ça beuge sur If Not Intersect(T, [AE5]) Is Nothing Then

If Target.Count > 1 Then Exit Sub
a = Target.Address
If Target.Address = "$AE$5" Then
If Target.Value = "" Then
ActiveSheet.Shapes("Groupe 106").Visible = False
ActiveSheet.Shapes("Rectangle : coins arrondis 1").Visible = False
Rows("51:51").EntireRow.Hidden = True
Else
ActiveSheet.Shapes("Groupe 106").Visible = True
ActiveSheet.Shapes("Rectangle : coins arrondis 1").Visible = True
Rows("51:51").EntireRow.Hidden = False
End If
End If

Set r = [AE5]: Rows("25:50").Hidden = 0: Rows(r.Value + 25 & ":50").Hidden = -1

un grand Merci

Pat

re,

c'est super
merci beaucoup Sylvanu

Sylvanu,

pourrait on ajouter cette condition AS17 <> 0 , de sorte que le msgbox ne s'affiche que si les 2 conditions sont remplies

If T <> 6 And T <> 9 And T <> 12 and AS17 = 0 Then
If MsgBox("Si vous changez la durée d'utilisation, le montant sera réinitialisé ! ", vbYesNo + vbQuestion) = vbYes Then
Application.EnableEvents = False
[AS17] = 0
Application.EnableEvents = True
Columns("AT").EntireColumn.Hidden = True
si AS17<> ""

merci

( Utilisez les balises </> c'est plus lisible. )
Essayez cela :
On entre dans le IF que si on a 3,6,9 dans AE5 et AS17 différent de 0.

Génial,
merci beaucoup