Discussion :

[ancel17]

Bonjour,

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

voici mon code :

Code :

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

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 :

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

Une idée ?

[ancel17]

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

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

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

Code :

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

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