nonodao
XLDnaute Nouveau
Bonjour,
dans la macro ci-dessous à la ligne 10, je suis obligé d'écrire xType + 1 et non xType sinon excel me prend toujours TYPE_10 au lieu de TYPE_11 ou TYPE_11 au lieu de 12 ainsi de suite.
Auriez vous une explication?
ps : c'est une adaptation d'une macro que je fais mais étant novice en VBA ? pouvez-vous aussi m'expliquer la ligne 9.
Merci beaucoup d'avance
1 Sub Calcul_caisson()
2 Dim xType As Integer, Ligne As Integer
3 ith ActiveSheet
4 Ligne = 5
5 While Not IsEmpty(.Cells(Ligne, 2))
6 [Portée] = .Cells(Ligne, 4)
7 [Largeur_caisson] = .Cells(Ligne, 5)
8 Application.Calculate
9 xType = 1 * Right(.Cells(Ligne, 2), 1)
10 .Cells(Ligne, 10) = Choose(xType + 1, [TYPE_10], [Type_11], [TYPE_12] [Type_13])
11 Ligne = Ligne + 1
12 Wend
13
14 End With
15 End Sub
dans la macro ci-dessous à la ligne 10, je suis obligé d'écrire xType + 1 et non xType sinon excel me prend toujours TYPE_10 au lieu de TYPE_11 ou TYPE_11 au lieu de 12 ainsi de suite.
Auriez vous une explication?
ps : c'est une adaptation d'une macro que je fais mais étant novice en VBA ? pouvez-vous aussi m'expliquer la ligne 9.
Merci beaucoup d'avance
1 Sub Calcul_caisson()
2 Dim xType As Integer, Ligne As Integer
3 ith ActiveSheet
4 Ligne = 5
5 While Not IsEmpty(.Cells(Ligne, 2))
6 [Portée] = .Cells(Ligne, 4)
7 [Largeur_caisson] = .Cells(Ligne, 5)
8 Application.Calculate
9 xType = 1 * Right(.Cells(Ligne, 2), 1)
10 .Cells(Ligne, 10) = Choose(xType + 1, [TYPE_10], [Type_11], [TYPE_12] [Type_13])
11 Ligne = Ligne + 1
12 Wend
13
14 End With
15 End Sub