> Tous les forums > Forum Bureautique
 Open office Calc macroSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Titou56
  Posté le 13/12/2009 @ 14:18 
Aller en bas de la page 
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é
Titou56
 Posté le 14/12/2009 à 20:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

UP

usularrakis
 Posté le 15/12/2009 à 08:31 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
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
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
54,99 €SSD Crucial P5 500 Go (3D NAND, NVMe, PCIe, M.2, 3400 Mo/s) à 54,99 €
Valable jusqu'au 01 Décembre

Amazon fait une promotion sur le SSD Crucial P5 500 Go (3D NAND, NVMe, PCIe, M.2) qui passe à 54,99 € livré gratuitement. On le trouve ailleurs à partir de 90 €. Ce SSD offre des vitesses de lecture/écriture séquentielle allant jusqu’à 3 400/ 3 000 Mo/s. Il est garanti 5 ans.


> Voir l'offre
100,39 €SSD Samsung 870 EVO 1 To à 100,39 € livré
Valable jusqu'au 01 Décembre

Amazon Allemagne fait une promotion sur le SSD Samsung 870 EVO 1 To à 95,78 € (avec la TVA ajustée). Comptez 4,61 € pour la livraison en France soit un total de 100,39 € livré. On le trouve ailleurs à plus de 115 €. Ce SSD offre des vitesses de 560 Mo/s en lecture et 530 Mo/s en écriture. Il est garanti 5 ans.


> Voir l'offre
14,99 €Adaptateur WiFi USB TP-Link Archer T3U Plus à 14,99 €
Valable jusqu'au 01 Décembre

Amazon fait une vente flash sur l'adaptateur WiFi USB TP-Link Archer T3U Plus qui passe à 14,99 €. Cette clé USB vous permettra du profiter du WiFi double Bande AC 1300 Mbps sur votre ordinateur. De quoi diffuser des vidéos HD sans problème et copier rapidement des fichiers volumineux.  Son antenne externe à gain élevé augmente la portée de réception et fournit une connexion WiFi stable dans toute votre maison. On la trouve ailleurs à partir de 20 €. 


> Voir l'offre

Sujets relatifs
Conversion Macro Excel 2003 en Open Office Calc
Open office 4 (Calc)
Open Office Calc - Copier & Coller.
soustraction dans cellules Open Office Calc
bug open office sur calc
Décimale "0" Calc Open Office
format conditionnel calc open office
Calculer les heures sous open office calc
copier coller dans open office calc
ouverture tableau open office calc
Plus de sujets relatifs à Open office Calc macro
 > Tous les forums > Forum Bureautique