Autres Effacer les cellules sous conditions

[chaelie2015]

Bonjour Forum
Mon souci est le suivant :
1. si j'efface ou je change la valeur dans la cellule B5 (c'est une liste déroulante ) alors toutes les cellules (B7, B9 et B11) s'effacent automatiquement.
2. si j'efface ou je change la valeur dans la cellule B7 (c'est une liste déroulante ) alors les cellules ( B9 et B11 SEULEMENT) s'effacent automatiquement .
3. si j'efface ou je change la valeur dans la cellule B9 (c'est une liste déroulante ) alors que la cellule B11 s'efface automatiquement.
Salutations

 

[fanfan38]

Bonjour
Ci joint ma solution par macro
MAIS! pourquoi fusionner des cellules?

A+ François

 

[Phil69970]

Bonjour @chaelie2015

Edit bonjour @fanfan38

Je te propose ce fichier

*Merci de ton retour

@Phil69970

 

[st007]

Bonjour,
Petit oops fanfan target ligne 9

If Target.Row = 9 Then Range("B11.D11").ClearContents

 

[fanfan38]

où est le problème?

si j'efface ou je change la valeur dans la cellule B9 (c'est une liste déroulante ) alors que la cellule B11 s'efface automatiquement.

Tu es obligé de sélectionner B, C et D car fusionné...
A+ François

 

[job75]

Bonjour chaelie2015, le fil,

Ma solution :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Set r = [B5,B7,B9,B11]
Set Target = Intersect(Target, r)
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False 'désactive les évènements
For Each r In r
    If r.Row > Target.Row Then r = ""
Next r
Application.EnableEvents = True 'réactive les évènements
End Sub

A+

 

[TooFatBoy]

Bonjour,

Une autre proposition en pièce jointe.

 

[chaelie2015]

Bonjour François, Phil69970, st007 ,Job75 et Marcel32
Merci pour touts ces détails.
A+

 

[job75]

Une solution sans boucle donc plus rapide s'il y a beaucoup de cellules :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Set r = [B5,B7,B9,B11]
Set Target = Intersect(Target, r)
If Target Is Nothing Then Exit Sub
Set Target = Intersect(Target(2).Resize(Rows.Count - Target.Row), r)
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False 'désactive les évènements
Target = ""
Application.EnableEvents = True 'réactive les évènements
End Sub