|
|
|
Open office Calc macro
| ||||||||
Astucien  |
Hello tlm J'ai un pb de conversion depuis une macro XLS à la compile. Cette macro permet de lister le contenu de A1 dans toute les polices de caractères... voici le Vba excel
Rem' Attribute VBA_ModuleType=VBADocumentModule' Sub A1AllFonts() Dim i, j, fn$, t$, FontList As CommandBarControl Individuelt tegnformat, ActiveCell On Error Resume Next With ActiveCell t = .Text: .ClearContents: fn = .Font.Name: .Formula = t For j = 1 To .Characters.Count With .Characters(j) If AscW(.Text) > 256 Then .Font.Size = 10 .Font.Name = "Arial Unicode MS" '"Arial Unicode MS","Cambria Math","Lucida Sans Unicode" Else .Font.Size = 10 .Font.Name = fn End If: End With: Next: End With Exit Sub Application.ScreenUpdating = False Set FontList = Application.CommandBars("Formatting").FindControl(ID:=1728) t = [a1].Value: [b:c].Clear For i = 1 To FontList.ListCount Cells(i, 2).Font.Name = FontList.List(i) Cells(i, 2).Formula = t Cells(i, 3).Formula = FontList.List(i) Next Application.ScreenUpdating = True End Sub Je plante là-dessus, voulez-vous bien m'aider ? Modifié par Titou56 le 13/12/2009 15:55 | |||||||
Publicité | ||||||||
|
| ||||||||
Astucien | UP | |||||||
Astucien  | salut voir plutôt ce site dédié à OOo / forum "macros" : Forum francophone OpenOffice.org et décoche le "résolu" Modifié par usularrakis le 15/12/2009 08:32 | |||||||
| ||||||||
Les bons plans du moment PC Astuces | Tous les Bons Plans | ||||||||||||||||||
| |||||||||||||||||||
| Forum PC Astuces | © 1997-2023 Webastuces |  |
À LA UNE
PRATIQUE
LOGITHÈQUE
TABLETTE ET MOBILE
BONS PLANS
FONDS D'ÉCRAN
JEUX
FORUM
