Private Sub Cmd_Usf_DI_Creer_Click()
' ********************************************************************** CREER UNE FICHE
'------------------------------------------------------ Frame Titre - Visible
Frame4.Caption = "2 - Créer une fiche d'intervention - Compléter les cases souhaitées (uniquement, cases sous fond blanc) "
Frame4.Visible = True: Frame4.Enabled = True
'------------------------------------------------------ nouveau no de la fiche d'intervention
With Sheets("Demande intervention")
TextBox1.Locked = False
If .Cells(3, 1) = "" Then '<------------------- Ici encore 6 au lieu de 3
xnofiche = 1: TextBox1 = CStr(xnofiche): TextBox1.Locked = True
Else
j = .Range("A" & Rows.Count).End(xlUp).Row
xnofiche = .Cells(j, 1) + 1: TextBox1 = CStr(xnofiche): TextBox1.Locked = True
End If
End With
End Sub