Convertir macro vba en basic pour Calc

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

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 :

S�lectionner tout - Visualiser dans une fen�tre � part

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�.






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

Envoy� par delium55

Pour les cellules A15- - C17; est-ce que tu as inscrit les donn�es manuellement ou tu as utiliser des formules?

Hello,


Ami calmant, J.P