Pb à la fermeture d'un Workbook : conflit entre Sub et fonction volatile INDEX

[azerty6767]

Bonjour,


J'ai fait une "Private Sub" du type "Target change" où, lorsque certains champs d'une Worksheet sont modifiés, il y a une action Enabled=True ou False sur des ComboBox selon la valeur des champs Target.
Cette Sub "Target change" est faite sur une boucle "for i=1 to 100".


Or lorsque je ferme le fichier, Excel détecte systématiquement qu'une modif a été faite : c'est parce qu'il y a une fonction volatile, type INDEX().

Et surtout, Excel relance systématiquement la private sub "target change", en bouclant de i=1 à 100.


Est-ce que quelqu'un pourrait m'indiquer ce qu'il faut faire pour que la Private Sub "target change" ne se lance pas à la fermeture du fichier ?

Peut-être n'ai-je pas été assez clair ?


D'avance merci pour votre aide,


Olivier

 

[soenda]

Re : Pb à la fermeture d'un Workbook : conflit entre Sub et fonction volatile INDEX

Bonjour le fil, Olivier

Peut-être n'ai-je pas été assez clair ?

Je crois que tu devrais poster le fichier.

A plus

 

[Compte Supprimé 979]

Re : Pb à la fermeture d'un Workbook : conflit entre Sub et fonction volatile INDEX

Bonsoir à vous,

peut-être en mettant dans ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.EnableEvents = False
End Sub

Mais il faudra fermer Excel pour ré-activer les évènements 😱

A+

 

[azerty6767]

Re : Pb à la fermeture d'un Workbook : conflit entre Sub et fonction volatile INDEX

Merci pour la 2ème réponse.

Effectivement, c'est une solution, mais elle ne me satisfait pas à 100%, puisque, comme écrit ci-dessus, on est obligé de fermer totalement Excel pour pouvoir redémarrer en "True"...

N'y a-t-il pas une autre solution ?...

D'avance merci,



Olivier

 

[job75]

Re : Pb à la fermeture d'un Workbook : conflit entre Sub et fonction volatile INDEX

Bonsoir azerty6767, salut soenda et Bruno 🙂

Peut-être en déclarant Public la variable Flag en haut d'un Module :

Public Flag As Boolean

Ensuite à la fermeture :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Flag = True
End Sub

Et dans la macro Change :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Flag Then
  'le reste du code
End If
Flag = False
End Sub

A+

 

[azerty6767]

Re : Pb à la fermeture d'un Workbook : conflit entre Sub et fonction volatile INDEX

BOnjour,

Merci pour cette 2ème réponse.

J'ai testé mais le problème persiste. D'ailleurs un collègue de travail m'avait proposé cette même 2ème solution : cela ne fonctionne pas ...!

Sinon une piste serait de remplacer toutes les fonctions INDEX ? Par RECHERCHEV par exemple ?....

Quelqu'un peut me conseiller ?


Merci d'avance,


Olivier

 

[job75]

Re : Pb à la fermeture d'un Workbook : conflit entre Sub et fonction volatile INDEX

Bonsoir le fil,

Olivier, la fonction INDEX n'est pas volatile il me semble...

Par contre les fonctions DECALER et INDIRECT le sont.

Comme, bien sûr, MAINTENANT, AUJOURDHUI.

A+

 

[Compte Supprimé 979]

Re : Pb à la fermeture d'un Workbook : conflit entre Sub et fonction volatile INDEX

Salut Job75, azerty6767

N'est-il pas possible d'avoir ton fichier pour voir cela de plus près ?

A+

 

[azerty6767]

Re : Pb à la fermeture d'un Workbook : conflit entre Sub et fonction volatile INDEX

Bonsoir le fil,

Olivier, la fonction INDEX n'est pas volatile il me semble...

Par contre les fonctions DECALER et INDIRECT le sont.

Comme, bien sûr, MAINTENANT, AUJOURDHUI.

A+

Job75, je crois, malheureusement, que INDEX est bien une fonction volatile.

Bref !


Sinon ci-dessous le code qui m'embête (placé dans la Feuille 3) :

----------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

With Sheets("Feuil3")

For i = 2 To 120

If .Target.Cells(1).Name.Name = .Range("filtre_pos_" & i) Then
If .Range("filtre_pos_" & i).Value = "F" Then
.OLEObjects("ComboBox" & i).Enabled = False
Else
.OLEObjects("ComboBox" & i).Enabled = True
End If

End If
Next

End With

End sub
---------------------------------------------


Merci d'avance...