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

2005-03-29 Par sujet jean-claude . david 
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]

[prog] Version 1.1.4 Calc fichier ouvert en hide

2005-03-29 Par sujet Alpha Beta 



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!

Re: [prog] url et acents

2005-03-29 Par sujet Troumad 
Troumad a écrit :
Troumad a écrit :
Je vais regarder !
nb : je suis heureux je viens de récupérer mon /home après un crash 
DD du à un échange de proc...

Je viens de remettre en marche OOo, j'ai donc regardé et ça plante :(
J'avais perdu ma configuration de OOo... J'ai redonné le chemin de 
firefox et s'est bon !
Je mets donc cette version en ligne !

Merci
--
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] url et acents

2005-03-29 Par sujet Troumad 
Troumad a écrit :
Je vais regarder !
nb : je suis heureux je viens de récupérer mon /home après un crash DD 
du à un échange de proc...
Je viens de remettre en marche OOo, j'ai donc regardé et ça plante :(
laurux a écrit :
Je te propose une modification de ta procédure wiki de ta macro :
sub wiki
Dim objlancer  As Object
Dim Verbe As String
Dim VerbeConverti As String
Dim Lettre As String
Dim URL As String
Dim i As Long
 
objlancer = CreateUnoService("com.sun.star.system.SystemShellExecute")


Verbe = 
ThisComponent.Sheets.getByName("Affichage").getCellByPosition(6,0).String


VerbeConverti = ""

Comme ça, la découpe est mieux :)
 
Ces 4 lignes n'en font qu'une je pense !
Non, 3 mais autrement !
For i = 1 to len(Verbe)
Lettre = Mid(Verbe, i, 1)
 Select Case Lettre
Case "â"
VerbeConverti = VerbeConverti + "%E2"
Case "à"
VerbeConverti = VerbeConverti + "%E0"
Case "é"
VerbeConverti = VerbeConverti + "%E9"
Case "è"
VerbeConverti = VerbeConverti + "%E8"
Case "ê"
VerbeConverti = VerbeConverti + "%EA"
Case "ç"
VerbeConverti = VerbeConverti + "%E7"
Case "î"
VerbeConverti = VerbeConverti + "%EE"
Case "ï"
VerbeConverti = VerbeConverti + "%EF"
Case "ù"
VerbeConverti = VerbeConverti + "%F9"
Case "û"
VerbeConverti = VerbeConverti + "%FB"
Case "ü"
VerbeConverti = VerbeConverti + "%FC"
Case Else
VerbeConverti = VerbeConverti + Lettre
End Select

J'y avait pensé, mais je n'avais pas tous les cas en tête.
Next
URL = "http://www.sdv.fr/cgi/orthonet/orthonet?mot="+VerbeConverti
objlancer.execute(URL, "", "")

C'est à cette dernière instruction qu'il y a un pb :( :(
On ne paut pas lancer cet objet... As-tu essayé ?
end sub


--
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] url et acents

2005-03-29 Par sujet Troumad 
Troumad a écrit :
Je vais regarder !
nb : je suis heureux je viens de récupérer mon /home après un crash DD 
du à un échange de proc...

laurux a écrit :
Je te propose une modification de ta procédure wiki de ta macro :
sub wiki
Dim objlancer  As Object
Dim Verbe As String
Dim VerbeConverti As String
Dim Lettre As String
Dim URL As String
Dim i As Long
 
objlancer =
CreateUnoService("com.sun.star.system.SystemShellExecute") Verbe =
ThisComponent.Sheets.getByName("Affichage").getCellByPosition(6,0).St
ring VerbeConverti = ""
 

Ces 4 lignes n'en font qu'une je pense !
For i = 1 to len(Verbe)
Lettre = Mid(Verbe, i, 1)
 Select Case Lettre
Case "â"
VerbeConverti = VerbeConverti + "%E2"
Case "à"
VerbeConverti = VerbeConverti + "%E0"
Case "é"
VerbeConverti = VerbeConverti + "%E9"
Case "è"
VerbeConverti = VerbeConverti + "%E8"
Case "ê"
VerbeConverti = VerbeConverti + "%EA"
Case "ç"
VerbeConverti = VerbeConverti + "%E7"
Case "î"
VerbeConverti = VerbeConverti + "%EE"
Case "ï"
VerbeConverti = VerbeConverti + "%EF"
Case "ù"
VerbeConverti = VerbeConverti + "%F9"
Case "û"
VerbeConverti = VerbeConverti + "%FB"
Case "ü"
VerbeConverti = VerbeConverti + "%FC"
Case Else
VerbeConverti = VerbeConverti + Lettre
End Select
Next
URL = "http://www.sdv.fr/cgi/orthonet/orthonet?mot="+VerbeConverti
objlancer.execute(URL, "", "")
end sub


--
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] url et acents

2005-03-29 Par sujet Troumad 
Je vais regarder !
nb : je suis heureux je viens de récupérer mon /home après un crash DD 
du à un échange de proc...

laurux a écrit :
Je te propose une modification de ta procédure wiki de ta macro :
sub wiki
Dim objlancer  As Object
Dim Verbe As String
Dim VerbeConverti As String
Dim Lettre As String
Dim URL As String
Dim i As Long
 
objlancer =
CreateUnoService("com.sun.star.system.SystemShellExecute") Verbe =
ThisComponent.Sheets.getByName("Affichage").getCellByPosition(6,0).St
ring VerbeConverti = ""
 

Ces 4 lignes n'en font qu'une je pense !
For i = 1 to len(Verbe)
	Lettre = Mid(Verbe, i, 1)
	 
	Select Case Lettre
		Case "â"
			VerbeConverti = VerbeConverti + "%E2"
		Case "à"
			VerbeConverti = VerbeConverti + "%E0"
		Case "é"
			VerbeConverti = VerbeConverti + "%E9"
		Case "è"
			VerbeConverti = VerbeConverti + "%E8"
		Case "ê"
			VerbeConverti = VerbeConverti + "%EA"
		Case "ç"
			VerbeConverti = VerbeConverti + "%E7"
		Case "î"
			VerbeConverti = VerbeConverti + "%EE"
		Case "ï"
			VerbeConverti = VerbeConverti + "%EF"
		Case "ù"
			VerbeConverti = VerbeConverti + "%F9"
		Case "û"
			VerbeConverti = VerbeConverti + "%FB"
		Case "ü"
			VerbeConverti = VerbeConverti + "%FC"
		Case Else
			VerbeConverti = VerbeConverti + Lettre
	End Select
Next
URL = "http://www.sdv.fr/cgi/orthonet/orthonet?mot="+VerbeConverti
objlancer.execute(URL, "", "")
end sub

--
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]