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,
[Résolu] modifier largeur colonne à l'aide d'une formule
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.
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.
-
- Fraîchement OOthentifié
- Messages : 5
- Inscription : 15 sept. 2007 07:10
[Résolu] modifier largeur colonne à l'aide d'une formule
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
ooo 2.2.1 sous Windows XP SP2, With Firefox 2
-
- Fraîchement OOthentifié
- Messages : 5
- Inscription : 15 sept. 2007 07:10
-
- Grand Maître de l'OOffice
- Messages : 11276
- Inscription : 02 mai 2006 08:42
Bonjour
Jeff a raison et si cela peut t'aider :Jeff a écrit :Je pense que le plus simple serait de passer par une macro, et donc poster (ou rechercher) dans la section éponyme.
- Pour une colonne ou une feuille
http://user.services.openoffice.org/fr/ ... ml+colonne - Pour une ou plusieurs cellules
http://user.services.openoffice.org/fr/ ... ml+colonne
-
- Fraîchement OOthentifié
- Messages : 5
- Inscription : 15 sept. 2007 07:10
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 !!!!
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
ooo 2.2.1 sous Windows XP SP2, With Firefox 2