Tri tableau dans Excel
Need Help
-
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous
J'essaie de trier un tableau sous excel.
Pour cela je suis allé sur VBA et ai rentré la formule suivante :
Sub Tri()
Private Sub Worksheet_Change(ByVal adrcel As Range)
Range("process").Sort Key1:=Range("Date effective"), Order1:=xlAscending, _
Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub
End Sub
Je pensais que mon tableau nommé process trierai automatiqument la colonne Date effective par ordre croissant
toutefois cela ne fonctionne pas
Quelqu'un peut-il m'aider ?
Est ce que les autres colonnes de mon tableau vont elles aussi varier automatiquement ?
Merci
J'essaie de trier un tableau sous excel.
Pour cela je suis allé sur VBA et ai rentré la formule suivante :
Sub Tri()
Private Sub Worksheet_Change(ByVal adrcel As Range)
Range("process").Sort Key1:=Range("Date effective"), Order1:=xlAscending, _
Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub
End Sub
Je pensais que mon tableau nommé process trierai automatiqument la colonne Date effective par ordre croissant
toutefois cela ne fonctionne pas
Quelqu'un peut-il m'aider ?
Est ce que les autres colonnes de mon tableau vont elles aussi varier automatiquement ?
Merci
A voir également:
- Tri tableau dans Excel
- Trier un tableau excel - Guide
- Tableau word - Guide
- Imprimer tableau excel sur une page - Guide
- Liste déroulante excel - Guide
- Tableau ascii - Guide
1 réponse
Bonjour,
nom de plage cellule sans espace !!!!
c'est soit
ou
nom de plage cellule sans espace !!!!
c'est soit
Private Sub Worksheet_Change(ByVal adrcel As Range)
If Not Intersect(adrcel, Range("Date_effective")) Is Nothing Then
Range("process").Sort Key1:=Range("Date_effective"), Order1:=xlAscending, _
Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
End Sub
ou
Sub Tri()
Range("process").Sort Key1:=Range("Date_effective"), Order1:=xlAscending, _
Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub
