Discussion :

[taktin]

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.

[taktin]

Bonjour,

je n'y comprend rien mais bon..Svp avant de me juger n'oubliez pas que je suis débutant

Ce matin j'ai ouvert mon programme et enregistrer sous un autre nom.odf pour faire conserver mon original.xlsm pour voir si je pouvais corrigé le problème de boite et bouton qui disparaisse après une sauvegarde.

Surprise ...cette fois l'apparence de mon projet n'avait pas changer ; mes boites et bouton étais restées en place. (même mon projet en xlsm fonctionnait).

J'essaie d'entrer une nouveau numéro de lot et appuis sur le bouton pour l'ajouter a la liste ça marche .( je même sentais la la fois frustrer et heureux de voir que ça fonctionnait enfin) même si je n'avait rien changé. J'utilise toujours une copie du projet original a chaque fois que je travaille dessus.

Je décide alors de faire quelques changement sur l'apparence , couleur ,police ..., rien de très important.

Je sauvegarde mon projet et le ré-ouvre pour m'assurer que tout est toujours fonctionnel .

bhaam !!! retour à la case départ je me tape des erreurs 91

Je ne sais vraiment pas ce que je fait de travers mais j’aimerais vraiment comprendre .

aidez moi SVP