Discussion :

[Kalocagatia]

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 !

[jfontaine]

Bonjour,

Un fonction ne peut retourner une plage de cellules mais uniquement une valeur Numérique ou Alpha
Pour faire ce traitement il te faudra utiliser une procédure qui fera l'action soit d'un bloc sur toute la feuille, soit sur la ligne active

NB : si la variable paramètre attend une plage de cellule, il sera plus judicieux de choisir le type Range à la place de Variant

Code :

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

TableauE As Range

[grisan29]

bonjour Kalocagatia et Jfontaine ainsi que le forum
moi j'utilise 2 boutons dont un remonte la ligne sélectionnée et l'autre la redescend, tout ça dans la plage de ligne qui va de 19 à 50
chaque bouton est associé a un module dont voici celui qui remonte les lignes,
pour les descendre il suffit de mettre "-" devant chaque 1 et remplacer 19 par 50

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
Sub remonte()
'
' remonte Macro
'
 
'
Dim T(), NoLigne As Long
 
If Not Intersect(ActiveCell, Range("19:50")) Is Nothing Then
    NoLigne = ActiveCell.Row
    If ActiveCell.Row = 19 Then Exit Sub
    T = Rows(NoLigne - 1).Cells.Value
    Rows(NoLigne - 1).Value = Rows(NoLigne).Value
    Rows(NoLigne) = T
    ActiveCell.Offset(-1).Select
End If
End Sub

si cela peu servir tant mieux

Pascal