Bonjour a tous,

j'ai une erreur objet requis sur le code suivant:



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
Option Explicit
  Public Code As Variant
...
Sub Principale
 
...
If Ordre_AV = Visible Or Ordre_AR = Visible Or Ordre_G = Visible Or Ordre_D = Visible Then
 
        ActiveCell.Offset(0, 9).Value = Code_chant_AV.Text
        ActiveCell.Offset(0, 10).Value = Code_chant_AR.Text
        ActiveCell.Offset(0, 11).Value = Code_chant_G.Text
        ActiveCell.Offset(0, 12).Value = Code_chant_D.Text
 
 
 
        Call essai
 
        ActiveCell.Offset(0, 13).Text = Code
 
        Stop
 
        End If
 
End Sub

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
 
Sub essai()
Dim Var_AV As Integer, Var_AR As Integer, Var_G As Integer, Var_D As Integer
Dim Var_AV1 As Integer, Var_AR1 As Integer, Var_G1 As Integer, Var_D1 As Integer
Dim av As String, ar As String, d As String, g As String
 
Var_AV = Left(Right(zone1.Code_chant_AV.Text, 2), 1)
If Var_AV = 2 Then
Stop
Var_AV1 = zone1.Ordre_AV.Text * 10
Else
Var_AV1 = zone1.Ordre_AV.Text
End If
Var_AR = Left(Right(zone1.Code_chant_AR.Text, 2), 1)
If Var_AR = 2 Then
Var_AR1 = zone1.Ordre_AR.Text * 10
Else
Var_AR1 = zone1.Ordre_AR.Text
End If
Var_G = Left(Right(zone1.Code_chant_G.Text, 2), 1)
If Var_G = 2 Then
Var_G1 = zone1.Ordre_G.Text * 10
Else
Var_G1 = zone1.Ordre_G.Text
End If
Var_D = Left(Right(zone1.Code_chant_D.Text, 2), 1)
If Var_D = "2" Then
Var_D1 = zone1.Ordre_D.Text * 10
Else
Var_D1 = zone1.Ordre_D.Text
End If
Stop
av = Var_AV1: ar = Var_AR1: g = Var_G1: d = Var_D1
Dim Chant_Mixte(1 To 45, 1 To 45, 1 To 45, 1 To 45)
Chant_Mixte(1, 2, 30, 40) = "033;033;044;044"
Chant_Mixte(30, 40, 1, 2) = "044;044;033;033"
Code = Chant_Mixte(av, ar, g, d)
Stop
End Sub

J'ai bien ma variable "Code" dans la procedure essai qui stock la valeur que j'ai besoin, mais dans la procedure Principale la variable Code me met un erreur Objet requis et je ne trouve pas pourquoi, j'ai bien regardé je n'ai pas vu de faute de frappe ce coup ci, mais sait on jamais!