Bonjour,
Je ne suis pas développeur et il me manque donc pas mal de bases sur le VBA et je vous prie de m'en excuser par avance. Mon soucis est le suivant :
Sur ma feuille (Feuil 1), je voudrais appeler à chaque modification d'une cellule une Sub (maMacro) que j'ai définie dans ThisWorkbook.
Mon code est le suivant :
Sub Worksheet_Change(ByVal Target As Range)
Call maMacro
End Sub
J'obtiens le message Sub ou Fonction non définie.
Dans ThisWorkbook ma macro est définie comme cela :
Sub DixNeuf()
Range("MyTab").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Crit19"), CopyToRange:=Range("PreList19"), Unique:=False
Range("MyTab").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Crit19B"), CopyToRange:=Range("List19"), Unique:=False
End Sub
si quelqu'un peut m'aider, ce serait super
Je ne suis pas développeur et il me manque donc pas mal de bases sur le VBA et je vous prie de m'en excuser par avance. Mon soucis est le suivant :
Sur ma feuille (Feuil 1), je voudrais appeler à chaque modification d'une cellule une Sub (maMacro) que j'ai définie dans ThisWorkbook.
Mon code est le suivant :
Sub Worksheet_Change(ByVal Target As Range)
Call maMacro
End Sub
J'obtiens le message Sub ou Fonction non définie.
Dans ThisWorkbook ma macro est définie comme cela :
Sub DixNeuf()
Range("MyTab").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Crit19"), CopyToRange:=Range("PreList19"), Unique:=False
Range("MyTab").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Crit19B"), CopyToRange:=Range("List19"), Unique:=False
End Sub
si quelqu'un peut m'aider, ce serait super