LibreOffice Calc convertir langage VBA excel en VBA libre office

Coralie01120

XLDnaute Occasionnel
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.
 

G.David

XLDnaute Impliqué
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
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T