macro pour trier en ligne

[klorane]

Bonjour,

suite à un soucis de valeurs décroissante sur une ligne,
quelle macro faudrait il ecrire pour trier les valeurs d'une ligne.

par exemple:
imaginons que j'ai dans la cellule A1 la valeur 55, dans la cellule B1 la valeur 25 et dans la cellule C1 la valeur 44.

qui pourrait me dire qu'elle serait la macro à écrire pour trier ces 3 valeurs en cliquant sur un bouton?

Merci pour votre aide
Sylvain

 

[Bebere]

bonsoir Klorane
avec l'enregistreur de macro,tu enregistres ce que tu fais
tu obtiens le code qui suit

Sub TriHorizontal()
Range('A1:C1').Select
Selection.Copy
Range('I1').Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Selection.Sort Key1:=Range('I1'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.Copy
Range('A1').Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub

à bientôt
🙂