[VBA EXCEL] Tri croissant

Bonjour,

j'ai un petit soucis d'exécution !

voici mon code :

Code:

---

1 2 3 4 5

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Cells("A" & Target.Row).Value = "" Then Range("A2").CurrentRegion.Sort Key1:=Range("G1"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End If End Sub

---

j'ai une erreur lors de son exécution :

Citation:

---

Erreur d'exécution '13':
Incompatibilité de type

---

Une idée ?

Pardonnez ce post qui ne sert à rien...
le problème est résolu

le problème venait de ma définition exotique de cells :oops:

pour ceux que ça intéresse quand même, le code corrigé :

Code:

---

1 2 3 4 5

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Cells(Target.Row, 1).Value = "" Then Range("A2").CurrentRegion.Sort Key1:=Range("G1"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End If End Sub

---