Discussion :

[boldair67]

Bonjour à tous,

J'aimerai connaitre un peu plus la portée et le mode de fonctionnement d'une procédure dans un USF et d'un module.

J'ai le problème suivant :

Sur un USF, bouton click je lance la procédure suivante

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
Private Sub cmdPztliste_Click()
 
Dim derniereligne As String
 
On Error Resume Next
 
With Worksheets("historik").Activate
    derniereligne = Range("A1").End(xlDown).Row + 1
 
  With Cells(derniereligne, 1)
   If Len(.Value) = 0 Then ' ID
    .Value = Application.WorksheetFunction.Max(Columns(1)) + 1
   End If
  End With
 
    Cells(derniereligne, 2) = Date
    Cells(derniereligne, 3) = Environ("Username")
    Cells(derniereligne, 4) = USFEintrag.Auftragnr
    Cells(derniereligne, 5) = USFEintrag.HeftNr
    Cells(derniereligne, 6) = USFEintrag.Objekt
    Cells(derniereligne, 7) = USFEintrag.Split
    Cells(derniereligne, 8) = USFEintrag.Auflagegesamt
    Cells(derniereligne, 9) = USFEintrag.belege
    Cells(derniereligne, 10) = USFEintrag.Verpackung
    Cells(derniereligne, 11) = USFEintrag.ExVB
    Cells(derniereligne, 12) = USFEintrag.VBlage
    Cells(derniereligne, 13) = USFEintrag.Lage
    Cells(derniereligne, 16) = USFEintrag.Adresse.Column(0)
    Cells(derniereligne, 17) = USFEintrag.Adresse.Column(1)
    Cells(derniereligne, 18) = USFEintrag.Adresse.Column(2)
End With
 
Call calcul   <------------------------
 
End Sub

A la fin (ligne 33) j'appel une autre procédure qui est dans un module ...

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
59
60
61
62
63
64
65
66
67
68
69
70
Option Explicit
 
Public Sub calcul()
 
Dim xlapp       As Excel.Application
Dim xlsheet     As Excel.Worksheet
Dim xlBook      As Excel.Workbook
Dim X           As Integer
Dim anzahlPal   As Integer
Dim Auflage As Long, exPal As Long, ExVB As Long, VBlage As Long, lagPal As Long
Dim aufTrag As String, matchCode As String, Split As String, Verpackung As String
Dim Adresse As String, straSse As String, oRt As String
Dim belege As Long, auflageohne As Long
 
'On Error GoTo gestionerreur
 
Set xlapp = Excel.Application
Set xlBook = xlapp.ActiveWorkbook
 
If USFEintrag.belege = "" Then USFEintrag.belege.Value = "0" Else
 
aufTrag = USFEintrag.Objekt
matchCode = USFEintrag.Auftragnr & " / " & USFEintrag.HeftNr
Split = USFEintrag.Split
Auflage = USFEintrag.Auflagegesamt
belege = USFEintrag.belege
Adresse = USFEintrag.Adresse.Column(0)
straSse = USFEintrag.Adresse.Column(1)
oRt = USFEintrag.Adresse.Column(2)
auflageohne = Auflage - belege
Verpackung = USFEintrag.Verpackung
 
Select Case USFEintrag.ExVB
        Case Is = ""
            anzahlPal = InputBox("Anzahl von Paletten")
            If anzahlPal < 1 Then
            MsgBox "Ich brauche min. 1 Pal."
            Exit Sub
            Else
            End If
 
        Case Else
            ExVB = USFEintrag.ExVB
            If USFEintrag.VBlage = "" Then USFEintrag.VBlage.Value = "1" Else
            If USFEintrag.Lage = "" Then USFEintrag.Lage.Value = "1" Else
            exPal = ExVB * VBlage * lagPal
            anzahlPal = WorksheetFunction.RoundUp((auflageohne / exPal), 0)
 
End Select
 
 
'Ajouter une feuille de calcul
    Set xlsheet = xlBook.Worksheets.Add
    xlsheet.name = "pzt_Liste"             <------------------------------
 
'le titre - Entete
    xlsheet.Cells(1, 1) = "Auftrag"
    xlsheet.Cells(1, 2) = matchCode & "_" & aufTrag
    xlsheet.Cells(2, 1) = "Split"
    xlsheet.Cells(2, 2).NumberFormat = "@"
    xlsheet.Cells(2, 2) = Split
    xlsheet.Cells(2, 4) = "Auflage"
    xlsheet.Cells(2, 5) = Auflage
    xlsheet.Cells(2, 5).NumberFormat = "###,###"
    xlsheet.Cells(2, 8).FormulaLocal = "=summe(B:B)"
    xlsheet.Cells(2, 8).NumberFormat = "###,###"
    xlsheet.Cells(1, 7) = Date$
    xlsheet.Cells(1, 8) = Time$
    xlsheet.Cells(1, 9) = Environ("Username")
    xlsheet.Cells(3, 1) = "Palette Nr."

Si j'avance dans le déroulement avec F8, d'un coup à la ligne 54, la procédure retourne BIZARREMENT dans la procédure de l'USF

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Call calcul
 
End Sub

Et me stoppe le déroulement du module ....

Là je butte sur un OS, que faire et où ???

Merci pour votre aide

[Philippe PONS]

Salut,

peut être un problème du aux événements de la feuille de calcul.

avant de lancer calcul, ajoute:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Application.EnableEvents=False
Call Calcul

Et réactive les événements à la sortie de calcul.
Cordialement,

[boldair67]

Merci pour ta contribution Philippe.

Malheureusement ca coince au même endroit ...

[Slooby]

Bonjour Boldair,

Je vois que ça bloque quand tu crées une nouvelle feuille, c'est bien ça ?
Dans ce cas, regarde du côté de l'UserForm. Il doit être Modal et dans ce cas c'est possible que ça rentre en conflit avec la nouvelles feuille.

[Invité]

Bonjour,
Enlevé le on error resume Next et tu pourras nous donner plus d'informations sur ton problème!

Quel drôle d'idée affecter à des objets ou des variables des instructions vba!

Split = USFEintrag.Split

[boldair67]

Merci à vous pour votre implication.

Effectivement le soucis provient quand je crée une nouvelle feuille: xlsheet.name "pzt_liste"
L'USF n'est pas en modal, car j'ai parfois besoin d'accéder à l’arrière plan. Pour imprimer la feuille crée, entre autre.
Si j'arrive à la créer

Je vais enlever, dès lundi la gestion d'erreur, je pensais les avoir toutes désactivées... grrr

@rdurupt : Oups, c'est pas voulu la variable SPLIT. Dans mon domaine d’activité en Allemagne ça signifie Repéré/Version.
Je vais également renommé cette variable. Ça évitera des soucis par la suite.

A lundi pour de nouvelles aventures

[boldair67]

Bonjour le Forum,

Merci à tous pour votre aide.
J'ai enfin réussi à règler mon souci.

je ne saurais dire exactement ou était le problème. Je pense qu'ils en avaient plusieurs.

J'ai modifié "SPLIT" par "verSSion".
J'ai aussi modifié l'appel des différents modules ou actions dans les modules, qui étaient mal nommé ...
Nettoyé un peu les codes et tout fonctionne à merveille.

Je continu avec ma petite programmation ....

Nouveau défit, création et gestion de CODE à BARRE.
Quelqu'un à l'adresse d'un tuto ?