Discussion :

[Xanto]

Bonjour!

J'ai fait un petit code pour tester quelque chose, mais j'ai un message d'erreur qui dit: "Invalid outside procedure" et me surligne xlDown.

Voilà le code:

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
Dim tableau() As Byte
DerniereLigne = Range("A1").End(xlDown).Row
ReDim tableau(DerniereLigne)
Dim l As Byte
 
Sub AFFECTE()
 Call LECTURE
 Call ECRITURE
End Sub
 
Sub LECTURE()
 tableau(l) = Cells(l, 1).Value
End Sub
 
Sub ECRITURE()
 Cells(l, 2).Value = tableau(l)
End Sub

Merci de votre aide!

[alsimbad]

Dim tableau() As Byte
DerniereLigne = Range("A1").End(xlDown).Row
ReDim tableau(DerniereLigne)
Dim l As Byte

Sub AFFECTE()
Call LECTURE
Call ECRITURE
End Sub

ton erreur est là. cette ligne est une instruction, elle n'a rien a faire dans la section déclaration de variable.elle doit forcément se trouver a l'interieur d'une procedure. ici tu dois trouver
public dernierligne as integer

[Swiper]

Il a peut être oublié un end sub à la fin car je vois mal les déclarations se faire dans le vide.

[alsimbad]

pourtant si,
tu dois faire la plupart de tes déclarations dans le vide, en tete de tes procédure, et principalement celles qui sont publique, il n'y en a que quelques une que tu fais a l'interieur d'une sub, qui ont une portée limitée, ou les redim

[Xanto]

Alors comment faire pour initialiser cette variable?

[alsimbad]

tu l'initie au début de ta procédure, c'est a dire, tu déclare qu'elle existe, et quelle est son type, et tu lui donne une valeur dans les sub. si tu l'a déclaré en public, sa valeur reste d'une sub a l'autre

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
 
Dim tableau() 
Public i As Integer
Public derniereligne As Integer
 
Sub AFFECTE()
derniereligne = Range("A1").End(xlDown).Row
ReDim tableau(derniereligne)
Call LECTURE
Call ECRITURE
End Sub

Sub LECTURE()
For i = 1 To derniereligne
tableau(i) = Cells(i, 1).Value
Next i
End Sub
 
Sub ECRITURE()
For i = 1 To derniereligne
Cells(i, 2).Value = tableau(i)
Next i
End Sub

a plus