besoin d’aide pour tableaux numbers

Date   Opérateur   Dossier   Temps
01/01/2010   Louis   D123   5
12/01/2010   Arthur   D123   1
12/01/2010   Louis   D234   4
15/01/2010   Arthur   D123   3
01/02/2010   Louis   D123   3
03/02/2010   Louis   D123   2
03/02/2010   Louis   D234   5
03/02/2010   Arthur   D345   3
05/02/2010   Julie   D123   2
15/02/2010   Julie   D345   1
22/02/2010   Louis   D123   4
22/02/2010   Arthur   D123   1

-- Récapituler les tableaux d'activité
on run argv
if the (count of argv) is 0 then
do shell script "osascript " & POSIX path of (path to me) & " YES!"
else
tell application "Numbers"
activate
--tell application "System Events" to keystroke "h" using {command down}
try
get the name of document 1
on error
display alert "Attention" message "Aucun document actif dans Number..." as warning
return
end try
tell document 1
set tableaurecap to false
repeat with s from 1 to the count of sheets
tell sheet s
repeat with t from 1 to the count of tables
if the name of table t is "RECAP" then
set tableaurecap to table t
end if
end repeat
end tell
end repeat
if class of tableaurecap is class of true then
try
try
make new sheet with properties {name:"RECAP"}
end try
tell sheet ("RECAP")
try
set the name of last table to "RECAP"
on error
make new table with properties {name:"RECAP"}
end try
set tableaurecap to table ("RECAP")
end tell
on error
set tableaurecap to false
end try
end if
set masksheet to make new sheet
set the value of cell 1 of table 1 of masksheet to "Patientez..."
if class of tableaurecap is class of true then
set recap to "Agent  Date  Dossier  Temps passé" & return
else
if filtered of tableaurecap then
display alert "Attention" message "Le tableau RECAP est filtré." & return ¬
& "Il est impossible de continuer. Supprimez les filtres..." as warning
return
end if
try
clear every cell of tableaurecap
on error
display alert "Attention" message "Le tableau RECAP possède des catégories." & return ¬
& "Il est impossible de continuer. Supprimez les catégorie..." as warning
return
end try
repeat while (count of columns of tableaurecap) is not 4
if (count of columns of tableaurecap) > 4 then
remove last column of tableaurecap
else
add column after last column of tableaurecap
end if
end repeat
set the value of cell "A1" of tableaurecap to "Agent"
set the value of cell "B1" of tableaurecap to "Date"
set the value of cell "C1" of tableaurecap to "Dossier"
set the value of cell "D1" of tableaurecap to "Temps passé"
try
remove last row of tableaurecap
end try
set lignerecap to 1
end if
repeat with s from 1 to the count of sheets
if sheet s is not masksheet then
if the name of sheet s is not "RECAP" then
tell sheet s
repeat with t from 1 to the count of tables
if the name of table t is not "RECAP" then
tell table t
set agent to the value of cell ("A1")
if agent is not 0 then
set cestparti to false
repeat with c from 1 to the count of cells
set r to value of cell c
try
set dummy to r as date
if not cestparti then
set haut to (the address of the row of cell c)
set gauche to (the address of the column of cell c) - 1
set bas to (the address of the row of cell (the count of cells))
set droite to (the address of the column of cell (the count of cells))
end if
set cestparti to true
end try
if cestparti and r is not 0 then
set ligne to (the address of the row of cell c)
set colonne to (the address of the column of cell c)
if (haut < ligne) and (ligne ≤ bas) and (gauche < colonne) and (colonne ≤ droite) then
try
set ddate to short date string of ((the value of cell haut of column colonne) as date)
set dummy to (r as real)
set dossier to the value of cell 1 of row ligne
ignoring case
if dossier does not contain "TOTAL" then
if class of tableaurecap is class of true then
set recap to (recap ¬
& agent ¬
& "  " & ddate ¬
& "  " & dossier ¬
& "  " & (r as real) as text) ¬
& return
else
set lignerecap to lignerecap + 1
repeat while lignerecap + 1 > (row count of tableaurecap)
add row below last row of tableaurecap
end repeat
set the value of cell lignerecap of column 1 of tableaurecap to agent
set the value of cell lignerecap of column 2 of tableaurecap to ddate
set the value of cell lignerecap of column 3 of tableaurecap to dossier
set the value of cell lignerecap of column 4 of tableaurecap to (r as real) as text
end if
end if
end ignoring
end try
end if
end if
end repeat
end if
end tell
end if
end repeat
end tell
end if
end if
end repeat
if class of tableaurecap is class of true then
set the clipboard to recap
display alert ¬
"Attention" message "Impossible de créer le tableau de récapitulation." & return ¬
& "Créez-le manuellement et collez-y le résultat qui se trouve dans le presse-papier..." as warning
else
tell tableaurecap
if lignerecap < 2 then
set lignerecap to 2
end if
repeat while the (count of rows) > lignerecap
remove last row
end repeat
repeat while the (count of columns) > 4
remove last column
end repeat
set properties of column 2 to {format:year}
sort by column 2
sort by column 1
end tell
end if
delete masksheet
end tell
beep
display dialog "Terminé..."
activate
end tell
end if
end run