Discussion :

[Pied-Moutet]

Bonsoir,

Je récupère des données dans un tableau et elles s'incrèmentent dans une liste jusque là tout fonctionne.
Les différents item doivent être coller dans un autre tableau, de trois colonnes dans un autre fichier.

Merci pour votre aide

je pose le script ci dessous.

set Liste1 to {"08/09/2018", "GASOIL LA TURBIE", 58.0, "10/10/2018", "ESSENCE LYON", 70.25, "09/11/18", "ESSENCE PARIS", 80,55}

-- Ma liste recuperé depuis un tableau Numbers où la date est formaté texte

tell application "Numbers"

open "/Users/name/Desktop/nameFichier.numbers" -- Ouverture du fichier pour coller les items de la liste

tell front document

tell table "tableau 2" of sheet "ANNEE"
set x to count row
set b to x - 1




set b to b + 1

add row below last row
repeat with a from 1 to count of Liste1
set aRow to item a of Liste1

repeat with c from 1 to count aRow
set aValue to item c of aRow

set value of cell c of row (b + 1) to aValue -- Les données sont collées dans le tableau et à partir d'ici ca bug

clear cell c of row (a + 1)

end repeat


end repeat

end tell


end tell
end tell

[Pied-Moutet]

J'ai résolu le problème et j'ai ajouter en fin de tableau une formule somme
je pose le script ci dessous.

Je ne suis pas sûr que ce soit la solution la plus propre mais cela fonctionne.

-- Ouverture du fichier destination

tell application "Numbers"

set Liste2 to {"01/01/2019", "GASOIL", 50.6, "01/02/2019", "GASOIL LYON", 55.7, "10/02/2019", "GASOIL VALENCE", 61.10}

open "/Users/name/Desktop/NomDuFichiers.numbers"


tell front document

tell table "tableau 2" of sheet "ANNEE"
set x to count row
set b to x - 1

set j to count of Liste2

set k to j / 3 as integer


-- Ajouter autant de lignes que la liste contient d'item, divisé par 3 puisqu'il vont trois par trois

repeat with e from 1 to (count of Liste2) / 3

add row below last row

end repeat

-- Récupération des 3 premiers items de la liste et ils sont collés dans le tableau

repeat with a from 1 to count of Liste2

set aRow to item a of Liste2


if a < 4 then

set value of cell a of row (b + 1) to aRow

end if

end repeat

-- Récupérations des items suivant toujours 3 par 3 à partir du 4ème et collage dans le tableau

repeat with a from 4 to count of Liste2

set c to 2

repeat with d from 3 to count of Liste2 by 3


set c to c + 1

set aRow to item a of Liste2


if (a > d) and (a < d + 4) then


set value of cell (a - d) of row c to aRow


end if

end repeat


end repeat

-- Création d'une formule somme en fin de tableau cellule 3 et réaliser le total des sommes

set j to (count of row) as number


set derniereCellule to the name of cell 3 of row (j - 1)


cell 3 of last row activate



set maFormule to "=" & "SOMME" & "(" & "C2" & ":" & derniereCellule & ")"
set the value of the last cell to maFormule

end tell

end tell

end tell