declencher une macro

L

léa

Guest

• 17 Février 2005

• #2

Bonjour Roland,

Déjà il y a un problème : tu 'ouvres' 3 IF et tu n'en "ferme" qu'1
Corrige déjà cela

Léa

 

Vote positif 0 Vote négatif

R

Roland

Guest

• 17 Février 2005

• #3

Salut léa,

Je ne crois pas que le problème vienne de là parce que cette meme formule avec une cellule quelconque en "déclencheur" fonctionne corrèctement.
??? que faire???

qu'en penses tu?

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 17 Février 2005

• #4

Bonjour

En effet Roland a raison le problème ne vient pas de là car tous les If sont clos (Lorsquon ecrit le code sur la même ligne que le then pas besoin de End If)

Par contre je ne sais pas comment s'enclenche un évènement sur TCD; je pense qu'il faut peut-être vérifié de ce coté là

Bonne journée

Pascal

 

Vote positif 0 Vote négatif

R

Roland

Guest

• 17 Février 2005

• #5

Je vous joint un exemple peut être que ça vous aidera à comprendre mieux le prob
Je vous remercie de passer du temps sur nos problèmes.

A+
Roland

 

Pièces jointes

• A.zip

  21 KB · Affichages: 57
• A.zip

  21 KB · Affichages: 56
• A.zip

  21 KB · Affichages: 57

Vote positif 0 Vote négatif

L

léa

Guest

• 17 Février 2005

• #6

Bonjour Pascal

On en apprend tous les jours
Moi, qui m'évertue à ouvrir et fermer correctement chaque boucle "IF"
Est-ce cela fonctionne pour les autres types de boucles ? (With, For )

Cordialement
Léa

 

Vote positif 0 Vote négatif

S

sousou

Guest

• 18 Février 2005

• #7

Bonjour léa roland ...


Procède de cette manière.
Utilise l'évènement calculate lui sera généré par ton TCD
Ensuite ce n'est pas la ellule qu'il faut tester, mais le contenu de ton TCD

ou, l'objet pivottables.....

Private Sub Worksheet_Calculate()
res = Val(Sheets(1).PivotTables(1).PivotFields(4).DataRange)
If res = 1975 Then Macro1
If res = 1979 Then Macro2
End Sub

 

Vote positif 0 Vote négatif