LibreOffice Calc convertir langage VBA excel en VBA libre office

[Coralie01120]

Bonjour,

Une idée de comment traduire ce langage VBA (Excel) pour qu'il soit compatible avec Libre Office ?

' ETAPE 3 : ajouter les donn?es dans Suivi_Nespresso
With Sheets("Suivi_Nespresso")
.Activate
DerLigne = Range("A" & Rows.Count).End(xlUp).Row
' Qualit? carton
.Range("F7").FormulaLocal = "=SIERREUR(RECHERCHEV(""""&B7;Extraction_AS400!$A$2:$Z$500000;17;FAUX);"""")"
.Range("F7").AutoFill .Range("F7:F" & DerLigne)
' Grammage
.Range("G7").FormulaLocal = "=SIERREUR(RECHERCHEV(""""&B7;Extraction_AS400!$A$2:$Z$500000;16;FAUX);"""")"
.Range("G7").AutoFill .Range("G7:G" & DerLigne)
' Format
.Range("H7").FormulaLocal = "=SIERREUR(RECHERCHEV(D7;Donn?es!$B$3:$C$12;2;FAUX);"""")"
.Range("H7").AutoFill .Range("H7:H" & DerLigne)
' Couleurs RECTO
.Range("I7").FormulaLocal = "=SIERREUR(RECHERCHEV(""""&B7;Extraction_AS400!$A$2:$Z$500000;7;FAUX);"""")"
.Range("I7").AutoFill .Range("I7:I" & DerLigne)
' Vernis RECTO
.Range("J7").FormulaLocal = "=SIERREUR(RECHERCHEV(""""&B7;Extraction_AS400!$A$2:$Z$500000;9;FAUX);"""")"
.Range("J7").AutoFill .Range("J7:J" & DerLigne)
' remplacement des formules par les valeurs
Columns("F:J").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End With
End Sub

Merci pour votre aide.

 

[kiki29]

Salut, est-ce que cela t'aidera ?

 

[Coralie01120]

Bonjour,

Merci pour votre retour. Cela ne fonctionne pas.
Auriez vous une idée pour convertir une ligne avec une formule "FormulaLocal" ?

Merci pour votre aide,

 

[soan]

Bonjour Coralie,

Au lieu de .FormulaLocal , essaye en mettant juste .Formula ;
je ne peux pas t'aider plus sur ce sujet.

soan

 

[kiki29]

Re, à lire : https://docs.microsoft.com/fr-FR/office/vba/api/Excel.Range.FormulaLocal

 

[G.David]

pour lancer une macro Ecxel dans libre offics ; en première ligne mettre le code
option VBAsupport 1
attention pour revenir sous excel mettre un rem devant sinon sous excel le code plantera , ce code n'est que pour tourner sous libre office