Convertir macro vba en basic pour Calc

Bonjour à tous et toutes,

J'ai récupéré une macro d’un fichier Excel, et j'ai donc besoin de l'adapter/convertir le code (VBA) en code Basic pour Calc de LibreOffice.

Le projet initial comportait 2 fichiers*: Beerxcel et Beerxcel_stock_v2
J’ai renommé Beerxcel en Beerxcel_LO et j’y ai intégré la feuille «*Stock «*de Beerxcel_stock_v2 et l’ai renommé «*Inventaire - Stock*» car Beerxcel contenait déjà une feuille nommée «*Stock*»

En cliquant sur le bouton «*Retirer du stock*» sur la feuille Stock cette macro permet:
1) De mettre à jour l’inventaire sur la feuille «*Inventaire - Stock

Votre aide serait grandement appréciée.

Macro en VBA

[CODE]Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
openWB = IsWorkBookOpen("\Beerxcel_LO_stock_v2.ods")
If openWB Then
Set stockWB = Workbooks("\Beerxcel_LO_stock_v2.ods")
Else
stockWB_file = ThisWorkbook.Path & "\Beerxcel_LO_stock_v2.ods"
Set stockWB = Workbooks.Open(Filename:=stockWB_file)
End If
Set stockWS = stockWB.Worksheets("Stock")
For Each cell In stockWS.Range("C6:C32")
cell.Value = cell.Value - Me.Cells(cell.Row, 6).Value
Next cell
If openWB Then
Else
stockWB.Save
stockWB.Close
End If
Application.ScreenUpdating = True
End SUB[CODE]

Hello,
il manque un / dans la dernière balise CODE.
Un ou plusieurs classeurs de test sans données confidentielles en pièces jointes seraient les bienvenus pour pouvoir t'aider
Ami calmant, J.P

Bonjour Jurassic Pork,

Merçi de prendre le temps pour mon problème.

Ci-joint le fichier demandé.

Mieux vaut laisser tomber le VBA
Pour ouvrir un classeur : :faq:
https://openoffice-libreoffice.devel...bleur-existant

Hello,
delium55, d'après ce que j'ai vu dans ton classeur, c'est un classeur d'origine Excel et dedans il y a des macros en support VBA ce qui fait un gloubi-boulga de macros. Cela me paraît compliqué de migrer tout le classeur Excel en classeur LibreOffice vu le nombre de macros et de formules. En plus tu veux supprimer le classeur qui est liée et le remplacer par des feuilles dans ton classeur, mais il y a des formules liées qu'il faudra aussi adaptées. Pour avoir quelque chose de propre, il faudrait partir d'un classeur ods sans macro, y ajouter les données et réécrire toutes les macros et cela demande une connaissance assez poussée.
En plus il y a des choses incohérentes dans ton classeur :
1 - La feuille Inventaire - Stock est protégée en écriture -> Comment veux-tu alors la mettre à jour quand tu retires des choses ?
2 - Dans la feuille stock il n'y a pas les grains qui sont dans dans la feuille Brassage ( ex : Malterie de la rivière).
Si la Feuille Inventaire - Stock n'est pas protégée en écriture voici un code qui met à jour le stock de grains dans l'inventaire en fonction des grains utilisés pour le brassage :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Retirer_Grains() Dim oDoc As Object, arrA As Variant, arrInv As Variant, i as Long GlobalScope.BasicLibraries.loadLibrary("ScriptForge") oDoc = CreateScriptService("Calc", ThisComponent) ' Récupère les valeurs comme tableaux arrA = oDoc.GetValue("Stock.F6:F32") 'Grains utilisés arrInv = oDoc.GetValue("Inventaire - Stock.C6:C32") 'Grains en Stock ' Boucle sur chaque élément ' Boucle sur chaque ligne For i = LBound(arrA) To UBound(arrA) If IsNumeric(arrA(i)) And IsNumeric(arrInv(i)) Then arrInv(i) = arrInv(i) - arrA(i) End If Next i oDoc.SetArray("Inventaire - Stock.C6",arrInv) ' C6 est la cellule Cible à partir de laquelle on va écrire les valeurs (en vertical) oDoc.Dispose() End Sub

---

Ce code utilise la bibliothèque ScriptForge présente dans LibreOffice depuis 7.2. Si la version utilisée de LibreOffice est plus ancienne ou si c'est OpenOffice qui est utilisée il faut utiliser un autre code qui sera certainement plus compliqué.


Pièce jointe 669566

Pièce jointe 669568

sous quel environnement travailles-tu ? Windows ? Linux ? Mac ?

En tout cas si ton but est de réaliser des recettes de brassage , il existe un logiciel gratuit avec base de données qui tourne sous windows, linux, mac : c'est brewtarget ( et en plus il existe en traduction française).

Ami calmant, J.P