Bonjour à tous, je me permets de vous la question ici car je ne trouve ma solution nul par ailleurs.
En effet, j'ai trouvé un code VBA pour trier plusieurs tableaux de manière automatique dès qu'on rentre une donnée dedans.
Mon premier soucis viens du code en lui même, j'ai beaucoup de tableau et actuellement j'enplile le même code pour chaque tableau...est ce que quelqu'un aurait une solution pour réduire drastiquement mon code avec lequel j'aurais juste à rajouter les coordonnées de mes nouveaux tableaux?
Mon deuxième soucis vient du fait que mon code à l'air de fonctionner, mais il y a des tableaux pour lequel ça ne marche pas. est ce que quelqu'un aurait la gentillesse de jeter un coup d’œil pour me dire ce qui pose problèmes dans ces tableaux sil vous plait?
ci joint le code et le fichier
Private Sub Worksheet_Change(ByVal Target As range)
On Error Resume Next
If Not Intersect(Target, range("C2:C20")) Is Nothing Then
range("C2").Sort Key1:=range("C3"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
On Error Resume Next
If Not Intersect(Target, range("C32:C50")) Is Nothing Then
range("C32").Sort Key1:=range("C33"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
On Error Resume Next
If Not Intersect(Target, range("C63:C77")) Is Nothing Then
range("C63").Sort Key1:=range("C64"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
On Error Resume Next
If Not Intersect(Target, range("C92:C105")) Is Nothing Then
range("C92").Sort Key1:=range("C93"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If