Discussion :

[PPLILH2008]

Bonjour à tous,

J'ai un gros problème de boucle, lorsque je lance ce code, j'ai un message d'erreur "Sub ou fonction non défini"
Et là ça fait trois jours que je sèche complètement.

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
Private Sub ValidNLH()
Dim A As String
Me.CommandButton1.Visible = False
Me.CommandButton2.Visible = True
A = Me.TextBox1.Value
TextBox1.Value = Sheets((A)).Range("I3").Value
For i = 1 To 25
F1_LAB(i) = Sheets((A)).Cells(i + 6, 1)
If Sheets((A)).Cells(i + 6, 1) <> "" Then
F1_N(i).Value = True
Else
F1_LAB(i).Visible = False
F1_O(i).Value = False
F1_N(i).Value = False
F1_O(i).Visible = False
F1_N(i).Visible = False
End If
Next i
End Sub

Quelqu'un pourrait-il m'aider s'il vous plait ?

Merci d'avance

[Manu3100]

Je pense que c'est parce-que il faut déclarer les variables tel que:

Code :

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

1
2
3
F1_LAB
F1_O
F1_N

C'est pour cela qu'il est préférable de mettre

Code :

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

Option Explicit

[PPLILH2008]

Bonjour Manu,

Déjà merci beaucoup pour ta réponse et ta réactivité.
C'est vrai que ça parait logique. Maintenant mon soucis, c'est comment déclarer ces variables ?
Parce que les F1_LAB (i) sont des TextBox et les F1_O(i) et F1_N(i) sont des OptionButton .

[Manu3100]

Code :

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

1
2
3
Dim A As String
Dim F1_LAB As Variant, F1_O As Variant, F1_N As Variant
Dim i As Integer

[PPLILH2008]

Effectivement, les variables déclarées font avancer les choses. Mais maintenant, j'ai une erreur qui apparaît sur la ligne :
F1_N(i).Value = True
Erreur d'exécution '13':
Incompatibilité de type

Si je crée d'autre variables :

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
Private Sub ValidNLH2()
Dim A2 As String
Dim B2 As Variant
Dim C2 As Variant
Dim D2 As Variant
Dim F1_LAB As Variant, F1_O As Variant, F1_N As Variant
Dim i As Integer
 
 
 
Me.CommandButton1.Visible = False
 
Me.CommandButton2.Visible = True
For i = 1 To 25
 
A2 = Me.TextBox8.Value
TextBox3.Value = Sheets((A2)).Range("I3").Value
B2 = F1_LAB & (i)
C2 = F1_O & (i)
D2 = F1_N & (i)
B2 = Sheets((A2)).Cells(6 + i, 1)
 
    If Sheets((A2)).Cells(6 + i, 1) <> "" Then
    D2.Value = True
    Else
    B2.Visible = False
    C2.Visible = False
    D2.Visible = False
    C2.Value = False
    D2.Value = False
    End If
Next i
End Sub

j'obtiens un autre message d'erreur :
"Erreur d'éxecution '424':
Objet requis"

Je tourne en bourrique avec cette macro.

[Manu3100]

Je ne comprend pas très bien ce que tu veux faire,... pourrai tu mettre une piece joint?