VBA : Macro pour actualiser des données automatiquement

Version imprimable

05/03/2015, 13h29
Devqnn

1 pièce(s) jointe(s)

VBA : Macro pour actualiser des données automatiquement
Bonjour à tous,

N'ayant pas trouvé ce que je voulais sur internet, je me tourne vers vous pour tenter de résoudre mon problème

Je travaille actuellement sur un fichier Excel, avec beaucoup de formules (environ 600.000 NB.SI.ENS).
Je passe via les options en mode de calcul "Manuel" afin que les formules ne se re-éxecute que sur demande de l'utilisateur.
Pour cela j'ai fait un premier bouton avec une macro VBA afin de re-éxecuter toutes les formules du fichier :

Code:

Application.CalculateFull

J'ai une feuille Excel qui sert de "Synthèse" ou de "Tableau de Bord", ou on retrouve toutes les informations importantes qui se situe dans les autres onglets.
Seul petit problème, j'ai mes graphiques qui ne s'actualise pas toujours avec les données :

Pièce jointe 170895

Cela doit être causé par le fait que mes formules sont en mode "Manuel", du moins je suppose.
Donc j'ai essaye de faire un bout de code VBA dans la feuille afin que les formules ce mettent à jour automatiquement uniquement pour certaines cellules :
Code:

1 2 3 4 5 6 Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("C26:F29")) Is Nothing Then Range("C26:F29").Calculate End If End Sub
Seulement ca ne fonctionne pas. Peut on définir une plage de cellule qui va se recalculer automatiquement avec un classeur en mode "Manuel" ?

J'espère que vous avez compris mon problème
Je ne peux vous joindre mon fichier par soucis de confidentialité

A très vite,
Dev

Bonjour Devqnn,

Ce petit code devrait faire ton bonheur ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
 
Dim c As Range
Dim plage As Range
 
Set plage = Sheets("feuil1").Range("C26:F29")
 
For Each c In plage
    c.Calculate
Next c
 
End Sub

Antony

05/03/2015, 14h18
Devqnn

Salut Anthony,

Ce code marche parfaitement, les données se mettent bien à jour automatiquement. Merci !

Petit soucis, les graphiques ne se mettent pas à jour, il reste encore avec les anciennes valeurs.

N'y a-t-il pas un moyen d'actualiser les données d'un graphique ? (Un peu comme un TcD, Clique Droit -> Actualiser)
Si possible en automatique, que l'utilisateur n'est pas a appuyer sur un bouton pour que le graphique s'actualise.

J'avais trouver un bout de code en naviguant un peu sur les forums d'aide VBA :

Code:

Select("Graphique 2").Calculate

Malheureusement ca ne marche pas, rien ne se passe
Si tu avais la réponse, ca me serait très utile

Merci d'avance
05/03/2015, 15h46
antonysansh

Je n'arrive pas simuler ton problème.

En faisant fonctionner la macro sur les données a recalculer qui sont sources d'un graph, mon Graph est bien modifier.

La source du graph et bien le range que tu mets a jours avec la macro ?

Antony
05/03/2015, 15h55
Devqnn

Je viens de comprendre mon erreur :

Les graphiques ne se mettaient pas à jour car ils étaient basés sur la même source de données (Manip Copier / Coller de graphique sans faire attention)

Je crois que tout est bon,
Merci à toi
05/03/2015, 15h55
antonysansh
Tu peux toujours tester ce code :
Code:

1 2 3 Sheets("ta feuille").select ActiveSheet.ChartObjects("nom de ton graph").Activate ActiveChart.SetSourceData Source:=Range("ta source")
avec les bons noms de Feuille, Graph et plage

Ça devrait forcer la maj du graph.

Antony

solution élégante

Bonjour,

Cela fait 3 jours que je galère comme vous jusqu'à ce que je retrouve dans mes vieux fichiers une manière élégante qui marchait parfaitement :

code à mettre dans la feuille où on change la valeur d'une cellule que l'on nomme "cell_val_seuil" :
il faudra adapter avec ce que tu as fait... le principal, est de mettre les 3 lignes contenant Application.Calculation
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Option Explicit Const nom_cell_valAs String = "cell_val" 'nommer ainsi la cellule Private Sub Worksheet_Change(ByVal Target As Range) 'réagi au changement de valeur de la cellule "cell_val" If Not Application.Calculation = xlCalculationManual Then Application.Calculation = xlCalculationManual Select Case Target.Address Case Range(nom_cell_val).Address ChgtValeur 'macro qui met à jour les données et les graphiques/tableaux croisés... x.Refresh Target.Select End Select End If Application.Calculation = xlCalculationAutomatic End Sub
En espérant que cela fasse gagner du temps à ceux qui ont eu ce problème
@+
Franck