> 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
52,48 €Boîtier mini tour PC NZXT H210i (mini-ATX) à 52,48 € avec le code BINGO
Valable jusqu'au 25 Janvier

LDLC fait une promotion sur le boîtier PC NZXT H210i qui passe à 52,48 € avec le code BINGO au lieu de 104 €. Elégant avec son panneau en verre trempé, il est prêt à accueillir la configuration compacte de vos rêves. Il peut recevoir une carte mère au format Mini-ITX avec une carte graphique de 325 mm. Respectant en tout point les standards imposés par la série H, il embarque la nouvelle version du contrôleur digital Smart Device V2. Ce contrôleur intégre maintenant un microprocesseur plus rapide pour le contrôle par NZXT CAM et gère deux canaux d'éclairage HUE 2 RGB ainsi que trois canaux de ventilateur prenant en charge des ventilateurs à régulation de tension ou PWM.


> Voir l'offre
279,99 €Casque sans fil Bose Headphones 700 à 279,99 €
Valable jusqu'au 25 Janvier

Boulanger fait une promotion sur l'excellent casque sans fil Bose Headphones 700 qui passe à 279,99 € une fois ajouté au panier au lieu de 319 €. En plus d'un son incroyable, ce casque offre 11 niveaux de réduction active de bruit vous permettent de profiter de la musique, des podcasts, des vidéos et des appels, sans distraction. Un système de microphones révolutionnaire s’adapte aux environnements bruyants et venteux afin de restituer votre voix avec une clarté incroyable lors de vos appels. Vous permet également d'accéder facilement aux assistant vocaux Google et Alexa. Autonomie jusqu'à 20 heures.


> Voir l'offre
399 €Smartphone 6.67 pouces Xiaomi Mi 11i (5G, 256Go, 8Go) à 399 €
Valable jusqu'au 25 Janvier

Boulanger fait une superbe promotion sur le smartphone 6.67 pouces Xiaomi Mi 11i qui passe à 399 € au lieu de 499 €. Ce smartphone très bien équipé est compatible 5G, possède un processeur Snapdragon 888 à 8 coeurs, un écran FHD+ (2400x1080) à 120 Hz, 256 Go de stockage extensible par microSD, 8 Go de ram, 4 capteurs photos 108 mégapixels + 20 mégapixels + 8 mégapixels + 5 mégapixels et une caméra avant à 20 mégapixels. Le tout tourne sous Android 11.


> 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