Bonjour a tous, je cherche a créer une macro événementielle,
-->
Sub Worksheet_Change(ByVal Target As Range)
Dim MaCellule$
MaCellule = ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=False)
On Error GoTo Sortie
If Intersect(Range("CodeSélection"), Target) Is Nothing Then GoTo Sortie
Call AppliquerFiltre
Sortie:
Application.Goto Reference:=Range("A1"), Scroll:=True
End Sub
qui réagit sur les changement de la cellule liée [CodeSélection] à une liste déroulante.
Malheureusement ça ne fonctionne pas étant donné (je suppose ) que ce n'est pas moi qui change la valeur de la cellule liée à la liste...
- Est-ce que quelqu'un pourrait me mettre sur la piste d'une solution ?
Je vous remercie d'avance pour votre aide,
Emile
-->
Sub Worksheet_Change(ByVal Target As Range)
Dim MaCellule$
MaCellule = ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=False)
On Error GoTo Sortie
If Intersect(Range("CodeSélection"), Target) Is Nothing Then GoTo Sortie
Call AppliquerFiltre
Sortie:
Application.Goto Reference:=Range("A1"), Scroll:=True
End Sub
qui réagit sur les changement de la cellule liée [CodeSélection] à une liste déroulante.
Malheureusement ça ne fonctionne pas étant donné (je suppose ) que ce n'est pas moi qui change la valeur de la cellule liée à la liste...
- Est-ce que quelqu'un pourrait me mettre sur la piste d'une solution ?
Je vous remercie d'avance pour votre aide,
Emile