Discussion :

[nicola40]

Bonjour à tous,

je bute sur un pb persistant.

L'exécution d'un code vba ne correspond pas à mes attentes, et je "donne ma langue au chat" ....

Inévitablement, je dois faire une erreur de logique, mais ou ?

Ci-joint petit fichier écrit pour simuler le pb.

Merci d'avance pour votre aide.

[zandru]

Bonjour et bienvenu sur le forum,

Nous sommes beaucoup ici à ne jamais télécharger les pièces jointes (il est plus simple et plus clair de discuter sur des bouts de code insérés dans les discussion).

Peux-tu nous décrire ton problème et nous donner le code qui te pose problème directement dans ton message?

[nicola40]

Bonjour et bienvenu sur le forum,

Nous sommes beaucoup ici à ne jamais télécharger les pièces jointes (il est plus simple et plus clair de discuter sur des bouts de code insérés dans les discussion).

Peux-tu nous décrire ton problème et nous donner le code qui te pose problème directement dans ton message?

Merci de ta réponse, je vais tenter de décrire mon pb sans fichier ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Macro4()
 
Application.EnableEvents = True
  Sheets("Of ouverts").Select
  ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
MsgBox (Application.EnableEvents)
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function semaine_num(ddate)
Dim x, y
x = Int((ddate - 2) / 7) + 0.6
y = 52 + 5 / 28
x = Int(x - y * Int(x / y)) + 1
If Month(ddate) = 12 And x = 1 Then x = 53
semaine_num = x
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Sheets("Of ouverts").Select
    Range("e13:M900").Select
    Selection.Clear
    Application.EnableEvents = True
End Sub

Ces procédures / fonctions sont représentatives de mmon pb.

Je lance macro4, qui recalcule un tcd, qui modifie donc des valeurs dans la feuille of ouverts, et qui active donc worksheet_change.

Mon pb est que cette dernière procédure ne s'éxecute pas totalement. Lorsque l'instruction selection.clear s'éxecute, la fonction semaine_num est appelée directement sur y=52... et l'éxecution se stoppe --> on ne revient pas dans worksheetchange --> application.enanbleEvents ne revient pas à true, et le pg est bloqué.

Je ne comprends pas pourquoi la fonction semaine est appelée à ce niveau, et pourquoi la sortie des enchainements se fait incorrctement.



Merci de vos avis et bonne fin de soirée

[zandru]

Bonjour,

merci pour ces précisions,

Où est appelé ta fonction "semaine_num(ddate)" ?

Ce que je suppose c'est que une action faite dans "Private Sub Worksheet_Change(ByVal Target As Range)" crée un événement qui lui appelle ta fonction.

Pour visualiser ton problème, il faut faire executer ton code en mode pas-à-pas.
crée un point d'arrêt (F9) sur un de tes premières lignes de Private Sub Worksheet_Change(ByVal Target As Range)" puis regarde ce que VBA fait avec des appuis successifs sur F8.

PS: n'oubli pas les balises code

[nicola40]

C'est bien ce que j'ai fait, et la fonction est appelé lorsque l'instruction select.clear est éxécutée.

Bizarre .....

[nicola40]

Par contre, j'ai une zone avec la fonction aujourdhui qui me semble poser pb.
L'idée était de faire les calculs avec la date du jour, mais il semble qu'elle contiene aussi l'heure. Cela crée peut-être des mises à jour permanentes.

Si je fais un copier coller valeurs sur cette zone, je n'aai plus de pb.

A cogiter

[pgz]

Bonsoir.

Après un coup d'oeil rapide, je me demande si ce n'est pas plutôt le rafraîchissement du cache qui provoque un calcul de la feuil1.

Cordialement,

PGZ