> 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
299,99 €Portable 14 pouces Asus Vivobook (FullHD, Pentium, 4Go, SSD 128Go, Office 365) + sacoche à 299,99 €
Valable jusqu'au 01 Décembre

RueDuCommerce fait une promotion sur le PC portable 14 pouces Asus Vivobook E410MA-EK971TS qui passe à 299,99 € alors qu'on le trouve ailleurs à partir de 379 €. Ce portable possède un écran 14 pouces Full HD (1920x1080) antireflet, un processeur Intel Pentium N5030, 4 Go de RAM et un SSD de 128 Go. Le WiFi, le bluetooth et l'USB 3.1 sont de la partie. Le tout tourne sous Windows 10 que vous pouvez mettre à jour gratuitement pour Windows 11. Une bonne affaire pour un PC adapté à la bureautique, à Internet, .. pour un étudiant par exemple.

Une sacoche et Microsoft Office 365 1 an vous sont également offerts.


> Voir l'offre
128,99 €SSD Crucial P5 Plus 1 To (3D NAND, NVMe, PCIe 4.0, M.2, 6600 Mo/s) à 128,99 €
Valable jusqu'au 30 Novembre

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

Cette version Plus est compatible PCIe 4.0. Vous pouvez donc aussi l'utiliser avec la console de jeux PS5.


> Voir l'offre
38,99 €Amazon Fire TV Stick 4K Max à 38,99 €
Valable jusqu'au 01 Décembre

En ce moment, l'Amazon Fire TV Stick 4K Max est à 38,99 € livrée gratuitement au lieu de 59,99 €. Cette nouvelle clé HDMI à brancher sur votre TV possède un processeur quadricoeur, 1 Go de RAM et 8 Go d'espace de stockage, le WiFi et le bluetooth. Avec elle, vous allez pouvoir voir facilement Prime Video, Netflix, Disney+, YouTube, Molovov, MyCanal, Salto, Spotify sur votre TV 4K Ultra HD ou Full HD.

Cette nouvelle version Max possède un processeur 40% plus rapide que la version précédente, supporte le WiFi6 et est compatible Alexa. Une télécommande vocale avec des boutons pour contrôler également la TV est fournie. Elle possède des boutons pour un accès direct à Netflix, Prime Video, Disney Plus et Amazon Music. Notez que si vous avez des caméras ou une sonnette connectée Amazon, vous pouvez afficher la vidéo en direct de vos appareils.

Notez qu'il est aussi possible de coupler un casque bluetooth avec le Fire TV Stick afin de regarder tranquillement la TV sans déranger vos proches.TV.

Pour plus d'informations, n'hésitez pas à consulter notre dossier pratique dédié à la clé Fire TV Stick.


> 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