[VBA] Message Référence circulaire

[TheLio]

Hello tous,
J'ai cherché comme il faut dans les archives, mais apparemment, cette question est insolvable et pourtant, insolvable n'est pas XLD
Alors voilà ce que je cherche à faire.
Contourner le message d'avertissement sur les références circulaires à l'ouverture.

Sub Workbook_Open()
    With Application
        .Iteration = True
        .MaxIterations = 1
        .MaxChange = 0.001
    End With
    ActiveWorkbook.PrecisionAsDisplayed = False
    Range("A2").Select
End Sub

Selon toutes vraisemblances, on ne peut que difficilement annuler le message, mais en voyant le cas d'un autre côté, pourrait-on forcer le click sur annuler et déclencher le bout de code ci-dessus?
Merci pour vos lumières
A++
Lionel

 

[gilbert_RGI]

Re : [VBA] Message Référence circulaire

Hello tous,
J'ai cherché comme il faut dans les archives, mais apparemment, cette question est insolvable et pourtant, insolvable n'est pas XLD
Alors voilà ce que je cherche à faire.
Contourner le message d'avertissement sur les références circulaires à l'ouverture.

Sub Workbook_Open()
    With Application
        .Iteration = True
        .MaxIterations = 1
        .MaxChange = 0.001
    End With
    ActiveWorkbook.PrecisionAsDisplayed = False
    Range("A2").Select
End Sub

Selon toutes vraisemblances, on ne peut que difficilement annuler le message, mais en voyant le cas d'un autre côté, pourrait-on forcer le click sur annuler et déclencher le bout de code ci-dessus?
Merci pour vos lumières
A++
Lionel

Bonjour

Avez vous essayé

Application.DisplayAlerts = False

Cdlt

RGI

 

[TheLio]

Re : [VBA] Message Référence circulaire

Hello,
Effectivement, le test a été fait et ne fontionnes pas
Merci qd même
A++

 

[kjin]

Re : [VBA] Message Référence circulaire

Bonjour,
Je ne comprends pas vraiment quel est ton soucis dans la mesure où ta macro fonctionne très bien chez moi, donc pas de message lors de la saisie d'une référence circulaire
A+
kjin

 

[TheLio]

Re : [VBA] Message Référence circulaire

Hello,
Le but est d'enlever le message d'avertissement à l'ouverture du classeur...
Merci
A++
Lionel

 

[Spitnolan08]

Re : [VBA] Message Référence circulaire

Bonjour TheLio, le fil

Pour éviter l'affichage de ton message à l'ouverture :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Application
        .Calculation = xlManual
        .MaxChange = 0.001
    End With
    ActiveWorkbook.PrecisionAsDisplayed = False
End Sub

Pour réactiver le calcul automatique

Private Sub Workbook_Open()
Application.Iteration = True
End Sub

Cela répond à la question...

Le but est d'enlever le message d'avertissement à l'ouverture du classeur...

pour la suite ?

Cordialement

 

[gilbert_RGI]

Re : [VBA] Message Référence circulaire

Hello,
Le but est d'enlever le message d'avertissement à l'ouverture du classeur...
Merci
A++
Lionel

oui j'avais compris

et avec on error goto ?

Cdlt

RGI

 

[kjin]

Re : [VBA] Message Référence circulaire

Re,
Je n'ai plus de message à l'ouverture, d'où ma réponse précédente.
Par contre des calculs très bizarroïdes.
A tout hasard --> excel2000
A+
kjin

 

[JCGL]

Re : [VBA] Message Référence circulaire

Bonjour à tous,

Tout comme Kjin, je n'ai pas de message d'avertissement à l'ouverture sous XL 2003 et avec ce code :

Option Explicit
Private Sub Workbook_Open()
 With Application
        .Iteration = True
        .MaxIterations = 1
        .MaxChange = 0.001
    End With
    ActiveWorkbook.PrecisionAsDisplayed = False
    Application.DisplayAlerts = False
 
End Sub

A+

 

[Spitnolan08]

Re : [VBA] Message Référence circulaire

Re tous,
Bonjour JCGL,

Effectivement, après un nouvel essai je rejoints le clan JCGL, Kjin...
Mais auparavant je conservais le message d'erreur... et ce n'est pas encore l'heure de l'apéro

Sinon, à défaut, la solution que je t'ai proposée fonctionne.

Cordialement

 

[TheLio]

Re : [VBA] Message Référence circulaire

Hello tous,
Merci de sacrifier un bout de l'apéro pour moi
Si je quitte mon tableur préféré
J'ai toujours mon message d'erreur à la réouverture du fichier...
Si je le ferme seulement... là, c'est OK
A++
/et santé)
Lionel

 

[JCGL]

Re : [VBA] Message Référence circulaire

Re,
Salut Spit ,

TheLio : peux-tu tester avec le fichier déposé ?

A+

 

[kjin]

Re : [VBA] Message Référence circulaire

re, bonjour à tous,
Testé après quittage et fermage, toujours pas de problème.
Difficile de reproduire le cas.
A+
kjin

 

[TheLio]

Re : [VBA] Message Référence circulaire

Voilà l'apéro passé,
Mainteneant on passe au dessert avec bout de fichier joint
A++
Merci

 

[kjin]

Re : [VBA] Message Référence circulaire

Re,
Ca va râler, mais pas de pb avec le fichier quelque soit le mode d'ouverture (Application.DisplayAlerts n'apporte rien de plus d'ailleurs)
J'ai décocher le calcul avec itération pour vérifier et là j'ai bien le message (formules colonne dates si je ne me trompe pas).
Je précise avec le menu par défaut d'excel2000, mais d'après JCGL, excel2003 pas de pb non plus.
A+
kjin