Bonjour a tous ,
Premièrement J’espère que je suis dans la bonne section . je ne suis pas tres familier avec les forums mais je ferai de mon mieux pour bien présenter mon problème.
Je voudrait l'utiliser sur un pc roulant sur Ubuntu et LibreOffice 5.3.2.2.
J'avais lu que libreoffice supportait les macro vba de excel mais j'aurais du faire plus de recherche .loll.
J'ai passer beaucoup de temps a monter ce petit programme en utilisant des exemple sur le net, ce n'est pas tout a fait au point mais bon je débute.
J'ai passer plusieurs heure à faire des recherche et des testes pour le faire fonctionner mais sans succès .
En gros ce programme sert pour définir une séquence d'assemblage .
Fonction des boutons;
Ajouter à la liste ; sert a ajouter le no de commande, taper dans le zone de texte, à la fin de la liste.
Lot complété : sert à retirer la commande qui est en production( afficher dans la boite jaune). La commande
Retirer le lot sélectionné: Sert a effacer un lot si il n'est plus nécessaire.
Voici la description des problème que je rencontre.
1. je peut ouvrir sans problème le fichier Je suis arriver à le faire fonctionner en ajoutant la ligne de compatibilité (option VBA support) au début des Macros.
mais ce n'est pas encore au point.
2. Mon plus gros problème est lors de la sauvegarde deux option de format de sauvegarde sont offert ODF ou Format excel 2007-2016 (macro Possible)
2a. si je sauvegarde sous le format ODF j'ai des erreur 91 .
2b. sous le format excel avec macro possible tout mes boite et mes boutons disparaisse ,j'ai essayé de les remettre mais encore la elle disparaisse après chaque sauvegarde .
3. J'ai aussi remarqué un délais lors de l'exécution du programme.(exemple si on clic sur lot complété , il y a 3-5 seconde de délais avant que le chiffre change dans la boite jaune .
Voici une copie du document et le code (J'espère que je l'ai bien balisé)
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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58 Rem Attribute VBA_ModuleType=VBADocumentModule Option VBASupport 1 Sub Add() Rows("2:2").Insert shift:=xlDown Range("A3:C3").Copy Range("A2:C2").PasteSpecial (xlPasteFormats) Range("B2") = Now Range("a2") = TextBox1.Text Recalculate End Sub Sub Complete() ActiveCell.Offset(0, 2) = Now Rows(ActiveCell.Row).EntireRow.Delete Recalculate End Sub Sub CompleteWithDelete() Rows(ActiveCell.Row).EntireRow.Delete Recalculate End Sub Sub Recalculate() SelectFirstBlankCell Label3.Caption = ActiveCell.Offset(0, -2) End Sub Public Sub SelectFirstBlankCell() Dim sourceCol As Integer, rowCount As Integer, currentRow As Integer Dim currentRowValue As String sourceCol = 3 'column F has a value of 6 rowCount = Cells(Rows.Count, sourceCol).End(xlUp).Row 'for every row, find the first blank cell and select it For currentRow = 30000 To 1 Step -1 currentRowValue = Cells(currentRow, sourceCol).Value If (IsEmpty(currentRowValue) Or currentRowValue = "") And (Cells(currentRow, 2).Value <> "") Then Cells(currentRow, sourceCol).Select Exit For End If Next End Sub Private Sub Label1_Click() End Sub Private Sub Label2_Click() End Sub Private Sub TextBox1_Change() End Sub
Je sais que ce n'est pas la plus belle feuille de calcule que vous aurez vue mais j'ai vraiment travailler très fort et je commence a manquer de temps .
merci de votre aide et de votre compréhension.
Partager