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