Bonjour
Pour des précisions sur ton programme demandes à celui qui te l'a fait
Pour ajouter des Labels ou Des TextBox
Il faut qu'ils se nomment de la même manière et que leurs numéro se suivent sans trou
Label1, Label2 .... Label500
TextBox1, TextBox2 .... ,TextBox25
Ensuite changes les valeurs
Dim label(53) As New Classe1
Dim Kase(13) As New Classe1
Private Sub userform_Initialize()
Dim I As Byte
'initialisation du module de classe
For I = 1 To 53
Set label(I).labs = Controls("Label" & I)
label(I).Init Me
Next I
For I = 1 To 13
Set Kase(I).Tbox = Controls("TextBox" & I)
'label(I).Init Me
Next I
Numero = 1
If CloseMode = 0 Then Cancel = True
End Sub
Si tu veux que le code continue à fonctionner ne le modifies pas si tu ne sais pas
Tu n'avais pas non plus remis la déclaration de la variable Numéro (voir dans un Module)
Ensuite pour tes touches il faut interpréter l'action qui doit être faite, mais cela dépasse mes compétences
Un essai pour la touche Tab et La touche Maj