Re: [prog] Copier/Coller une Cellule (ou Formules) vers N cellules

2005-03-30 Thread Jovial
[EMAIL PROTECTED] a écrit :
Bonjour,
J'ai un assez gros classeur de données (5Mo, 9000 lignes), dans lequel il me
faut ajouter quelques colonnes calculées. Je pose donc quelques formules en
ligne 2 (Ex : dans les colonnes "AL", "AM", "AN"...), que je souhaite
ensuite dupliquer jusqu'au bas de mon classeur ==> du genre Copier "AL2:AN2"
/Coller (ou Collage Spécial des Formules) de "AL3:AN3" à "AL9000:AN9000". 

Pour le moment je n'ai pas trouvé autre chose que le Dispatcher pour faire
ce Copier/Coller (ou une boucle d'enfer de SetFormula qui ne me convient pas
plus...), quelqu'un aurait il quelque chose de plus efficient à me proposer
(du genre "SetFormulaArray", mais celui ci nécessite un "GetFormulaArray" de
taille identique...) ?
Ensuite, pour soulager le classeur je fais un "Copier" / "Collage Spécial
des Valeurs" pour les colonnes "AL:AN" avec
un DataArray.
D'avance Merci,
Jean-Claude 

-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

 

Bonjour
ZoneCible = MaFeuille.getCellRangeByPosition(0,0,5,2000) '  A1: F2001  
sélectionne la zone ou va être recopiéela formule
ZoneCible.fillAuto(com.sun.star.sheet.FillDirection.TO_TOP, 1) 'recopie 
les formules sur plusieurs lignes à partir de la 1ére
Jluc

-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


[prog] bozzo

2005-03-30 Thread Troumad
Bonjour
On (Jovial ?) m'avait envoyé un exemple de coloration de cellule avec 
des macro. Il s'appelait bozzo. Suite à mon crash de DD de ce WE, je 
l'ai perdu... Pourrais-je le récupérer ?
--
Amicalement vOOotre  Troumad Alias Bernard SIAUD
mon site : http://troumad.free.fr : AD&D maths WEB sectes
Pour la liberté http://www.mandrakelinux.com/fr/ 
http://www.eurolinux.org/index.fr.html
N'envoyez que des documents avec des formats ouverts, comme 
http://fr.openoffice.org

-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


[prog] RE : [prog] bozzo

2005-03-30 Thread Sébastien VINOT
Bonjour,

Il est sur mon site : http://www.logisphere.fr/composants/open_office

Sébastien


-Message d'origine-
De : Troumad [mailto:[EMAIL PROTECTED] 
Envoyé : mercredi 30 mars 2005 14:47
À : prog@fr.openoffice.org
Objet : [prog] bozzo


Bonjour

On (Jovial ?) m'avait envoyé un exemple de coloration de cellule avec 
des macro. Il s'appelait bozzo. Suite à mon crash de DD de ce WE, je 
l'ai perdu... Pourrais-je le récupérer ?
-- 
Amicalement vOOotre  Troumad Alias Bernard SIAUD
mon site : http://troumad.free.fr : AD&D maths WEB sectes
Pour la liberté http://www.mandrakelinux.com/fr/ 
http://www.eurolinux.org/index.fr.html
N'envoyez que des documents avec des formats ouverts, comme 
http://fr.openoffice.org

-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]





-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]



Re: [prog] Version 1.1.4 Calc fichier ouvert en hide

2005-03-30 Thread Jovial
Alpha Beta a écrit :
Bonjour, sous Calc 1.1.4
 
J'ai découvert comment ouvrir un fichier sous Calc et faire en sorte 
de le manipuler sans pour autant le rendre visible à l'utilisateur. 
Mais une fois mes manip faites, j'aimerai pouvoir et l'enregistrer et 
le rendre visible directement ?
 
Quelqu'un sait-il faire, transformer un hide=true en hide=false ou 
autre chose qui fasse le travail?
 
Merci pour celui ou celle qui me répondra!
Bonjour
J'avais déjà posé  la question , ce que j'ai compris c'est que en hide= 
true  la partie graphique n'est pas chargée, et pour la rendre visible 
il faut il faut  fermer et  réouvrir le oDoc avec hide = false

Jluc
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


RE: [prog] RESOLU Copier/Coller une Cellule (ou Formules) vers N cellules

2005-03-30 Thread jean-claude . david
Super, Merci. Terriblement plus efficace et tellement plus satisfaisant sur
le plan "éthique" de la programmation...

Ci joint l'adaptation exacte à mon problème avec mes commentaires (si cela
peut servir à quelqu'un d'autre...)

'PB : Dupliquer dans "AL2:AO9000" la "1" ère ligne de cette sélection 
'Zone globale : Source et Cible
ZoneCible = oXL.Sheets(0).getCellRangeByPosition( 38, 1, 40, 9000)
'1 seule Ligne à dupliquer - la 1ère - à dupliquer vers le Bas 
ZoneCible.fillAuto(com.sun.star.sheet.FillDirection.TO_BOTTOM, 1) 


>Bonjour
>ZoneCible = MaFeuille.getCellRangeByPosition(0,0,5,2000) '  A1: F2001
sélectionne la zone ou va être recopiéela formule
>ZoneCible.fillAuto(com.sun.star.sheet.FillDirection.TO_TOP, 1) 'recopie les
formules sur plusieurs lignes à partir de la 1ére
>Jluc

>Pb : Copier "AL2:AN2" et les Coller de "AL3:AN3" à "AL9000:AN9000".

-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]



[prog] [calc] Couleur d'éléments dans une cellule ou identifier la cellule appelante.

2005-03-30 Thread Troumad
Sébastien VINOT a écrit :
Bonjour,
Il est sur mon site : http://www.logisphere.fr/composants/open_office
Sébastien
 

Merci ! (nb : je viens de parcourir la liste OOo et de t'envoyer un 
accusé de réception...)

Cet exemple ne me convient pas car je fais ma chaine de la manière 
suivante :

conjugaison=determinant+chaine+racine+terminaison
Et là dedans, je souhaite avoir une couleur pour déterminant, une autre 
pour chaine+racine et une autre pour terminaison le tout sans savoir 
quelle cellule est affectée car c'est un appel dans la cellule : 
*=CONJUGAISON(E4;racine;RECHERCHE(groupe;Groupe.$A3:$A201;Groupe.D3:D201))*

S'il est possible d'identifier la cellule appelante (celle qui contient 
la formule), je pourrais alors essayer de faire du coloriage comme tu 
l'as fait car je peux compter les différentes longueurs de mes éléments.

--
Amicalement vOOotre  Troumad Alias Bernard SIAUD
mon site : http://troumad.free.fr : AD&D maths WEB sectes
Pour la liberté http://www.mandrakelinux.com/fr/ 
http://www.eurolinux.org/index.fr.html
N'envoyez que des documents avec des formats ouverts, comme 
http://fr.openoffice.org

-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


[prog] [calc] identifier la cellule appelante.

2005-03-30 Thread Troumad
Troumad a écrit :
S'il est possible d'identifier la cellule appelante (celle qui 
contient la formule), je pourrais alors essayer de faire du coloriage 
comme tu l'as fait car je peux compter les différentes longueurs de 
mes éléments.
J'ai tenté un
cellule=ThisComponent.Sheets.getByName("Affichage").getCellByPosition(j+1,i)
print cellule.string
cellule.string="test"
print cellule.string
dans la procédure conjugaison appelée par la cellule par :
=CONJUGAISON(D4;racine;RECHERCHE(groupe;Groupe.$A3:$A201;Groupe.C3:C201);$C5;D$2)
Ça ne marche pas... Aucune volonté d'écrire quoi que ce soit dans la 
cellule. le print envoie toujours la même chose et pas *test*.

--
Amicalement vOOotre  Troumad Alias Bernard SIAUD
mon site : http://troumad.free.fr : AD&D maths WEB sectes
Pour la liberté http://www.mandrakelinux.com/fr/ 
http://www.eurolinux.org/index.fr.html
N'envoyez que des documents avec des formats ouverts, comme 
http://fr.openoffice.org

-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


Re: [prog] [calc] identifier la cellule appelante.

2005-03-30 Thread Jovial
Bonsoir
Essaye ce genre de chose :
Function CONJUGAISON(TexteCell as String, Table as string) as String
Print TexteCell ,Table
...
End sub
Le 2eme argument envoyé est de ce genre: Table = Feuille.A1
Je prend le dial au vol: j'ai bien compris tu veux plusieurs couleurs 
dans le texte de ta cellule.

Jluc
Troumad a écrit :
S'il est possible d'identifier la cellule appelante (celle qui 
contient la formule), je pourrais alors essayer de faire du coloriage 
comme tu l'as fait car je peux compter les différentes longueurs de 
mes éléments.

J'ai tenté un
cellule=ThisComponent.Sheets.getByName("Affichage").getCellByPosition(j+1,i) 

print cellule.string
cellule.string="test"
print cellule.string
dans la procédure conjugaison appelée par la cellule par :
=CONJUGAISON(D4;racine;RECHERCHE(groupe;Groupe.$A3:$A201;Groupe.C3:C201);$C5;D$2) 

Ça ne marche pas... Aucune volonté d'écrire quoi que ce soit dans la 
cellule. le print envoie toujours la même chose et pas *test*.


-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]