[Résolu] modifier largeur colonne à l'aide d'une formule

Discussions à propos du tableur Calc.
Les questions sur les macros doivent être postées dans la section dédiée en dessous.

Modérateur : Vilains modOOs

Règles du forum
Cette section est uniquement dédiée au tableur Calc. Vous ne devez pas poster ici de questions sur les macros mais utiliser la section éponyme.
winnie.ym
Fraîchement OOthentifié
Messages : 5
Inscription : 15 sept. 2007 07:10

[Résolu] modifier largeur colonne à l'aide d'une formule

Message par winnie.ym »

Bonjour, j'utilise la fonction style pour modifier le style d'une cellule. Ca marche très bien.

Je voudrais en plus définir la largeur d'une colonne automatiquement. (à l'aide d'une formule)
en gros je chercherai la fonction modif_cellule(WIDTH;"2 cm").

merci,
Dernière modification par winnie.ym le 15 sept. 2007 07:31, modifié 2 fois.
Amicalement,
ooo 2.2.1 sous Windows XP SP2, With Firefox 2
Jeff
GourOOu
GourOOu
Messages : 9629
Inscription : 18 sept. 2006 09:40
Localisation : France

Message par Jeff »

Bonjour et bienvenue,

A ma connaissance, une telle fonction n'existe sous aucun tableur...

Je pense que le plus simple serait de passer par une macro, et donc poster (ou rechercher) dans la section éponyme.

A + :wink:
winnie.ym
Fraîchement OOthentifié
Messages : 5
Inscription : 15 sept. 2007 07:10

Message par winnie.ym »

Merci, beaucoup.
Amicalement,
ooo 2.2.1 sous Windows XP SP2, With Firefox 2
Pierre-Yves Samyn
Grand Maître de l'OOffice
Grand Maître de l'OOffice
Messages : 11276
Inscription : 02 mai 2006 08:42

Message par Pierre-Yves Samyn »

Bonjour

Jeff a écrit :Je pense que le plus simple serait de passer par une macro, et donc poster (ou rechercher) dans la section éponyme.
Jeff a raison et si cela peut t'aider :
winnie.ym
Fraîchement OOthentifié
Messages : 5
Inscription : 15 sept. 2007 07:10

Message par winnie.ym »

merci à tous pour votre aide, j'ai réalisé une nouvelle fonction en basic LargeurCol dans laquelle j'y envoie la feuille, la colonne, et la largeur souhaité.
Ca marche très bien. Le seul truc qui me manque c'est une gestion d'execption avec try cath. Mais je ne pense que se soit possible.
mais en tout cas merci à tous pour vetre aide !!!!

Code : Tout sélectionner

function LargeurCol(Feuille as string, Adresse as string,Larg as long) as string
	Dim Document As Object
	Dim Sheet As Object
	dim Column as object
	dim retour as string
	Dim MaZone as Object
		if Feuille<>"" and Adresse<>"" and isnumeric(Larg) then
			Document = ThisComponent
			Sheet = Document.Sheets.getByName(Feuille) 
		    MaZone = Sheet.getCellRangeByName(Adresse)
		    Column = MaZone.Columns.getByIndex(0)
		    Column.Width = Larg
			retour="ok"
		else
			retour="error"
		end if
		LargeurCol=retour
End function
Amicalement,
ooo 2.2.1 sous Windows XP SP2, With Firefox 2