Bonjour,
 
J'ai un problème pour lequel je ne trouves pas de solution...
 
Voici la description et ce que je souhaites faire avec la Macro dans Excel 2013 :
 
Dans mon chiffrier, 3 colonnes se nommant "Discipline" "Activité" "Item".
 
- Sur changement (par ligne) de "Discipline", je souhaite effacer le contenu/sélection (listes déroulantes) de "Activité" et "Item" [les 2 cellules suivantes]
- Sur changement (par ligne) de "Activité", je souhaite effacer le contenu/sélection (listes déroulantes) de "Item"  [la cellule suivante]
 
Voici le code qui fonctionne : (sur changement de la valeur en "F" = "Discipline".
 
****************************************************************
Private Sub Worksheet_Change(ByVal Target As Range)
     
    Dim KeyCellsF As Range
 
    Set KeyCellsF = Range("F11:F10000" )
     
    If Not Application.Intersect(KeyCellsF, Range(Target.Address)) _
           Is Nothing Then
 
       ActiveCell.Offset(0, 1).ClearContents
       ActiveCell.Offset(0, 2).ClearContents
     
    End If
     
End Sub
****************************************************************
 
Voici ce qui ne fonctionne pas :
 
****************************************************************
Private Sub Worksheet_Change(ByVal Target As Range)
     
    Dim KeyCellsF As Range
    Dim KeyCellsG As Range
 
    Set KeyCellsF = Range("F11:F10000" )
    Set KeyCellsG = Range("G11:G10000" )
     
    If Not Application.Intersect(KeyCellsF, Range(Target.Address)) _
           Is Nothing Then
 
       ActiveCell.Offset(0, 1).ClearContents
       ActiveCell.Offset(0, 2).ClearContents
     
    End If
 
    If Not Application.Intersect(KeyCellsG, Range(Target.Address)) _
           Is Nothing Then
 
       ActiveCell.Offset(0, 1).ClearContents
     
    End If
     
End Sub
****************************************************************
 
Quelqu'un d'entrevous à une solution?
 
Merci
 

Bonjour,
 
Ne pas confondre ActiveCell et Target !
 
Cdlt
Patrice