Le code associé à une formule cellule détermine la date/heure du début du traitement et la date/heure de la fin du traitement de la feuille de calcul EXCEL.
Effectuez d'abord un traitement partiel de votre document. Supposons un documents où les données sont traitées colonne par colonne et que le traitement est identique pour toutes les données du tableau, faire un traitement sur la première colonne en y insérant les lignes de codes notées "TEST".
TEST Mettre cette ligne de code au début de votre boucle de traitement :
DébutChrono = Now
' Affecte la variable "DébutChrono" de la Date/Heure système
Lignes de code pour le traitement
Mettre ces lignes de code en fin de boucle de traitement de la première colonne :
FinChrono = Now - DébutChrono
Worksheets("Sortie_Non Sortie").Cells(Lignex1 , 6).Value = FinChrono
Pour l'exemple ci-dessous, FinChrono = 00:00:30
Un petit produit en croix et nous pouvons en déduire que :
4422 / 30 =
147,4
Vous avez maintenant votre référence pour la formule
de la cellule (Voir ci-dessous).
Fin de TEST
-----------------------------------------------------------
Cellule contenant la variable déterminé par des lignes de codes :
Ex: ='Global rangé'!R2
'Nombre lignes référenceLigne de code à insérer dans votre module de l'éditeur VBA:
' inscrit la date courante dans la cellule voulue
' "DEBUT TRAITEMENT"
Worksheets("Sortie_Non Sortie").Cells(Lignex1, 6).Value = _
CDate(FormatDateTime(Now, vbLongTime))
Dans la feuille de calcul, mettre cette formule dans une cellule ou une autre feuille de calcul qui correspondra à "FIN TRAITEMENT":
=F4437+((1 / 1440 / 60) * ((E4435 * 49) / 147,4))
- F4437 fait référence à l'heure "DEBUT TRAITEMENT".
- E4435fait référence à la variable 4422.
- 49 correspond au nombre de colonne contenant les données.
- 147,4 correspond au nombre de ligne traitées en 1 seconde.
Résultat :
| DEBUT TRAITEMENT |
| 13:34:48 |
| 13:59:12 |
| FIN TRAITEMENT |
Bien entendu, tout ceci n'est qu'approximatif, mais celà vous
donne une plage horaire pour vous permettre d'aller
boire un café !
J'espère avoir été assez clair; désolé pour la mise en forme,
mais je débute dans le " métier "...