Erreur Macro "objet"

  • Initiateur de la discussion Initiateur de la discussion Mat1987
  • 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 !

Mat1987

XLDnaute Nouveau
Bonjour

Ma macro a un probleme voici la VBA

Public MaCell As Date
Sub macro1()
Sheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date "). _
CurrentPage = " & MaCell & "
End Sub


Est sur la feuilles

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("A1")) Is Nothing) Then
Call macro1
End If
End Sub

un fichier joint pouver vous le modifier est me le renvoyer avec la macro modifier je vous en remercie.
 

Pièces jointes

Re : Erreur Macro "objet"

Bonjour,
troisième fil pour le même problème, le mieux est de rester sur le même...😉
- Ici, et un lien sur cette feuille pour le premier fil...
Si tu n'arrives pas à retrouver tes post, clique sur ton nom, et sélectionne "Trouver plus de messages par Mat1987"

Fais un clic droit sur le nom de l'onglet où tu modifies ta date, Visualiser le code
Copie ce code (tu avais oublié de définir la valeur de MaCell)

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not (Intersect(Target, Range("A1")) Is Nothing) Then
        MaCell = Target
        Call macro1
    End If
End Sub

Et ensuite, dans la macro, il faut bien intégrer la variable MaCell (2 apostrophes de part et d'autre)

Code:
Sub macro1()
Sheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date "). _
CurrentPage = [COLOR="Red"]"" & MaCell & ""[/COLOR]
End Sub
 
Re : Erreur Macro "objet"

Re-,
Ah bon?
Chez moi, elle fonctionne parfaitement....(sinon, je ne l'aurai pas envoyé) 😉
A quel niveau, le bug?

elle ne fonctionne pas

ne nous sert pas beaucoup....

As-tu utilisé l'enregistreur de macro, puis fait ton filtre, et regardé le nom exact des champs, et du tableau croisé dynamique?
 
- 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

Réponses
0
Affichages
518
Réponses
2
Affichages
361
  • Question Question
Microsoft 365 modifier un code
Réponses
1
Affichages
425
Retour