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

soenda

XLDnaute Accro

• 30 Août 2009

• #2

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 ?

Cliquez pour agrandir...

Je crois que tu devrais poster le fichier.

A plus

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 30 Août 2009

• #3

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

Bonsoir à vous,

peut-être en mettant dans ThisWorkbook

Code:

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

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

A+

 

Vote positif 0 Vote négatif

A

azerty6767

Guest

• 31 Août 2009

• #4

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Septembre 2009

• #5

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 :

Code:

Public Flag As Boolean

Ensuite à la fermeture :

Code:

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

Et dans la macro Change :

Code:

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

A+

 

Vote positif 0 Vote négatif

A

azerty6767

Guest

• 1 Septembre 2009

• #6

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Septembre 2009

• #7

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+

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 1 Septembre 2009

• #8

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+

 

Vote positif 0 Vote négatif

A

azerty6767

Guest

• 2 Septembre 2009

• #9

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

job75 à dit:

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+

Cliquez pour agrandir...

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...

 

Dernière modification par un modérateur: 2 Septembre 2009

Vote positif 0 Vote négatif