Problème avec Excel

Version imprimable

Problème avec Excel

Bonjour à tous!

J'ai un problème relativement simple sur une macro faites avec l'aide de Visual Basic Editeur.

Voici mon code:

Code:

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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
 
Dim ani(1 To 1233) As Byte
Dim cor(1 To 1233) As Byte
Dim lik(1 To 1233) As Byte
Dim somme(1 To 12) As Byte ' somme des douzes Licks
Dim l As Byte
 
Sub AFFECTE() ' execution
 Call LECTURE
 Call CONDITION
 Call ECRITURE
End Sub
 
Sub LECTURE()
 For l = 1 To 1233
  ani(l) = Cells(l + 1, 3).Value
  cor(l) = Cells(l + 1, 5).Value
  lik(l) = Cells(l + 1, 12).Value
 Next l
End Sub
 
Sub CONDITION() ' calcul la somme des Licks d'animal et de corner
 For l = 1 To 1233
 
 ' calcul d animal zero et de corner un
  If (ani(l) = 0) Then
   If (cor(l) = 1) Then
    somme(1) = somme(1) + lik(l)
   End If
  End If
 
 ' calcul d animal zero et de corner deux
  If (ani(l) = 0) Then
   If (cor(l) = 2) Then
    somme(2) = somme(2) + lik(l)
   End If
  End If
 
 ' calcul d animal zero et de corner trois
  If (ani(l) = 0) Then
   If (cor(l) = 3) Then
    somme(3) = somme(3) + lik(l)
   End If
  End If
 
 ' calcul d animal zero et de corner quatre
  If (ani(l) = 0) Then
   If (cor(l) = 4) Then
    somme(4) = somme(4) + lik(l)
   End If
  End If
 
 ' calcul d animal un et de corner un
  If (ani(l) = 1) Then
   If (cor(l) = 1) Then
    somme(5) = somme(5) + lik(l)
   End If
  End If
 
 ' calcul d animal un et de corner deux
  If (ani(l) = 1) Then
   If (cor(l) = 2) Then
    somme(6) = somme(6) + lik(l)
   End If
  End If
 
 ' calcul d animal un et de corner trois
  If (ani(l) = 1) Then
   If (cor(l) = 3) Then
    somme(7) = somme(7) + lik(l)
   End If
  End If
 
 ' calcul d animal un et de corner quatre
  If (ani(l) = 1) Then
   If (cor(l) = 4) Then
    somme(8) = somme(8) + lik(l)
   End If
  End If
 
 ' calcul d animal deux et de corner un
  If (ani(l) = 2) Then
   If (cor(l) = 1) Then
    somme(9) = somme(9) + lik(l)
   End If
  End If
 
 ' calcul d animal deux et de corner deux
  If (ani(l) = 2) Then
   If (cor(l) = 2) Then
    somme(10) = somme(10) + lik(l)
   End If
  End If
 
 ' calcul d animal deux et de corner trois
  If (ani(l) = 2) Then
   If (cor(l) = 3) Then
    somme(11) = somme(11) + lik(l)
   End If
  End If
 
 ' calcul d animal deux et de corner quatre
  If (ani(l) = 2) Then
   If (cor(l) = 4) Then
    somme(12) = somme(12) + lik(l)
   End If
  End If
 
 Next l
End Sub
 
Sub ECRITURE()
 For l = 1 To 12
  Cells(l + 1, 15).Value = somme(l)
 Next l
End Sub

Lors de l'execution de ce code, un message d'erreur apparait. Il dit: "Dépassement de capacités" et il a un 6 entre guillement... hé oui, je suis une quiche en informatique...

Merci de m'aider! :mrgreen:

01/08/2007, 23h27
TheBlackReverand

la capacitè c'est se que peut contenir une de tes variable, si tu la depasse c'est comme si tu voudrais mettre 60'000 dans une variable de type Integer

Integer -32000 a +32000 (environ)

Merci de ta réponse!

J'ai pu changer le code, et maintenant j'obtiens ceci:

Code:

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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
 
Dim ani(1 To 1233) As Byte ' parce que les chiffres varient ici entre 0 et 2
Dim cor(1 To 1233) As Byte ' parce que les chiffres varient ici entre 1 et 4
Dim lik(1 To 1233) As Integer ' parce que les nombres varient entre 0 et 100
Dim somme(1 To 12) As Integer ' parce que les nombres sont plutôt enorme, ils varient entre 0 et 1500
 
Sub AFFECTE() ' execution
 Call LECTURE
 Call CONDITION
 Call ECRITURE
End Sub
 
Sub LECTURE()
 For l = 1 To 1233
  ani(l) = Cells(l + 1, 3).Value
  cor(l) = Cells(l + 1, 5).Value
  lik(l) = Cells(l + 1, 12).Value
 Next l
End Sub
 
Sub CONDITION() ' calcul la somme des Licks d'animal et de corner
 For l = 1 To 1233
 
 ' calcul d animal zero et de corner un
  If (ani(l) = 0) Then
   If (cor(l) = 1) Then
    somme(1) = somme(1) + lik(l)
   End If
  End If
 
 ' calcul d animal zero et de corner deux
  If (ani(l) = 0) Then
   If (cor(l) = 2) Then
    somme(2) = somme(2) + lik(l)
   End If
  End If
 
 ' calcul d animal zero et de corner trois
  If (ani(l) = 0) Then
   If (cor(l) = 3) Then
    somme(3) = somme(3) + lik(l)
   End If
  End If
 
 ' calcul d animal zero et de corner quatre
  If (ani(l) = 0) Then
   If (cor(l) = 4) Then
    somme(4) = somme(4) + lik(l)
   End If
  End If
 
 ' calcul d animal un et de corner un
  If (ani(l) = 1) Then
   If (cor(l) = 1) Then
    somme(5) = somme(5) + lik(l)
   End If
  End If
 
 ' calcul d animal un et de corner deux
  If (ani(l) = 1) Then
   If (cor(l) = 2) Then
    somme(6) = somme(6) + lik(l)
   End If
  End If
 
 ' calcul d animal un et de corner trois
  If (ani(l) = 1) Then
   If (cor(l) = 3) Then
    somme(7) = somme(7) + lik(l)
   End If
  End If
 
 ' calcul d animal un et de corner quatre
  If (ani(l) = 1) Then
   If (cor(l) = 4) Then
    somme(8) = somme(8) + lik(l)
   End If
  End If
 
 ' calcul d animal deux et de corner un
  If (ani(l) = 2) Then
   If (cor(l) = 1) Then
    somme(9) = somme(9) + lik(l)
   End If
  End If
 
 ' calcul d animal deux et de corner deux
  If (ani(l) = 2) Then
   If (cor(l) = 2) Then
    somme(10) = somme(10) + lik(l)
   End If
  End If
 
 ' calcul d animal deux et de corner trois
  If (ani(l) = 2) Then
   If (cor(l) = 3) Then
    somme(11) = somme(11) + lik(l)
   End If
  End If
 
 ' calcul d animal deux et de corner quatre
  If (ani(l) = 2) Then
   If (cor(l) = 4) Then
    somme(12) = somme(12) + lik(l)
   End If
  End If
 
 Next l
End Sub
 
Sub ECRITURE()
 For l = 1 To 12
  Cells(l + 1, 15).Value = somme(l)
 Next l
End Sub

Et merci, ça marche!

02/08/2007, 08h12
TheBlackReverand

pour info

Citation:

En Visual Basic:

Nom : Contient :

Boolean Contient une valeur Booléenne (logique): True ou False.

Byte Contient les nombres entiers de 0 à 255 (sans signe)

Short Entier sur 16 bits (-32768 à 32768)

Integer Entier sur 32 bits (-2147483648 à 2147483647)

Long Entier sur 64 bits (-9223372036854775808 à 9223372036854775807)

Single Nombre réel en virgule flottante (-1,401298 *10^-45 à 1,401298 10^45)

Double Nombre réel en virgule flottante double précision. (..puissance 324)

Decimal Nombre réel en virgule fixe grande précision sur 16 octets.

Char 1 caractère alphanumérique

String Chaîne de caractère de longueur variable (jusqu'a 2 milliard de caractères)

DateTime Date plus heure

Object Peut contenir tous les types de variables mais aussi des contrôles, des fenêtres..

Structure Ensemble de différentes variables définies par l’utilisateur.

Dans la version 2005 il y a aussi les Unsigned ( non signé: pas de valeur négative):

UInteger Entier codé sur 32 bits pouvant prendre les valeurs 0 à 4 294 967 295.

ULong Entier codé sur 64 bits :0 à 18 446 744 073 709 551 615

UShort Entier sur 16 bits 0 à 65 535.

et

SByte Byte mais signé. Codé sur 1 octet, valeur de -128 à 127

source :http://plasserre.developpez.com/v1-6.htm