Code VBA ne fonctionnant pas sur libreOffice

Y compris Writer et toute autre question en lien avec les suites bureautiques Open Source
G
GeGaX
Jeune membre
Jeune membre
Messages : 25
Inscrit le : 24 août 2014
Version d'Excel : MAC 2011 FR

Message par GeGaX » 27 août 2014, 22:25

Bonjour,
Le code ci dessous fonctionne sur Excel 2011 (Mac) mais pas sur LibreOffice ... (Application à jour)
Sub Compo_100_M()
    Range("K15").Value = "100 % M"
    Range("I24").FormulaLocal = "=I15"
    Range("I30").ClearContents
End Sub
Une idée de ce qui va pas ?
Merci
Cdlt
GeGaX
Avatar du membre
Mytå
Membre impliqué
Membre impliqué
Messages : 1'536
Inscrit le : 28 novembre 2009
Version d'Excel : Excel 2003, 2007, 2010, 2016

Message par Mytå » 31 août 2014, 04:12

Salut le Forum

Normal, ce n'est pas le même langage de programmation pour les deux applications.
REM  *****  BASIC  *****

Option VBASupport 1
Option Compatible

Sub Compo_100_M()
    Range("K15").Value = "100 % M"
    Range("I24").Formula  = "=I15"
    Range("I30").ClearContents
End Sub
Mytå
Même des personnes qui étaient très actives auparavant
peuvent soudainement ne plus avoir le goût de participer du tout . . .
G
GeGaX
Jeune membre
Jeune membre
Messages : 25
Inscrit le : 24 août 2014
Version d'Excel : MAC 2011 FR

Message par GeGaX » 3 septembre 2014, 13:58

Merci beaucoup ;))

Je reviendrais sur ce salon quand ma feuille sera 100% fonctionnelle sur excel.
J'aurais surement beaucoup de questions à vous poser (sur LibreOffice, j'ai des menus déroulants qui ne fonctionnent pas / une mise en forme conditionnelle qui ne fonctionne pas (et toutes les autres sont OK ?! ) et quasi tous le code VBA c'est surement de petits problèmes de syntaxes comme ci dessus ...)

Je laisse le post ouvert et reviens très bientôt
Merci
Cdlt
GeGaX
Avatar du membre
Mytå
Membre impliqué
Membre impliqué
Messages : 1'536
Inscrit le : 28 novembre 2009
Version d'Excel : Excel 2003, 2007, 2010, 2016

Message par Mytå » 3 septembre 2014, 23:54

Re le Forum

Tu n'auras jamais un fichier 100% compatible Excel - OpenOffice.

Il y a trop de différence au niveau du VBA et du Basic

Mytå
Même des personnes qui étaient très actives auparavant
peuvent soudainement ne plus avoir le goût de participer du tout . . .
G
GeGaX
Jeune membre
Jeune membre
Messages : 25
Inscrit le : 24 août 2014
Version d'Excel : MAC 2011 FR

Message par GeGaX » 4 septembre 2014, 00:02

ca casse pas 3 pattes a un canard voici a quoi ressemble le peut de code que j'ai
Sub Base_Veterans()
    Range("I20:I33, I35:I48, I50:I60").ClearContents
    Range("L20:L33, L35:L48, L50:L60").ClearContents
End Sub
Sub Compo_100_M()
    Range("K15").Value = "100 % M"
    Range("I24").Formula = "=I15"
    Range("I30").ClearContents
End Sub
Sub Compo_75_M_25_D()
    Range("K15").Value = "75 % M - 25 % D"
    Range("I24").Formula = "=I15*(3/4)"
    Range("I30").Formula = "=I15*(1/4)"
End Sub
Sub Compo_50_M_50_D()
    Range("K15").Value = "50 % M - 50 % D"
    Range("I24").Formula = "=I15*(1/2)"
    Range("I30").Formula = "=I15*(1/2)"
End Sub
Sub Compo_25_M_75_D()
    Range("K15").Value = "25 % M - 75 % D"
    Range("I24").Formula = "=I15*(1/4)"
    Range("I30").Formula = "=I15*(3/4)"
End Sub
Sub Compo_100_D()
    Range("K15").Value = "100 % D"
    Range("I24").ClearContents
    Range("I30").Formula = "=I15"
End Sub
Sub Flanc_Gauche()
    Range("I11").Value = "FLANC GAUCHE"
    Range("O75").Value = 0
End Sub
Sub Flanc_Centre()
    Range("I11").Value = "FLANC CENTRAL"
    Range("O75").FormulaLocal = "=SI((K75+K76+I7+E6)+(K67-K6)>=0;(K75+K76+I7+E6)+(K67-K6);0)"
End Sub
Sub Flanc_Droit()
    Range("I11").Value = "FLANC DROIT"
    Range("O75").Value = 0
End Sub
Sub RAZ()
    ' % BAILLI / % BASE & % COMMANDANT
    Range("E5:E9").Value = 0
    Range("I5, I7, I9").Value = 0
    Range("K5:K9").Value = 0
    ' FLANC & COMPO
    Range("I11").MergeArea.ClearContents
    Range("I15").ClearContents
    Range("K15").MergeArea.ClearContents
    ' SOLDATS
    Range("I20:I33, I35:I48, I50:I60").ClearContents
    Range("L20:L33, L35:L48, L50:L60").ClearContents
    ' ENGINS ATTAQUE
    Range("D66, D72:D74").Value = "::: MURS :::"
    Range("D67, D75:D76").Value = "::: PORTES :::"
    Range("D68, D77").Value = "::: DOUVES :::"
    Range("D69, D78:D80").Value = "::: DISTANCES :::"
    Range("I66, I72:I74").Value = 0
    Range("I67, I75:I76").Value = 0
    Range("I68, I77").Value = 0
    Range("I69").Value = 0
End Sub
Sub Cmdt_Melee()
    Range("K5:K7, K9").Value = 0
    Range("K8").Value = 0.45
End Sub
Sub Cmdt_Mixte()
End Sub
Sub Cmdt_Distant()
    Range("K6, K8").Value = 0
    Range("K5").Value = 0.3
    Range("K7").Value = 0.22
    Range("K9").Value = 0.22
End Sub
Et je pense que c'est mal écrit mais bon c'est fonctionnel ;)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message