Bonjour,

Dans mon classeur qui me sert à gérer un cross, j'ai des soucis de temps d'exécution. Avec une exécution pas à pas, j'ai identifié 3 points de freeze...

il s'agit de : oCellule.Value = dTempsCoureur oCellule.NumberFormat = nFormatId oCelluleHeure.Value = dHeureArrivee

Le code pour formater la cellule peut être enlevé mais ça ne résoud pas mon problème complètement...

Je ne comprend pas cette lenteur car il me semble qu'avec OOo version 2.2 et antérieure, je n'avais pas ce soucis. J'ai testé sous Linux Debian, Ubuntu et Windows avec OOo version 2.4 et le comportement est similaire.

D'où ce problème peut-il venir et est-ce possible de le contourner ?

Ci-dessous, la macro déclenchée par un bouton.

Sub ArriveeCoureur()

Dim oDocument As Object, oControleur As Object, oFeuille As Object Dim oCellule As Object, oCelluleFocus As Object, oCelluleHeure As Object Dim dHeureArrivee As Date, dHeureDepart As Date, dTempsCoureur As Date

oDocument = ThisComponent oControleur = oDocument.CurrentController oFeuille = oControleur.activeSheet

' Enregistrement de l'heure d'arrivée du coureur dHeureArrivee = Time() dHeureDepart = oFeuille.getCellRangeByName("H4").Value dTempsCoureur = dHeureArrivee - dHeureDepart

' Vérification de bon lancement du chronomètre... Coloration de la cellule du chrono ' si l'heure d'arrivée est inférieure à l'heure de départ. If dHeureArrivee < dHeureDepart Then oFeuille.getCellRangeByName("H4").CellBackColor = RGB(255,0,0) End If

' Recherche de la prochaine cellule vide Dim x As Integer, y As Integer x = 2 y = 6

While oFeuille.getCellByPosition(x,y).String <> "" y = y + 1 Wend

' On note le temps du coureur dans la cellule libre oCellule = oFeuille.getCellByPosition(x,y) oCellule.Value = dTempsCoureur

' Cette cellule sera au format MM'SS Dim oLocale As New com.sun.star.lang.Locale Dim nTemps As Integer, nFormatId As Integer

oLocale.Language="fr" oLocale.Country="FR" nFormatId = oDocument.NumberFormats.queryKey("MM'SS''", oLocale, True)

' Si le format MM'SS'' n'existe pas, on l'ajoute à la liste des format ' personalisés If nFormatId = -1 then nFormatId = oDocument.NumberFormats.AddNew("MM'SS''", oLocale) End If

' ATTENTION : prend beaucoup de temps avec OOo > 2.3 ! ' oCellule.NumberFormat = nFormatId

'On note l'heure par sécurité dans une autre colonne oCelluleHeure = oFeuille.getCellByPosition(12,y)

' freeze avec OOo > 2.3

oCelluleHeure.Value = dHeureArrivee

' Formatage identique de cette cellule ' ATTENTION : prend beaucoup de temps avec OOo > 2.3 ! ' oCelluleHeure.NumberFormat = nFormatId

'Ancien code (utilisation des formats standards) '============================================== 'Dim oFormats As Object, nTemps As Integer 'oFormats = ThisComponent.getNumberFormats() 'nTemps = oFormats.getStandardFormat( com.sun.star.util.NumberFormat.TIME, oLocale ) 'oCellule.NumberFormat = nTemps

' On déplace la vue du classeur afin de visualiser la ligne du coureur qui arrive oControleur.FirstVisibleRow = y - 5

' On place le focus sur la cellule du temps oCelluleFocus = oFeuille.GetCellByPosition(0, y + 1) oControleur.Select(oCelluleFocus)

End Sub