Dennnisss
XLDnaute Occasionnel
Bonsoir a tous
Dans ce petit code j'ai un userform qui possede 30 textbox
Il commence a 1 jusqu'a 15 et continue de 19 a 33 donc = 30 textbox
Dans ce petit code la boucle fait tous les textbox
Moi ce que je veus si j'elimine les text box 13 , 14 , 15 et textbox 31 ,32 ,33
alors je modifie ma boucle a ne pas aller plus loin de la ligne 7 a 10 soit variable I
donc il me donne une erreur sur la ligne de code
.Cells(I, 5 + Offset + j + K) = Val(Controls("textbox" & CStr(Box)))
pour la variable K pouvez-vous me definir ou me decrire se quel fait
svp
Merci de votre aide , je n,ai pas envoyer le userform car trop volumineux , si au besoin je vais tenter de minimiser le userform si besoin pour mieux comprendre
merci dennnisss
With Feuil25
Box = 1
For K = 0 To 9 Step 9
For I = 7 To 11
For j = 1 To 3
.Cells(I, 5 + Offset + j + K) = Val(Controls("textbox" & CStr(Box)))
Box = Box + 1
If Box = 16 Then Box = 19
Next j
Next I
Next K
End With
'
A = MsgBox("Etes vous d'accord avec la saisie : ", vbYesNo, "Vérification saisie")
If A = 7 Then Exit Sub
With Feuil25
Dans ce petit code j'ai un userform qui possede 30 textbox
Il commence a 1 jusqu'a 15 et continue de 19 a 33 donc = 30 textbox
Dans ce petit code la boucle fait tous les textbox
Moi ce que je veus si j'elimine les text box 13 , 14 , 15 et textbox 31 ,32 ,33
alors je modifie ma boucle a ne pas aller plus loin de la ligne 7 a 10 soit variable I
donc il me donne une erreur sur la ligne de code
.Cells(I, 5 + Offset + j + K) = Val(Controls("textbox" & CStr(Box)))
pour la variable K pouvez-vous me definir ou me decrire se quel fait
svp
Merci de votre aide , je n,ai pas envoyer le userform car trop volumineux , si au besoin je vais tenter de minimiser le userform si besoin pour mieux comprendre
merci dennnisss
With Feuil25
Box = 1
For K = 0 To 9 Step 9
For I = 7 To 11
For j = 1 To 3
.Cells(I, 5 + Offset + j + K) = Val(Controls("textbox" & CStr(Box)))
Box = Box + 1
If Box = 16 Then Box = 19
Next j
Next I
Next K
End With
'
A = MsgBox("Etes vous d'accord avec la saisie : ", vbYesNo, "Vérification saisie")
If A = 7 Then Exit Sub
With Feuil25