Problème avec une macro

**Nyck0las** · 27/11/2007, 14h50

Bonjour à tous,

j'ai un problème avec la macro que j'essaie de faire

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
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
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
 
Sub Notation()
 
Dim min As Integer, max As Integer
Dim PE(1), EE(0), SE(1)
Dim PA(0), EA(1), SA(1)
Dim i As Integer
 
Worksheets("Feuil1").Activate
 
min = 2
max = 9
 
EE(0) = "B"
PE(0) = "C"
PE(1) = "d"
SE(0) = "E"
 
SA(0) = "f"
EA(0) = "g"
PA(0) = "h"
EA(1) = "i"
 
SE(1) = "j"
SA(1) = "j"
 
'Debug.Print Note(i, PE())
 
For i = min To max
    If Range("a" & i) = "Eau" Then
        Range("k" & i).Value = Note(i, PE())
        Range("l" & i).Value = Note(i, EE())
        Range("m" & i).Value = Note(i, SE())
    ElseIf Cells(i, "a") = "Ass" Then
        Range("k" & i).Value = Note(i, PA())
        Range("l" & i).Value = Note(i, EA())
        Range("m" & i).Value = Note(i, SA())
Next
 
End Sub
____________________________________________________
Function Note(lg As Integer, ParamArray Rng() As Variant) As Long
 
Dim i As Integer, j As Integer, n As Integer
Dim alpha, pi
Dim A, Am
 
'calcul du nombre de cellules
n = UBound(Rng) + 1
 
'calcul de l'angle
pi = 4 * Atn(1)
alpha = 2 * pi / n
 
Debug.Print n
 
'définition de ma matrice M
Dim M()
ReDim M(n - 1, n - 1)
 
For i = 0 To n - 1
    For j = 0 To n - 1
        M(i, j) = 0
    Next
Next
 
M(n - 1, 0) = 1
 
For i = 0 To n - 2
    M(i, i + 1) = 1
Next
 
'definition du vecteur X
Dim X()
ReDim X(n - 1, 0)
 
For i = 0 To n - 1
    X(i, 0) = ActiveSheet.Cells(lg, Rng(i).Value)
Next
 
'création de la tranposé de X
Dim TX()
Call Tvect(X, TX)
 
'quelques petits calculs
Dim p1(), p2()
 
Call PMAT(M(), X(), p1())
Call PMAT(TX(), p1(), p2())
 
A = 1 / 2 * Sin(alpha) * p2(0, 0)
Am = 1 / 2 * Sin(alpha) * 100 ^ 2 * n
 
Note = A / Am
 
End Function
_______________________________________
Sub PMAT(A(), B(), C())
 
'calcule le produit des matrices A*B et le met dans la matrice C
 
Dim i As Integer, j As Integer, k As Integer
Dim n As Integer, M As Integer, p As Integer
 
n = UBound(A, 2)
M = UBound(A, 1)
p = UBound(B, 2)
 
ReDim C(M, p)
 
For i = 0 To M
    For j = 0 To p
        For k = 0 To n
            C(i, j) = C(i, j) + A(i, k) * B(k, j)
        Next
    Next
Next
 
End Sub
_________________________________________
Sub Tvect(X(), TX())
 
'calcule le vecteur transposé de X
 
Dim i As Integer, n As Integer
 
n = UBound(X, 1)
 
ReDim TX(0, n)
 
For i = 0 To n
    TX(0, i) = X(i, 0)
Next
 
End Sub

voici ce que çà me donne:

"Erreur de compilation : variable ou procédure attendue, et non un module"
en la première occurence de le fonction "Note" est surlignée dans la procédure "Notation"

est-ce que quelqu'un voit le problème ????

**gedechp** · 27/11/2007, 15h03

bonjour
a premiere vu et sans tester
il me semble qu'il manque un end if en fin de sub Notation !

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
Sub Notation()
 
Dim min As Integer, max As Integer
Dim PE(1), EE(0), SE(1)
Dim PA(0), EA(1), SA(1)
Dim i As Integer
 
Worksheets("Feuil1").Activate
 
min = 2
max = 9
 
EE(0) = "B"
PE(0) = "C"
PE(1) = "d"
SE(0) = "E"
 
SA(0) = "f"
EA(0) = "g"
PA(0) = "h"
EA(1) = "i"
 
SE(1) = "j"
SA(1) = "j"
 
'Debug.Print Note(i, PE())
 
For i = min To max
    If Range("a" & i) = "Eau" Then
        Range("k" & i).Value = Note(i, PE())
        Range("l" & i).Value = Note(i, EE())
        Range("m" & i).Value = Note(i, SE())
    ElseIf Cells(i, "a") = "Ass" Then
        Range("k" & i).Value = Note(i, PA())
        Range("l" & i).Value = Note(i, EA())
        Range("m" & i).Value = Note(i, SA())
     end if
Next
 
End Sub

cordialement
GERARD

**Nyck0las** · 27/11/2007, 15h31

oupps j'avais pas vu

mais bon çà ne change pas mon problème, çà buggait avant

**Alqualonde** · 27/11/2007, 16h58

Bonjour,

Moi je suis étonné par ce bout de code :

Code :

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

ElseIf Cells(i, "a") = "Ass"

qu'est donc censé faire Cells(i,"a") ???

**Nyck0las** · 27/11/2007, 17h04

ce que je veux faire c'est tester si le contenu de la cellule Ai (colonne A et ligne i) vaut "Ass" (c'est du texte)

**mordrhim** · 27/11/2007, 17h08

dans ce cas la il faut utiliser

Code :

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

elseif Range("A" & i) = "***"

**Lou Pitchoun** · 27/11/2007, 17h13

Salut

Envoyé par mordrhim

dans ce cas la il faut utiliser

Code :

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

elseif Range("A" & i) = "***"

ou

Code :

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

Cells(i, 1)

**jkodio** · 27/11/2007, 17h14

A mon avis, c'est plutôt : Cells(IndexLigne, IndexColonne), où :
IndexLigne et IndexColonne sont des entiers.
Aussi il faut remplacer "a" par 1.

Code :

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

ElseIf Cells(i, 1) = "Ass"

Cordialement

**gedechp** · 27/11/2007, 17h15

je te donne ca comme ca
sans valeurs pour tester j'ai un truc marant
un message d'erreur qui disparait si j'enleve la ligne vide apres end sub de la sub notation

cdt
GERARD

**Lou Pitchoun** · 27/11/2007, 17h23

Hormis les erreurs signalées (End If et Cells(i, 1) ), le code compile et s'exécute.

**Nyck0las** · 27/11/2007, 17h24

j'ai modifié le coup du cells(...) et je l'ai remplacé en range(..). et je me suis rendu compte que c'était un oubli parce que j'avais bien mis le reste

**gedechp** · 27/11/2007, 17h25

suite
j'ai teste avec des valeurs

ca semble marcher si on enleve les lignes vides apres chaque end function et end sub ??????
cdt
GERARD

**Lou Pitchoun** · 27/11/2007, 17h28

Si tu as copié coller le code du 1er post , c'est normal.
Nyck0las a mis des _______________________________ pour séparer les fonctions.

**Nyck0las** · 28/11/2007, 10h26

Envoyé par Lou Pitchoun

Hormis les erreurs signalées (End If et Cells(i, 1) ), le code compile et s'exécute.

ben moi çà compile pas du tout et pourtant on doit avoir la même chose

**Lou Pitchoun** · 28/11/2007, 10h32

je suis parti de ton code du 1er message. J'y ai apporté les corrections.

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
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
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
Sub Notation()
 
Dim min As Integer, max As Integer
Dim PE(1), EE(0), SE(1)
Dim PA(0), EA(1), SA(1)
Dim i As Integer
 
Worksheets("Feuil1").Activate
 
min = 2
max = 9
 
EE(0) = "B"
PE(0) = "C"
PE(1) = "d"
SE(0) = "E"
 
SA(0) = "f"
EA(0) = "g"
PA(0) = "h"
EA(1) = "i"
 
SE(1) = "j"
SA(1) = "j"
 
'Debug.Print Note(i, PE())
 
For i = min To max
    If Range("a" & i) = "Eau" Then
        Range("k" & i).Value = Note(i, PE())
        Range("l" & i).Value = Note(i, EE())
        Range("m" & i).Value = Note(i, SE())
    ElseIf Cells(i, 1) = "Ass" Then
        Range("k" & i).Value = Note(i, PA())
        Range("l" & i).Value = Note(i, EA())
        Range("m" & i).Value = Note(i, SA())
    End If
Next
 
End Sub
 
Function Note(lg As Integer, ParamArray Rng() As Variant) As Long
 
Dim i As Integer, j As Integer, n As Integer
Dim alpha, pi
Dim A, Am
 
'calcul du nombre de cellules
n = UBound(Rng) + 1
 
'calcul de l'angle
pi = 4 * Atn(1)
alpha = 2 * pi / n
 
Debug.Print n
 
'définition de ma matrice M
Dim M()
ReDim M(n - 1, n - 1)
 
For i = 0 To n - 1
    For j = 0 To n - 1
        M(i, j) = 0
    Next
Next
 
M(n - 1, 0) = 1
 
For i = 0 To n - 2
    M(i, i + 1) = 1
Next
 
'definition du vecteur X
Dim X()
ReDim X(n - 1, 0)
 
For i = 0 To n - 1
    X(i, 0) = ActiveSheet.Cells(lg, Rng(i).Value)
Next
 
'création de la tranposé de X
Dim TX()
Call Tvect(X, TX)
 
'quelques petits calculs
Dim p1(), p2()
 
Call PMAT(M(), X(), p1())
Call PMAT(TX(), p1(), p2())
 
A = 1 / 2 * Sin(alpha) * p2(0, 0)
Am = 1 / 2 * Sin(alpha) * 100 ^ 2 * n
 
Note = A / Am
 
End Function
 
Sub PMAT(A(), B(), C())
 
'calcule le produit des matrices A*B et le met dans la matrice C
 
Dim i As Integer, j As Integer, k As Integer
Dim n As Integer, M As Integer, p As Integer
 
n = UBound(A, 2)
M = UBound(A, 1)
p = UBound(B, 2)
 
ReDim C(M, p)
 
For i = 0 To M
    For j = 0 To p
        For k = 0 To n
            C(i, j) = C(i, j) + A(i, k) * B(k, j)
        Next
    Next
Next
 
End Sub
 
Sub Tvect(X(), TX())
 
'calcule le vecteur transposé de X
 
Dim i As Integer, n As Integer
 
n = UBound(X, 1)
 
ReDim TX(0, n)
 
For i = 0 To n
    TX(0, i) = X(i, 0)
Next
 
End Sub

**Nyck0las** · 28/11/2007, 10h48

j'ai modifié

Code :

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

1
2
3
For i = 0 To n - 1
    X(i, 0) = ActiveSheet.Cells(lg, Rng(i).Value)
Next

par

Code :

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

1
2
3
For i = 0 To n - 1
    X(i, 0) = ActiveSheet.Cells(lg, Rng(i)).Value
Next

et çà compile !!

mais par contre j'ai l'impression que le résultat est faux

**Nyck0las** · 28/11/2007, 12h10

je sais pourquoi j'avais un résultat faux, en fait il faut différencier les cas n=1 et n=2

par contre il m'est encore apparu un autre problème

alors que je testais ce petit prog sur une plus grande échelle et davantage de données.
En fait je travaille sur des données chiffrées mais il peut arriver que certaines cellules contiennent "-", ce qui signifie qu'il ny' a pas de résultat. El là çà coince dans le programme au niveau de la multiplication des matrices

la ligne :

Code :

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

C(i, j) = C(i, j) + A(i, k) * B(k, j)

est surlignée et le message d'erreur est:
"erreur d'exécution 13 : incompatibilité de type"

what can I do ??

**Lou Pitchoun** · 28/11/2007, 13h19

mettre les balises code : ça permettra aux modos de gagner du temps
tester la valeur de la cellule.
Si la cellule <> "-" alors calcul fin si

**Nyck0las** · 28/11/2007, 14h42

existe-t-il un test pour savoir si un élément n'est pas un nombre ??

car en fait, le contenu de ma cellule peut etre :
- un nombre
- un caractète "-"
- un texte "SO"
- vide
- #valeur

**Lou Pitchoun** · 28/11/2007, 14h48

Tu as la fonction IsNumeric

Ex :

Code :

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

1
2
3
4
5
    If IsNumeric(variable) Then
        MsgBox "numérique"
        Else
            MsgBox "not numérique"
    End If

Problème avec une macro

Macros et VBA Excel

Discussions similaires

Partager

Partager