XL 2010 Modification macro VBA (validation cellules non vierges)

[Erakmur]

Bonjour,

La macro si dessous valide les formules des lignes de aj9 à aj7000. Cela prend 4 min. Sur les 6991 cellules, il est très rare qu'elles contiennent toutes des formules. Afin de diminuer les temps de calcul, est il possible d'avoir la même macro qui valide uniquement les formules des cellules non vierge de aj9 à aj7000.

Sub Validation()
Dim c As Range
Application.Calculation = xlManual
Application.ScreenUpdating = False
For Each c In [Aj9:Aj7000]
c = c.Formula
Next
Application.Calculation = xlAutomatic
End Sub


Cordialement

 

[Patrice33740]

Bonjour,
Je comprend pas trop pourquoi tu réécris toutes les formules, je mettrais simplement :

Sub Validation()
  Range("Aj9:Aj7000").Calculate
End Sub

 

[Erakmur]

Bonjour Patrice,
Ta solution calcule t'elle uniquement les cellules non vierges ?
Cordialement

 

[Erakmur]

Je viens de vérifier, ta formule ne fonctionne pas. Les calculs ne se font pas.

 

[Patrice33740]

Re,

Tu ne dis pas pourquoi tu réécris les formules, si c'est parce qu'elles sont au format texte :

Sub Validation()
  Range("Aj9:Aj7000").NumberFormat = "General"
  Range("Aj9:Aj7000").Value = Range("Aj9:Aj7000").Value
End Sub

 

[Erakmur]

Ce n'est pas moi qui est écrit cette formule. J'avoue que mon niveau en VBA est assez bas. J'avais demandé à l'époque une macro qui simule l'action suivante sur une plage: Sélection de la cellule puis enter. Sélection de la cellule suivant puis enter ect.. jusqu'à 7000.

Aujourd'hui, je souhaite une optimisation de la macro qui valide uniquement les cellules non vierge. Les temps de calculs étant trop long. Je regarderai ta proposition demain.

 

[Patrice33740]

Ce n'est pas moi qui est écrit cette formule. J'avoue que mon niveau en VBA est assez bas. J'avais demandé à l'époque une macro qui simule l'action suivante sur une plage: Sélection de la cellule puis enter. Sélection de la cellule suivant puis enter ect.. jusqu'à 7000.

C'est effectivemnt ce que fait ta macro, mais la question, c'est pourquoi faire ça ?
Normalement ça n'a aucune utilité sauf dans de rares cas particuliers....

 

[Erakmur]

Cette macro active une autre macro en faisant cette manipulation. Bref, c'est compliqué. Il faut juste un moyen de diminuer l'exécution de cette macro.

 

[Patrice33740]

C'est probablement l'autre macro qui ralentit tout !
Si on ajoute un test dans ta macro, elle sera encore plus lente !

 

[Erakmur]

Tu veux dire un test qui prend chaque cellule une part une et regarde si la cellule est vierge ou pas ?

 

[Patrice33740]

Oui,

Le plus simple serait de joindre ton fichier (débarrassé des info confidentielles s'il y a lieu)

 

[D.D.]

Re,
Tu ne dis pas pourquoi tu réécris les formules, si c'est parce qu'elles sont au format texte :

C'est probablement pour cela. Je me souviens d'extractions (de SAP ou BW je crois) qui avaient leurs cellules au format texte et du coup la formule ne se calculait pas. Le simple fait de la sélectionner (F2) et la valider (entrée) remettait les choses en place.

 

[Erakmur]

Bonjour,
Voici le fichier. J'ai supprimé toutes les données et laissé que l'essentiel. Il s'agit de l'onglet 3. C'est le bouton bleu qui déclenche la macro. Elle copie colle des données de l'onglet 2 vers l'onglet 3 et valide chaque cellule de AJ9 à AJ 7000 qui déclenche une autre macro pour faire apparaitre le planning. Je souhaiterai que la macro valide seulement les cellules non vides de AJ9 à AJ 7000 pour gagner du temps.

 

[Patrice33740]

L'essentiel c'est d'avoir toutes les feuilles et toutes les données, quand je demande "débarassé des inforamtions confidentielles" ça ne veut pas dire sans aucune informations mais simplement qu'il faut les remplacer par de informations bidons.
Au premier regard, il y a un énorme problème de récursivité dans le Worksheet_Change ce qui explique la lenteur !

 

[Erakmur]

Bonjour,
Voici le document demandé.
Cordialement