Bonjour le forum,
Je voudrais faire une macro me permettant de trier deux colonnes par ordre alphabétique lors de l'ajout d'un élement dans l'une de ces colonnes (cette partie la c'est bon) mais ensuite revenir sur la cellule sur laquelle j'étais situé avant de faire le tri.
J'ai donc écrit la macro suivante :
Mais j'ai une erreur au niveau de ma variable cellule, j'ai un message comme quoi la variable objet est non définie. ActiveCell.Address me renvoie bien A18 (par exemple) mais cellule m'indique Nothing lors du débogage.
Si quelqu'un pourrait m'éclairer!
Merci d'avance!
Je voudrais faire une macro me permettant de trier deux colonnes par ordre alphabétique lors de l'ajout d'un élement dans l'une de ces colonnes (cette partie la c'est bon) mais ensuite revenir sur la cellule sur laquelle j'étais situé avant de faire le tri.
J'ai donc écrit la macro suivante :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cellule As Range
cellule = ActiveCell.Address
Range("A2:A100").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B2:B100").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range(cellule).Select
End Sub
Mais j'ai une erreur au niveau de ma variable cellule, j'ai un message comme quoi la variable objet est non définie. ActiveCell.Address me renvoie bien A18 (par exemple) mais cellule m'indique Nothing lors du débogage.
Si quelqu'un pourrait m'éclairer!
Merci d'avance!