Recalcul avec VBA

[Archibald]

Bonjour,

J'ai un gros fichier excel avec beaucoup de calculs, en partie "classique" et en partie en VBA.
Lorsque je modifie certaines cellules, les calculs VBA se passent bien, mais seulement une partie des calculs "classiques" s'exécutent, ce qui fait que j'ai des résultats faux.
Question : comment déclencher un recalcul à la fin de l'exécution des macros ? Et si possible un recalcul "léger", car un recalcul global dure 10 à 15 secondes pour mon fichier.

Merci de votre aide.
Archibald

 

[gilbert_RGI]

Re : Recalcul avec VBA

Bonjour

est-ce que cela répond à votre problème ?

tous les classeurs ouverts Application.Calculate (ou simplement Calculate)
une feuille de calcul particulière Worksheets(1).Calculate
une plage déterminée Worksheets(1).Rows(2).Calculate

Salutations

RGI

 

[Archibald]

Re : Recalcul avec VBA

Merci pour votre réponse.
J'ai mis
Worksheets("nom de la feuille courante").Calculate
dans le test de saisie de la cellule incriminée :

If Not Intersect(Target, Range("F6")) Is Nothing Then
Range("E18") = Worksheets("Calculations").Range("H12")
Range("E44") = Worksheets("Calculations").Range("H13")
Range("E49") = Worksheets("Calculations").Range("H14")
Worksheets("nom de la feuille courante").Calculate
End If

J'ai aussi testé en mettant Worksheets("nom de la feuille courante").Calculate après le End if

Dans les deux cas, cela ne marche pas mieux, et le mot "Calculer" se met dans la barre d'état en bas d'excel.

Salutations

 

[gilbert_RGI]

Re : Recalcul avec VBA

Que se passe t il quand vous faites F9 ?

est-ce que le calcul s'éffectue ?

RGI

 

[Dan]

Re : Recalcul avec VBA

Bonjour,


Tes instructions de macro sont placées où dans VBA ?
Eventuellement, place le code en entier

A te relire

Dan

 

[Archibald]

Re : Recalcul avec VBA

Bonjour,

La touche F9 n'a aucun effet.

Voilà le code entier dans la feuille "Ethernet", sachant qu'il y a des calculs similaires dans d'autres feuilles. C'est quand on saisit qqchose en F6 que les calculs ne se font pas.
Par contre, tout est ok quand on saisit qqchose en D5, peut-être parce que cela fait appel au code du module 1.


Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("D5")) Is Nothing Then
'Si on a saisi qq chose en D5
Application.EnableEvents = False
Lister Range("D6")
Application.EnableEvents = True

End If

If Not Intersect(Target, Range("D56")) Is Nothing Then
'Si on a saisi qq chose en D56
Range("D44") = Worksheets("Calculations").Range("H3")
Range("D49") = Worksheets("Calculations").Range("H4")
Range("D55") = Worksheets("Calculations").Range("H5")
Range("D59") = Worksheets("Calculations").Range("H6")
Range("G6") = Worksheets("Calculations").Range("H7")
Range("E18") = Worksheets("Calculations").Range("H12")
Range("E44") = Worksheets("Calculations").Range("H13")
Range("E49") = Worksheets("Calculations").Range("H14")
End If

If Not Intersect(Target, Range("F6")) Is Nothing Then
'Si on a saisi qq chose en F6
Range("E18") = Worksheets("Calculations").Range("H12")
Range("E44") = Worksheets("Calculations").Range("H13")
Range("E49") = Worksheets("Calculations").Range("H14")

Worksheets("Ethernet").Calculate
End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Si cela peut aider, le code suivant se trouve dans le module 1 :

Sub Lister(Rg As Range)

Dim Ligne As Long
With Worksheets("Cities")
.Range("A1") = .Range("D3")
.Range("B:B").Clear
.Range("A2") = "*" & Worksheets(Rg.Parent.Name).Range("D5") & "*"
.Range("CITY_List").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("A1:A2"), CopyToRange:=.Range("B1"), _
Unique:=False
Ligne = .Range("B65536").End(xlUp).Row
If Ligne < 2 Then Ligne = 2
.Range("B2:B" & Ligne).Name = "MaListe"
End With
AjoutListeDeValidation Rg

End Sub

Sub AjoutListeDeValidation(Rg As Range)


With Worksheets(Rg.Parent.Name)
If Range("MaListe")(2, 1) <> "" Then
.Range("E6") = Range("MaListe").Rows.Count
Else
If Range("MaListe")(1, 1) <> "" Then
.Range("E6") = 1
Else
.Range("E6") = 0
End If
End If
.Range("D6") = ""
With .Range(Rg.Address).Validation
.Delete
.Add xlValidateList, , , "=MaListe"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End With
End Sub

Sub das()
Application.EnableEvents = True
End Sub

Merci de votre aide.

 

[gilbert_RGI]

Re : Recalcul avec VBA

RE

Au lieu du code pouvez vous mettre le fichier
enlevez les parties confidentielles s'il y en a

RGI

 

[Archibald]

Re : Recalcul avec VBA

Le fichier fait 23 Mo (6Mo zipé)... et il est confidentiel.

 

[drefbox]

Re : Recalcul avec VBA

Bonjour

est-ce que cela répond à votre problème ?

tous les classeurs ouverts Application.Calculate (ou simplement Calculate)
une feuille de calcul particulière Worksheets(1).Calculate
une plage déterminée Worksheets(1).Rows(2).Calculate

Salutations

RGI

MERCIII gilbert_RGI pour cette solution
Dans mon cas cela répond bien à mon problème, mais des problèmes il m'en reste encore pas mal,
Merci donc pour cette réponse et, un GRAND MERCI à tous les participants du forum