Activer macro
jesaispascomment-faire
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
Vaucluse Messages postés 26496 Date d'inscription Statut Contributeur Dernière intervention -
Vaucluse Messages postés 26496 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je suis en train de faire du VBA pour mon boulot et je crée plusieurs macro sur la même page.
Je cherche à activer une macro quand la cellule change de valeur, rien de compliquer pour trouver la réponse mais le problème c'est que j'ai besoin de le faire sur deux cellules qui n'activeront pas la même macro.
J'ai ma cellule A2 qui active une macro de filtre et ma cellule B2 qui doit activer une macro qui copie une feuille d'un classeur fermé.
Sur la cellule A2 j'ai déjà mis ceci :
Je voudrai la remettre pour l'autre cellule mais si je change Workshette_Change en un autre nom ça fonctionne pas et si la recopie en modifiant A2 par B2 et l'appel de la macro ça ne fonctionne pas non plus. Pouvez-vous m'aider svp.
Je suis en train de faire du VBA pour mon boulot et je crée plusieurs macro sur la même page.
Je cherche à activer une macro quand la cellule change de valeur, rien de compliquer pour trouver la réponse mais le problème c'est que j'ai besoin de le faire sur deux cellules qui n'activeront pas la même macro.
J'ai ma cellule A2 qui active une macro de filtre et ma cellule B2 qui doit activer une macro qui copie une feuille d'un classeur fermé.
Sur la cellule A2 j'ai déjà mis ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then
Call FiltreFournisseur
End If
End Sub
Je voudrai la remettre pour l'autre cellule mais si je change Workshette_Change en un autre nom ça fonctionne pas et si la recopie en modifiant A2 par B2 et l'appel de la macro ça ne fonctionne pas non plus. Pouvez-vous m'aider svp.
A voir également:
- Activer macro
- Activer chromecast - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Activer office gratuitement - Accueil - Bureautique
- Comment activer windows 10 - Guide
- Cle pour activer windows 10 gratuitement - Guide
2 réponses
Bonjour
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then: Call macro1
If Target.Address = "$B$2" Then: Call macro2
End If
