Erreur 1004 erreur définie par l'application ou par l'objet sur Call

**jauffray** · 13/10/2017, 11h33

Bonjour à tous,

j'ai une erreur "1004 erreur définie par l'application ou par l'objet" sur une fonction Call dans mon code (ligne en rouge).
je tiens à préciser que cette macro fonctionnait à la dernière utilisation du fichier et fonction dans un autre fichier.

Code :

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

1
2
3
4
5
6
7
8
Private Sub Oui_Click()

Unload alerte

Call Feuil13.EffortMB1cycle1

End Sub

please help !

**Marc-L** · 13/10/2017, 11h43

Bonjour,

il y a donc une erreur dans la procédure appelée ! Certes pouvant être déclenchée par un contexte différent.

A suivre en mode pas à pas (touche F8) pour trouver la ligne de code déclenchant l'erreur car
nous ne pratiquons pas la divination ni ne versons dans l'aruspicine ni l'extispicine et pas plus dans l'haruspicine …

___________________________________________________________________________________________________________

Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Invité · 13/10/2017, 11h45

Bonjour,
il faut que ta méthode soit défini en public!

de plus l'instruction Call n'a aucun intérêt! Feuil13.EffortMB1cycle1

Nom : Sans titre.png
Affichages : 708
Taille : 20,2 Ko

Nom : Sans titre.png
Affichages : 708
Taille : 20,2 Ko

**jauffray** · 13/10/2017, 13h29

Envoyé par dysorthographie

il faut que ta méthode soit défini en public!

c'est fait. ça ne fonctionne pas non plus

de plus l'instruction Call n'a aucun intérêt!

ok, je l'ai retiré

aucune modification

A suivre en mode pas à pas (touche F8) pour trouver la ligne de code déclenchant

j'ai beau faire F8, je ne vois aucun message d'erreur apparaître (mais je ne sais pas comment ça marche)

**joe.levrai** · 13/10/2017, 13h35

Bonjour,

peut-être qu'en nous montrant la procédure EffortMB1cycle1, en expliquant un peu son but, et éventuellement en te souvenant d'une possible modification apportée au projet, à la feuille, voir au classeur ... pourrait nous permettre de t'aider

mais là, c'est choux blanc

Invité · 13/10/2017, 13h46

dans VBA regarde dans le Menu: Outils->références et dis nous si tu as des librairies manquante?

**jauffray** · 13/10/2017, 14h32

merci pour vos efforts.

ce que je ne comprend pas, c'est que la macro fonctionne sur un fichier et pas dans un autre.
c'est toujours à l'appel de EffortMB1cycle1 que ça s'arrête.
d'après vous se serait un problème dans cette macro ?

Invité · 13/10/2017, 14h39

quand ça marche à gauche ça marche à droite!

problème environnemental? pas même machine? pas le même Excel? pas le même Windows?

d'ou mon dernier poste! si la macro fonctionne 2 fois sur 4 sur la même machine c'est un problème de code!

il faut analyser ce qui change dans le contexte.

**jauffray** · 13/10/2017, 14h44

Macro qui ne fonctionne plus :

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
 
Public Sub EffortMB1cycle1()
'
'-----changer la valeur de la contrainte MB1 en fonction de la pression du Step-----
'
pdesign = Sheets("Input").Cells(9, 5).Value 'sauvegarde de la P design en statique
ligne = 4
 
For s = 1 To 24 Step 1
    ligne = ligne + 1
    pdf = Sheets("Cycle").Cells(ligne, 3).Value
    Sheets("Input").Cells(9, 5).FormulaR1C1 = pdf
 
 
'-----saisi de la valeur dans la colonne MB1-----
    Sheets("Cycle").Cells(ligne, 4).FormulaR1C1 = Sheets("Efforts MB1").Cells(6, 10).Value
'-----saisi de la valeur de Seq des soudures si pdf est positif, sinon mettre 0
    If pdf > 0 Then
        Sheets("Cycle").Cells(ligne, 9).FormulaR1C1 = Sheets("Console MB1").Cells(26, 40).Value
        Sheets("Cycle").Cells(ligne, 10).FormulaR1C1 = Sheets("Console MB1").Cells(61, 40).Value
        Sheets("Cycle").Cells(ligne, 11).FormulaR1C1 = Sheets("Console SB1").Cells(26, 40).Value
        Sheets("Cycle").Cells(ligne, 12).FormulaR1C1 = Sheets("Console SB1").Cells(61, 40).Value
        Sheets("Cycle").Cells(ligne, 13).FormulaR1C1 = Sheets("Console SB2").Cells(26, 40).Value
        Sheets("Cycle").Cells(ligne, 14).FormulaR1C1 = Sheets("Console SB2").Cells(61, 40).Value
        Sheets("Cycle").Cells(ligne, 15).FormulaR1C1 = Sheets("Console SB3").Cells(26, 40).Value
        Sheets("Cycle").Cells(ligne, 16).FormulaR1C1 = Sheets("Console SB3").Cells(61, 40).Value
        Sheets("Cycle").Cells(ligne, 17).FormulaR1C1 = Sheets("Console SB4").Cells(26, 40).Value
        Sheets("Cycle").Cells(ligne, 18).FormulaR1C1 = Sheets("Console SB4").Cells(61, 40).Value
    Else
        For colonne = 9 To 18 Step 1
        Sheets("Cycle").Cells(ligne, colonne).FormulaR1C1 = 0
        Next colonne
    End If
Next s
 
'-----retour à la valeur de P design en statique-----
Sheets("Input").Cells(9, 5).FormulaR1C1 = pdesign
 
'-----mettre la valeur du step correspondant à la P max en S5-----
Dim Plage As Range, c As Range
With Worksheets("Cycle")
    Set Plage = .Range("C5:C28")
'    mf = Application.WorksheetFunction.Min(Plage)
    mf = Application.WorksheetFunction.Max(Plage)
    Set c = Plage.Find(mf, LookIn:=xlFormulas, lookat:=xlWhole)
'    If Not c Is Nothing Then MsgBox c.Offset(0, 0).Address
'    If Not c Is Nothing Then MsgBox c.Offset(0, -2).Value
Sheets("Cycle").Cells(5, 19).FormulaR1C1 = c.Offset(0, -2).Value
 
End With
Set c = Nothing
Set Plage = Nothing
 
Call concatenercycle1
 
End Sub

Macro qui fonctionne (un peu moins de cellule à remplir)

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
 
Sub EffortMB1cycle1()
'
'-----changer la valeur de la contrainte MB1 en fonction de la pression du Step-----
'
pdesign = Sheets("Input").Cells(9, 5).Value 'sauvegarde de la P design en statique
ligne = 4
 
For s = 1 To 24 Step 1
    ligne = ligne + 1
    pdf = Sheets("Cycle").Cells(ligne, 3).Value
    Sheets("Input").Cells(9, 5).FormulaR1C1 = pdf
 
 
'-----saisi de la valeur dans la colonne MB1-----
    Sheets("Cycle").Cells(ligne, 4).FormulaR1C1 = Sheets("Efforts MB1").Cells(6, 10).Value
'-----saisi de la valeur de Seq des soudures si pdf est positif, sinon mettre 0
    If pdf > 0 Then
        Sheets("Cycle").Cells(ligne, 8).FormulaR1C1 = Sheets("Console MB1").Cells(26, 40).Value
        Sheets("Cycle").Cells(ligne, 9).FormulaR1C1 = Sheets("Console MB1").Cells(61, 40).Value
        Sheets("Cycle").Cells(ligne, 10).FormulaR1C1 = Sheets("Console SB1").Cells(26, 40).Value
        Sheets("Cycle").Cells(ligne, 11).FormulaR1C1 = Sheets("Console SB1").Cells(61, 40).Value
        Sheets("Cycle").Cells(ligne, 12).FormulaR1C1 = Sheets("Console SB2").Cells(26, 40).Value
        Sheets("Cycle").Cells(ligne, 13).FormulaR1C1 = Sheets("Console SB2").Cells(61, 40).Value
        Sheets("Cycle").Cells(ligne, 14).FormulaR1C1 = Sheets("Console SB3").Cells(26, 40).Value
        Sheets("Cycle").Cells(ligne, 15).FormulaR1C1 = Sheets("Console SB3").Cells(61, 40).Value
    Else
        For colonne = 8 To 15 Step 1
        Sheets("Cycle").Cells(ligne, colonne).FormulaR1C1 = 0
        Next colonne
    End If
Next s
 
'-----retour à la valeur de P design en statique-----
Sheets("Input").Cells(9, 5).FormulaR1C1 = pdesign
 
'-----mettre la valeur du step correspondant à la P max en P5-----
Dim Plage As Range, c As Range
With Worksheets("Cycle")
    Set Plage = .Range("C5:C28")
'    mf = Application.WorksheetFunction.Min(Plage)
    mf = Application.WorksheetFunction.Max(Plage)
    Set c = Plage.Find(mf, LookIn:=xlFormulas, lookat:=xlWhole)
'    If Not c Is Nothing Then MsgBox c.Offset(0, 0).Address
'    If Not c Is Nothing Then MsgBox c.Offset(0, -2).Value
Sheets("Cycle").Cells(5, 16).FormulaR1C1 = c.Offset(0, -2).Value
 
End With
Set c = Nothing
Set Plage = Nothing
 
Call concatenercycle1
 
End Sub

Invité · 13/10/2017, 14h51

tu as regardé ce que j'ai dit au poste #6?

analyse le contexte du bug! quand tu poudras nous dires ça fonctionne dans tel et tel cas et dans tel et tel autre cas ça ne fonctionnements as on pourra commencer à entrevoir un diagnostique!