> 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
72,99 €Kit de 16 Go (2 x 8 Go) de mémoire DDR4 Crucial Ballistix 3200 MHz à 72,99 €
Valable jusqu'au 25 Octobre

Amazon fait une promotion sur le kit de 16 Go (2x8 Go) de mémoire DDR4 Crucial Ballistix 3200 MT/s CL16 qui passe à 72,99 € alors qu'on le trouve ailleurs à partir de 100 €. 


> Voir l'offre
309,99 €Ecran PC 32 pouces incurvé Samsung G5 (WQHD, 144 Hz, 1 ms) à 309,99 €
Valable jusqu'au 25 Octobre

Amazon fait une promotion sur l'écran PC Samsung 32 pouces incurvé LC32G53TQWUXEN à 309,99 € alors qu'on le trouve ailleurs à partir de 359 €. Cet écran incurvé de 32 pouces offre une définition WQHD de 2560x1440 pixels et est compatible FreeSync Premium avec un taux de réponse de 1 ms et un rafraichissement de 144 Hz. La livraison est gratuite.


> Voir l'offre
349,99 €Ecran 34 pouces incurvé LG Ultragear 34GN73A-B (IPS, QHD, 144 Hz, HDR10, FreeSync/GSync) à 349,99 €
Valable jusqu'au 25 Octobre

Amazon fait une belle promotion sur l'écran incurvé LG 34 pouces LG Ultragear 34GN73A-B qui passe à 349,99 € livré gratuitement. On le trouve ailleurs à partir de 449 €. Cet écran possède une dalle incurvée 34 pouces IPS QHD (2560x1440) à 144 Hz, un temps de réponse de 1 ms. Il est compatible FreeSync et GSync. Il dispose d'entrées HDMI et DP.


> 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