Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Plusieurs macros évenementielles dans même feuille

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion JANO
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

JANO

XLDnaute Occasionnel
Bonsoir le forum,


lorsque j'en laisse une seul cela fonctionne, mais quand je mets les deux autre cela bug.
pouvez vous m'aider à condolider ces trois macros.
merci 😱



Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = 0
If Target.Address(0, 0) = "B3" Then
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Societe"). _
CurrentPage = Range("B3").Value
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Societe"). _
CurrentPage = Range("B3").Value
Range("B3").Select
ActiveWorkbook.RefreshAll
End If


End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B4" Then
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Type"). _
CurrentPage = Range("B4").Value
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Type"). _
CurrentPage = Range("B4").Value
Range("B4").Select
ActiveWorkbook.RefreshAll
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B5" Then
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Date"). _
CurrentPage = Range("B5").Value
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Date"). _
CurrentPage = Range("B5").Value
Range("B5").Select
ActiveWorkbook.RefreshAll
End If
End Sub
 
Dernière édition:
Trier par date Trier par votes
Re : Plusieurs macros évenementielles dans même feuille

Bonjour à tous,

Peut-être comme ci :

VB: 
Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)


    Application.ScreenUpdating = 0
    If Target.Address(0, 0) = "B3" Then
        ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Lib.Societe"). _
                CurrentPage = Range("B3").Value
        ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Lib.Societe"). _
                CurrentPage = Range("B3").Value
        Range("B3").Select
    End If


    If Target.Address(0, 0) = "B4" Then
        ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Type"). _
                CurrentPage = Range("B4").Value
        ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Type"). _
                CurrentPage = Range("B4").Value
        Range("B4").Select
    End If


    If Target.Address(0, 0) = "B5" Then
        ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Date"). _
                CurrentPage = Range("B5").Value
        ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Date"). _
                CurrentPage = Range("B5").Value
        Range("B5").Select
    End If
 ActiveWorkbook.RefreshAll
End Sub

A+ à tous
 
Vote positif 0 Vote négatif
Re : Plusieurs macros évenementielles dans même feuille

merci JCGL, de ton aide, mais cela tourne dans le vide. comme quand je l'ai mets les une après les autres.
j'ai mis fin à la macro et mon ecran excel est tout noir
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Plusieurs macros évenementielles dans même feuille

j'ai joint le fichier,

en orange les listes qui commandent les fitres de rapport du TCD 1 et TCD 2.

merci de votre aide et bonne nuit

ATTENTION la macro tourne et ne s'arrete plus qu'avec Echap
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Plusieurs macros évenementielles dans même feuille

bonjour le forum,

Comme la macro évenementielle ne fonctionne pas.
d'après vous c'est possible de la transformer en macro "classique" que j'activerai via un bouton.

merci de votre aide




Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)


Application.ScreenUpdating = 0
If Target.Address(0, 0) = "B3" Then
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Societe"). _
CurrentPage = Range("B3").Value
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Societe"). _
CurrentPage = Range("B3").Value
Range("B3").Select
End If


If Target.Address(0, 0) = "B4" Then
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Type"). _
CurrentPage = Range("B4").Value
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Type"). _
CurrentPage = Range("B4").Value
Range("B4").Select
End If


If Target.Address(0, 0) = "B5" Then
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date"). _
CurrentPage = Range("B5").Value
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Date"). _
CurrentPage = Range("B5").Value
Range("B5").Select
End If
ActiveWorkbook.RefreshAll
End Sub
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Plusieurs macros évenementielles dans même feuille

Bonjour
Bise à GCJL 🙂🙂(cela faisait longtemps !)

Tu as 2010 donc pourquoi ne pas tout simplement jouer avec des segments ?

Ci-joint un classeur avec 3 segments synchronisant les 2 TCD et montrant en plus que certaines combinatoires n'existent pas.

J'ai néanmoins laissé la macro (devenu inutile) mais corrigée. Tu pourras la supprimer si tu gardes les segments plutôt que tes listes qui risquent de planter sur les dates.
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
235
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
141
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
285
un internaute
U
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
356
thunder23
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
138
patricktoulon
J
  • Question Question
Microsoft 365 Worksheet_Change ou Worksheet_Calculate
Réponses
9
Affichages
278
job75
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
572
CortoXls
C
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
231
kiki29
C
  • Résolu(e)
XL 2016 Double-Clic dans une cellule déclenche l'événement Worksheet_Change
Réponses
7
Affichages
158
TooFatBoy
F
  • Résolu(e)
Microsoft 365 Evènement worksheet_change
Réponses
2
Affichages
123
Francky79
F
G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
2 K
kiki29
A
  • Résolu(e)
Microsoft 365 plusieurs conditions dans "for each"
Réponses
3
Affichages
367
Dranreb
J
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
342
jalaba
J
U
  • Question Question
Autres [RÉSOLU] Peut-on faire une macro qui met une seule macro en commentaires puis le contraire!!!
2 3
Réponses
30
Affichages
929
un internaute
U
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
998
Dranreb
P
  • Résolu(e)
Microsoft 365 activer macro après collage
Réponses
6
Affichages
99
pat66
P
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
618
job75
A
  • Résolu(e)
XL 2010 Private Sub Worksheet_Change
Réponses
2
Affichages
294
Atlas85200
A
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
489
sylvanu
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
273
spike29
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…