Bonjour,
Une idée de comment traduire ce langage VBA (Excel) pour qu’il soit compatible avec Libre Office ?
J’ai un message d’erreur au niveau du FormulaLocal
’ 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.