Actualisation désactiver des formules excel

[Engue]

Bonjour,

J'ai une macro qui boucle sur une colonne B et qui me recopie les données de B dans A. Or les données de B dépendent des données de A, donc à chaque itération les données initiales de B sont dénaturées.

Je pourrais copier B dans C qui ne dépendrait pas de A puis recopier C dans A ou jouer avec des tableaux.

Cependant les boucles sont sur quelques dizaines de milliers de données, et sont relativement longues, boucler trois fois m'embêterait.

Est-il possible de désactiver l'actualisation des formules excel en début de macro puis la réactiver en fin de macro ?

Merci d'avance!

 

[bika]

Re : Actualisation désactiver des formules excel

Bonjour

Peux-tu donner un fichier exemple stp? ça serait plus parlant...

 

[Gelinotte]

Re : Actualisation désactiver des formules excel

Bonjour,

Tu peux essayer.

Application.Calculation = xlManual

Le remettre automatique.

Application.Calculation = xlAutomatic


G

 

[Victor21]

Re : Actualisation désactiver des formules excel

Bonjour, Engue.

Peut-être en début :

Application.Calculation = xlCalculationManual

et en fin :

Application.Calculation =xlCalculationAutomatic

Edit : Bonsoir, Gelinotte

 

[Engue]

Re : Actualisation désactiver des formules excel

Voilà le fichier type! Ça m'avait l'air très explicite pourtant! Je ne pensais pas avoir besoin d'en faire un. Merci pour ton aide.

 

[Engue]

Re : Actualisation désactiver des formules excel

et voilà la macro à mettre dedans

Sub actttt()
    r = 5
    While Feuil1.Cells(r, 1) <> Empty
        r = r + 1
    Wend
    For k = 5 To r - 1
        Feuil1.Cells(k, 8) = Feuil1.Cells(k, 10)
    Next k
end sub

 

[Engue]

Re : Actualisation désactiver des formules excel

prblème réglé, merci à tous, et plus particulièrement à victor

 

[Gelinotte]

Re : Actualisation désactiver des formules excel

Bonsoir,

Sub actttt()
     
     r = 5
     While Feuil1.Cells(r, 1) <> Empty
         r = r + 1
     Wend
     For k = 5 To r - 1
         Feuil1.Cells(k, 8) = CDbl(Feuil1.Cells(k, 10))
     Next k
 
 End Sub

En ajoutant CDbl devant Feuil1.Cells(k, 10) , donne le même résultat qu'arrêter le calcul automatique et le remettre à la fin.

Le fichier exemple a donc été utile

Testé sous Excel 2010

G

 

[Engue]

Re : Actualisation désactiver des formules excel

Pas pour moi, je ne vois pas pourquoi le fait de convertir un double en double annulerait le calcul automatique. En plus c'est beaucoup d'opérations de transformation de double à double...35k... ça se ressent du point de vue complex/temps.

 

[Gelinotte]

Re : Actualisation désactiver des formules excel

Bonsoir,

Je n'ai donc rien compris à ta demande.

Désolé de la confusion.

G

 

[Engue]

Re : Actualisation désactiver des formules excel

Bonsoir,
Ta première réponse était bonne!
Ça a résolu mon pb, encore merci!
E-