> 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
88,08 €Alimentation modulaire Seasonic Focus Plus Gold 650W (garantie 10 ans) à 88,08 € livrée
Valable jusqu'au 03 Décembre

Amazon Espagne fait une promotion sur l'alimentation Seasonic Focus Plus Gold 650W qui passe à 79,33 €. Comptez 8,75 € pour la livraison en France soit un total de 88,08 € livrée alors qu'on la trouve ailleurs à partir de 105 €. Le niveau frise la perfection avec une magnifique certification 80+ OR et un câblage full modulaire, le tout dans un silence de cathédrale. L'alimentation est garantie 10 ans.

 


> Voir l'offre
56,09 €Support Invision articulé pour 2 écrans PC de 17 à 27 pouces à 56,09 € (via coupon)
Valable jusqu'au 03 Décembre

Amazon fait une promotion sur le support Invision articulé pour 2 écrans PC de 17 à 27 pouces à 56,09 € via un coupon de réduction à cocher sur la case du produit. On le trouve ailleurs à partir de 70 €.

Compatible VESA 75 x 75 mm et 100 x 100 mm. 6.5 kg par écran max. Ce bras de moniteur unique est extrêmement polyvalent et l'installation est simple. Le support de montage à pince en C robuste s'adapte à des bureaux jusqu'à 3,15  pouces d'épaisseur. Bras articulés faciles à régler. Ils permettent la rotation des écrans à 360°, pivot à 180°, inclinaison de + 90° à – 45°. 


> Voir l'offre
12,90 €Batterie externe Xiaomi Mi Power Bank 3 (10 000 mAh, charge rapide 18W) à 12,90 €
Valable jusqu'au 03 Décembre

Amazon fait une vente flash sur la batterie externe Xiaomi Mi Power Bank 3 qui passe à 12,90 € au lieu de 19,99 €. Cette batterie offre une capacité de 10000 mAh et la charge rapide bi directionnelle 18 W USB C. Un port MicroUSB est également présent ainsi que 2 ports USB.

A glisser dans votre sac pour recharger votre portable plusieurs fois en déplacement.


> 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