XL 2019 macro conditon

chinel à dit:

Bonjour tout le monde, je mets en place une macro qui doit effacer le contenu d'une plage de cellules d'après le contenu d'une autre cellule mais cela ne fonctionne pas, besoin d'aide merci !


Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A9").Value = "à l'arrêt" Then
Range("B8,B10,B11,B12,B13,B14,B15").Select
Selection.ClearContents
End If
End Sub

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Application.Intersect(Target, Range("A9")) Is Nothing Then
   If Target.Value = "à l'arrêt" Then
     Range("B8,B10:B15").ClearContents
   End If
  End If
End Sub

M12 à dit:

Bonjour,
Teste comme ceci

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Application.Intersect(Target, Range("A9")) Is Nothing Then
   If Target.Value = "à l'arrêt" Then
     Range("B8,B10:B15").ClearContents
   End If
  End If
End Sub

Cliquez pour agrandir...

job75 à dit:

Bonjour chinel, M12,

Ou comme ceci :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Range("A9") = "à l'arrêt" Then Range("B8,B10:B15") = ""
Application.EnableEvents = True
End Sub

A+

Cliquez pour agrandir...

chinel à dit:

cela ne fonctionne pas non plus

Cliquez pour agrandir...

M12 à dit:

Et si tu plaçais ton fichier sans données confidentielles

Cliquez pour agrandir...

Deadpool_CC à dit:

Bonjour,

Alors comment dire que tu ne peut pas avoir 2 fonction avec le même nom ... regourpe ton code
Regarde la pièce jointe 1158862

Cliquez pour agrandir...

chinel à dit:

pas de soucis (rien de confidentielle)

Cliquez pour agrandir...

M12 à dit:

Re,
Normal tu places deux fois l'instruction CHANGE

place un des deux codes fournis à la suite de ton premier Change

Cliquez pour agrandir...

chinel à dit:

Comme ça ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B,G:G]) Is Nothing Then Exit Sub
Application.EnableEvents = False 'désactive les évènements
If Target.Count > 1 Then Application.Undo: GoTo 1 'annule les entrées ou effacements multiples
If Target = "" Or (Application.CountIf([B:B], Target) + Application.CountIf([G:G], Target)) = 1 Then GoTo 1
Target.Select
MsgBox "Cette personne est déjà dans le planning !", 48, "Doublon"
Target = ""
1 Application.EnableEvents = True 'réactive les évènements
Application.EnableEvents = False
If Range("A9") = "à l'arrêt" Then Range("B8,B10:B15") = ""
Application.EnableEvents = True
End Sub

Cliquez pour agrandir...

job75 à dit:

Donc il faut une seule macro Worksheet_Change :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A9,B:B,G:G]) Is Nothing Then Exit Sub
Application.EnableEvents = False 'désactive les évènements
If Range("A9") = "à l'arrêt" Then Range("B8,B10:B15") = "": GoTo 1
If Target.Count > 1 Then Application.Undo: GoTo 1 'annule les entrées ou effacements multiples
If Target = "" Or (Application.CountIf([B:B], Target) + Application.CountIf([G:G], Target)) = 1 Then GoTo 1
Target.Select
MsgBox "Cette personne est déjà dans le planning !", 48, "Doublon"
Target = ""
1 Application.EnableEvents = True 'réactive les évènements
End Sub

Cliquez pour agrandir...