Discussion :

[Kestion100]

Bonjour,
Pour un tableau, je récupère les valeurs comprises dans des caption de labels par une boucle

Code :

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

do while

:

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Private Sub CommandButton1_Click()
Select Case UserForm8.Frame1.OptionButton1.Value
Case Is = "Vrai"
i = 0
j = 0
 
Sheets("CALCULS ADM").Select
 
Lig = Range("B99:B107").End(xlUp).Offset(1, 0).Row + 98
Col = Range("A100:CJ100").End(xlToLeft).Offset(0, 1).Column
Cells(Lig, Col).Select
 
On Error GoTo Line2
 
Do While Not IsError(CDbl(Replace(UserForm8.Controls("LISSAGE2: I" & i & "J" & j).Caption, "LISSAGE2: ", "")))
 
Debug.Print IsError(CDbl(Replace(UserForm8.Controls("LISSAGE2: I" & i & "J" & j).Caption, "LISSAGE2: ", "")))
 
 
On Error GoTo Line1
 
 
 
Do While Not IsError(CDbl(Replace(UserForm8.Controls("LISSAGE2: I" & i & "J" & j).Caption, "LISSAGE2: ", "")))
 
 
 
Select Case Controls("MyTextBoxI" & i & "J" & j).Value
Case Is <> ""
Selection.Value = CDbl(Replace(UserForm8.Controls("LISSAGE2: I" & i & "J" & j).Caption, "LISSAGE2: ", "")) + Controls("MyTextBoxI" & i & "J" & j).Value
Case Is = ""
Selection.Value = CDbl(Replace(UserForm8.Controls("LISSAGE2: I" & i & "J" & j).Caption, "LISSAGE2: ", ""))
End Select
 
j = j + 1
 
Selection.Offset(0, 1).Select
 
If j = 12 Then
GoTo Line1
End If
 
Loop
 
Line1:
 
j = 0
i = i + 1
 
Loop
 
Line2:
 
 
 
Case Is = "Faux"
 
 
End Select
End Sub

(POUR L'INSTANT, JE NE GERE PAS LE CASE

Code :

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

Faux

)

Au bout d'un temps, dans la série (i;j), je n'ai plus de label

Code :

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

UserForm8.Controls("LISSAGE2: I" & i & "J" & j).Caption

, dans le cas du j, je passe au i suivant en repartant de j = 0.

Le code fonction très bien jusqu'au dernier (i;j) de la série que j'essaye de gérer par

Code :

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

Do While Not IsError(CDbl(Replace(UserForm8.Controls("LISSAGE2: I" & i & "J" & j).Caption, "LISSAGE2: ", "")))

mais qui me renvoie systématiquement l'erreur en objet de cette discussion, sans mettre fin au code.
J'ai essayé

Code :

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

On Error GoTo Line1

mais même résultat.

Comment puis-je donc sortir de cette erreur qui est "normale"?



Merci du coup de main!!!!!!

[Kestion100]

Les derniers i et j sont aléatoires

[deedolith]

Salut,

Indente ton code, c'est illisible.
Evite les sobriquets pour les noms de variable.
Nomme ton formulaire.
Nomme tes contrôles (même les boutons).
Utilise des références, histoire de raccourcir des lignes, c'est lourd à lire et source d'erreur.
L'instruction Goto, sauf pour la gestion d'erreurs, est à bannir, elle casse la logique d'exécution du code.
Ajoute Option Explicit en tête de tes modules, et déclare tes variables.
Un bon code VBA n'a quasiment jamais besoin de sélectionner ni d'activer quoi que ce soit, c'est lent et ça fait ressembler ton classeur à un sapin de Noël.

J'ai re-ecrit ton code afin qu'il soit plus correcte:

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Private Sub CommandButton1_Click()
	Select Case UserForm8.Frame1.OptionButton1.Value
	Case Is = "Vrai"
		Dim i As Integer
		i = 0
 
		Dim j As Integer
		j = 0
 
		Dim Wb As Excel.workbook
		Set Wb = ThisWorkbook
 
		Dim Ws As Excel.Worksheet
		Set Ws = GetWorksheet("CALCULS ADM")
 
		Dim Ligne As Long
		Ligne = Ws.Range("B99:B107").End(xlUp).Offset(1, 0).Row + 98
 
		Dim Colonne As Integer
		Colonne = Ws.Range("A100:CJ100").End(xlToLeft).Offset(0, 1).Column
 
		Dim Cellule As Excel.Range
		Set Cellule = Ws.Cells(Ligne, Colonne)
 
		On Error GoTo Line2
		Dim Ctrl As Control
		Set Control = Me.UserForm8.Controls("LISSAGE2: I" & i & "J" & j)
		Do While Not IsError(CDbl(Replace(Control.Caption, "LISSAGE2: ", "")))
			Debug.Print IsError(CDbl(Replace(Control.Caption, "LISSAGE2: ", "")))
			On Error GoTo Line1
			Do While Not IsError(CDbl(Replace(Control.Caption, "LISSAGE2: ", "")))
				Select Case Controls("MyTextBoxI" & i & "J" & j).Value
				Case Is <> ""
					Cellule.Value = CDbl(Replace(Control.Caption, "LISSAGE2: ", "")) + Controls("MyTextBoxI" & i & "J" & j).Value
				Case Is = ""
					Cellule.Value = CDbl(Replace(Control.Caption, "LISSAGE2: ", ""))
				End Select
				j = j + 1
				Set Cellule = Cellule.Offset(0, 1).Select
				If j = 12 Then
					Exit Do
				End If
			Loop
Line1:
			j = 0
			i = i + 1
		Loop
Line2:
	Case Is = "Faux"
	End Select
End Sub
 
private Function GetWorksheet(byVal Name as string) As Excel.Worksheet
	Dim Wb As Excel.Workbook
	Set Wb = ThisWorkbook
 
	Dim Ws As Excel.Worksheet
	Set Ws = Wb.Worksheets(Name)
 
	Set GetWorksheet = Ws
End Function

Quand à ton erreur, je pense que tu ne réinitialise pas j au bon endroit.
Si tu colles des points d'arrêt, que tu exécute en mode pas à pas, et que tu utilises des espions (en clair: Utiliser le debugger), tu t'en rendras compte.

[Kestion100]

Merci pour la modification de mon code qui est bien plus clair ainsi.

J'ai trouvé une solution avec un compteur en connaissant le nombre max de (i;j) indépendamment du nombre de i et du nombre de j.