Procedure qui se prend pour une fonction

Version imprimable

Bonjour,

J'ai créé une procedure qui permet d'intervertir deux lignes.
Seul souci c'est que ca ne compile pas...:(
Voici ma procedure:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub SwitchLigne_P(ByVal L1 As Integer, ByVal L2 As Integer)  'Permer d'intervertire L1 et L2
Dim L2_, L2_1, L1_, L1_2 As String
L2_ = Trim(Str(L2)) & ":" & Trim(Str(L2))   'L2_="15:15" si L2=15
L2_1 = Trim(Str(L2 + 1)) & ":" & Trim(Str(L2 + 1))
L1_ = Trim(Str(L1)) & ":" & Trim(Str(L1))
L1_2 = Trim(Str(L1 + 1)) & ":" & Trim(Str(L1 + 1))
ActiveWorkbook.Sheets(1).Rows(L2_).Select                        'Select ligne L2 = Rows("15:15").Select
Selection.Cut
ActiveWorkbook.Sheets(1).Rows(L1_).Select                'L1
Selection.Insert Shift:=xlDown
ActiveWorkbook.Sheets(1).Rows(L1_1).Select                'L1+1
Selection.Cut
ActiveWorkbook.Sheets(1).Rows(L2_1).Select                'L2+1
Selection.Insert Shift:=xlDown
End Sub

Voici l'endoit ou je l'appelle:

Code:

1
2
3
4
5
6
7
 
        ...
        If (LowerDate > IDate) Then    'Verifie que la date de la ligne i n'est pas plus petite
            SwitchLigne_P(i, CurrentLigne) 'Met la ligne avec le date la plus petite à la place de la ligne courante
            LowerDate = IDate               'Sauvegarde la nouvelle date plus petite
        End If
        ...

Lorsque je lance la macro VBA, ca me met un message d'erreur disant:

Citation:

Erreur complilation: attendu :=

Quelqu'un comprend t il pk il me met ce message d'erreur?

17/02/2008, 03h41
fred65200

bonjour

est ce que avec

Code:

SwitchLigne_P i, CurrentLigne

tu as toujours un message d'erreur?

cordialement
17/02/2008, 12h52
Dereck07

Ce que je voulais faire ne marche pas mais au moins maintenant ca compile et le code est vivant ...
Reste plus qu'a débuger... :P

Encore merci fred65200 :king:

bonjour,

je n'ai pas cherché à détailler ton code
mais utilise des tableau, ce sera plus simple et certainement plus rapide.

Teste le code suivant
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub SwitchLigne_P(ByVal L1 As Long, ByVal L2 As Long) Dim TabL1 As Variant Dim TabL2 As Variant TabL1 = Rows(L1).Value TabL2 = Rows(L2).Value Rows(L1).Value = TabL2 Rows(L2).Value = TabL1 End Sub Sub testSwitchLigne() SwitchLigne_P 1, 2 End Sub
cordialement