Autres Effacer les cellules sous conditions

fanfan38

XLDnaute Barbatruc

• 12 Avril 2022

• #2

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

A+ François

 

Pièces jointes

• CHARLIE Effacer les listes.xlsm

  14 KB · Affichages: 6

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 12 Avril 2022

• #3

Bonjour @chaelie2015

Edit bonjour @fanfan38

Je te propose ce fichier

*Merci de ton retour

@Phil69970

 

Pièces jointes

• Suppression condition V1.xlsm

  33.2 KB · Affichages: 9

Vote positif 0 Vote négatif

Solution

S

st007

XLDnaute Barbatruc

• 12 Avril 2022

• #4

Bonjour,
Petit oops fanfan target ligne 9

VB:

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

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 12 Avril 2022

• #5

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Avril 2022

• #6

Bonjour chaelie2015, le fil,

Ma solution :

VB:

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+

 

Pièces jointes

• CHARLIE Effacer les listes(1).xlsm

  15.7 KB · Affichages: 7

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 12 Avril 2022

• #7

Bonjour,

Une autre proposition en pièce jointe.

 

Pièces jointes

• CHARLIE-Effacer-les-listes_Marcel32-v1.xlsm

  15.2 KB · Affichages: 6

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 12 Avril 2022

• #8

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Avril 2022

• #9

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

VB:

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

 

Pièces jointes

• CHARLIE Effacer les listes(2).xlsm

  15.9 KB · Affichages: 2

Vote positif 0 Vote négatif