Bonjour,

Je suis un débutant en VBA et j'aimerais inverser l'ordre d'une ligne à l'aide d'une fonction. C'est à dire : 1 2 3 4 devient 4 3 2 1

J'ai créé la fonction (Cette fonction est aussi valable pour les colonnes et matrices):

________________________
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
Option Base 1
Function Inverse(TableauE As Variant) As Variant
 
Dim TableauS As Variant
Dim TailleI As Integer
Dim TailleJ As Integer
Dim I As Integer
Dim J As Integer
 
 
TailleI = UBound(TableauE, 1)
TailleJ = UBound(TableauE, 2)
 
ReDim TableauS(TailleI, TailleJ)
 
For I = 1 To TailleI
    For J = 1 To TailleJ
 
    TableauS(I, J) = TableauE(TailleI + 1 - I, TailleJ + 1 - J)
 
    Next J
Next I
 
Inverse = TableauS
 
End Function
________________________________

Quand je selectionne une ligne de cellule et que je fais "=Inverse(Ligne que j veux inverser) + ctrl +Maj " il me retourne l'erreur #VALUE!...

Merci de votre aide !