problème macro excel 97

[onyx41]

Bonjour à tous par cette belle journée.

Voilà, j'ai trouvé sur ce forum une macro de recherche qui fonctionne parfaitement sous excel 2003, mais qui ne veut pas sur excel 1997 ( c'est pour mon boulot et on est loin, d'être au dernier cri..).

voilà l'endroit où ça bug :

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If frmMoteurDeRecherche.lstCritere.ListCount > 0 Then

Merci pour votre aide

 

[job75]

Re : problème macro excel 97

Bonjour,
Essayez plutôt :
Application.Calculation = xlManual
Sinon dans Excel 97 utilisez l'enregistreur de macro pour voir ce que donne le calcul sur ordre.
A+

 

[ballmaster]

Re : problème macro excel 97

Bonjour,

Tu peux essayer ceci :


Sub CalcSettingTest()
Dim CalcSetting As Integer

With Application
CalcSetting = .Calculation
MsgBox CalcSetting

.Calculation = xlCalculationManual
MsgBox .Calculation

.Calculation = CalcSetting
MsgBox CalcSetting

End With
End Sub


Cela te donnera les codes de tes settings sous xls97. (moi -4105 -4135 -4105 sous excel 2002).

 

[onyx41]

Re : problème macro excel 97

Merci Job 75 mais ça ne fonctionne pas.
ballmaster, je ne connais pas ssez pour savoir où placer ton code, pourrais-tu m'expliquer, je joins le fichier avec

 

[job75]

Re : problème macro excel 97

Quel code vous donne l'enregistreur de macro (Outils/Options/Calcul/Sur ordre) ?
A+

 

[onyx41]

Re : problème macro excel 97

à chaque fois que je le fais, ça ne donne rien, aucun résultat.. mauvaise manip ou normal ?

 

[job75]

Re : problème macro excel 97

Pas normal...! Utilisez un nouveau classeur et faites Outils-Macro-Nouvelle macro-OK puis la manip Outils-Options-Calcul-Sur ordre-OK-Arrêter l'enregistrement. Puis allez voir le code du module 1 dans VBA. Si nécessaire recommencez la manip en mettant sur Automatique, puis recommencez avec Sur ordre.
A+

 

[Eric 45]

Re : problème macro excel 97

Bonjour à tous

Juste pour faire avancer, cela donne :

Application.Calculation = xlManual

Eric

 

[onyx41]

Re : problème macro excel 97

ça me donne ça :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 11/06/2008 par erdr
'

'
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
Calculate
End Sub

 

[job75]

Re : problème macro excel 97

Bon, c'est la même chose sur Excel 2003. Je ne vois pas pourquoi votre ligne de code ne passe pas. Désolé et A+

 

[onyx41]

Re : problème macro excel 97

Si quelqu'un a une autre idée, je suis preneur...

Merci d'avance à ceux qui veulent bien jeter un coup d'oeil...

 

[onyx41]

Re : problème macro excel 97

personne n'aurait une petite idé à mon problème ???? 😕

 

[myDearFriend!]

Re : problème macro excel 97

Bonsoir onyx41, job75, ballmaster, Eric 45, le Forum,

Ton problème n'est pas lié à cette constante xlCalculationManual.

Pour régler ce blocage, il convient simplement de mettre la propriété TakeFocusOnClick de ton bouton "Lancer la démonstration" sur 'False'. Il s'agit là d'un vieux bug de XL97 lié aux boutons ActiveX qui, placés sur une feuille de calcul, gardent le focus et empêchent cette version d'Excel de déclencher certains traitements corrects sur feuille.

Par ailleurs, une fois ce problème réglé, tu rencontreras également une autre erreur sur la ligne de code suivante (dans la procédure cmbColonne_Click):

[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DU USERFORM[/I][/B][/COLOR]

Worksheets(frmMoteurDeRecherche.cmbFeuille.Text).Range(Worksheets(frmMoteurDeRecherche.cmbFeuille.Text).Cells(8, 1), Worksheets(frmMoteurDeRecherche.cmbFeuille.Text).Cells(Worksheets(frmMoteurDeRecherche.cmbFeuille.Text).Range("A65536").[COLOR=NAVY]End[/COLOR](xlUp).Row, Worksheets(frmMoteurDeRecherche.cmbFeuille.Text).Range("A8").[COLOR=NAVY]End[/COLOR](xlToRight).Column)).Sort Key1:=Cells(9, frmMoteurDeRecherche.cmbColonne.ListIndex + 1), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=[COLOR=NAVY]False[/COLOR], Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal

L'argument DataOption1 est apparu avec la version XL2000 je crois. Il convient donc de supprimer cet argument (que tu n'utilises visiblement pas) dans cette ligne de code :

Worksheets(frmMoteurDeRecherche.cmbFeuille.Text).Range(Worksheets(frmMoteurDeRecherche.cmbFeuille.Text).Cells(8, 1), Worksheets(frmMoteurDeRecherche.cmbFeuille.Text).Cells(Worksheets(frmMoteurDeRecherche.cmbFeuille.Text).Range("A65536").[COLOR=NAVY]End[/COLOR](xlUp).Row, Worksheets(frmMoteurDeRecherche.cmbFeuille.Text).Range("A8").[COLOR=NAVY]End[/COLOR](xlToRight).Column)).Sort Key1:=Cells(9, frmMoteurDeRecherche.cmbColonne.ListIndex + 1), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=[COLOR=NAVY]False[/COLOR], Orientation:=xlTopToBottom

En espérant t'avoir dépanné.

Cordialement,

 

[skoobi]

Re : problème macro excel 97

Bonsoir le fil,

L'argument DataOption1 est apparu avec la version XL2000 je crois

Menfin Didier...., l'argument est apparu avec excel 2003 😀 😉 (je taquine bien sur)
Bonne soirée 🙂.

 

[myDearFriend!]

Re : problème macro excel 97

Bonsoir Skooby,

Arf !
on a perdu tous les 2 😛

Je viens de vérifier, c'est apparu avec la version 2002 (XP) 😀

Bonne soirée.