Bonjour les Amis
Attention, je n'ai même pas essayé de comprendre ce que Fab veut calculer... Mais juste pour automatiser la "Dés-automisation" de calcul d'Excel...
Une solution par Macro consiste à mettre Excel en Mode de calcul manuel...
===>
Voir ce Fil où Cyb-Cd à l'air content
Le principe est de faire çà :
Private Sub Workbook_Open()
Application.Calculation = xlManual
End Sub
Entre temps dans chaque macro où il y a besoin de calcul on met l'instruction "Calculate" à la fin : Exemple :
Private Sub CommandButton1_Click()
For i = 4 To 19
For j = 2 To 10
Worksheets("résultats").Cells(i + 1, j).Value = Worksheets("saisie").Cells(i, j).Value
Next j
Next i
Calculate '<============= Comme çà !
End Sub
NB pour Fab (et pour les Belges, merci Celeda !! lol) le code de boucle au-dessus est là comme exemple, c'est juste "Calculate qui est important, INUTILE de copier cette macro !! lol !!!
(Calculate correspond à faire F9)
Par contre il ne faut pas oublier de remettre XL en mode auto à la sortie comme çà :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Calculation = xlAutomatic
End Sub
Voilà si celà peut convenir dans ce cas particulier... Pour cette formule je n'en sais strictement rien ...
Bonne Journée
Youpiiiiii => "T. G. F. "
@+Thierry
