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
