Activer macro

Fermé

jesaispascomment-faire Messages postés 2 Date d'inscription mardi 23 juin 2020 Statut Membre Dernière intervention 7 juillet 2020 - Modifié le 23 juin 2020 à 15:44
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 - 23 juin 2020 à 15:56

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 :

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
Comment activer windows 10 - Guide
Macro word - Guide
Activer le pavé tactile - Guide
Macro logiciel - Télécharger - Organisation
Comment activer chromecast sur tv - Guide

2 réponses

Réponse 1 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
23 juin 2020 à 15:55

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

Réponse 2 / 2

Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 396
23 juin 2020 à 15:56

Bonjour
et comme ça, ça ne fonctionne pas?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then
Call FiltreFournisseur
End If
If Not Intersect(Target, Range("B2")) Is Nothing Then
Call XXXXXXXX
End If
End Sub
crdlmnt

Discussions similaires

Fortnite-A2F ne s'active pas sur mon compte PS4

Je n' arrive pas a activer la saisie vocale

Discussions similaires

Newsletters