Classement alphabetique automatique avec liaison

Bonjour le Forum,

Quel type de JavaScript (ou autre...) pourrait me permettre d'effectuer un classement alphabétique automatique de mes données dans une feuille de classeur Excel (sans passer par le le Tri Excel) ? Et je souhaite aussi (on en demande toujours Trop ) que l'ensemble de mes données sur une selection de certaines Feuilles du Classeur se regroupent dans une autre Feuille toujours dans le même classeur (une liaison en quelque sorte ) pour constituer une base de donnée commune. Ouf !

Merci d'avance.

Bonjour,

Sous Excel, cela doit être faisable par formule matricielle.

Un petit exemple sur Ci-Joint avec les données de départ et le résultat à obtenir serait le bienvenu.

Bonjour,

Le code est a copier pour chaque feuille ,le trie se fait automatiquement pour la colonne A uniquement.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("A1:A1000")) Is Nothing Then

Range("A1:A1000").Sort Key1:=Range("A1"), Order1:=xlAscending

End If

End Sub

A +

Merci Henri,

j'ai essayé sur un classeur simple feuille ça marche .... Mais j'ai des cellules fusionnées.

J'ai remplaçé les coordonées de la cellule A1 par A4 ; Pour passer en dessous de la fusion, mais j'ai une "erreur 107" au débogage.

A+

If Not Application.Intersect(Target,Range("A4:A1000")) Is Nothing Then

Range("A4:A1000").Sort Key1:=Range("A4"), Order1:=xlAscending

End If

J'ai essayé ça et sa fonctionne apparemment ...

ça ma permi également de reclasser toute la ligne comme je voulais.

Par contre comment faire pour un classement Alphabétique avec 2 critères :

Un en colonne A et un en colonne B ?

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("A4:N41000")) Is Nothing Then

Range("A4:N41000").Sort Key1:=Range("A4"), Order1:=xlAscending

End If

End Sub

Bonne journèe au Forum

Salut le forum

Essaye ceci

    Range("A4:N41000").Sort Key1:=Range("A4"), Order1:=xlAscending, _
    Key2:=Range("B4"), Order2:=xlAscending

Mytå

Bonsoir,

ça n'a pas l'air de fonctionner ?

Le Tri ne se fait que sur la colonne A et non A et B

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("A4:N41000")) Is Nothing Then

Range("A4:N41000").Sort Key1:=Range("A4"), Order1:=xlAscending, Key2:=Range("B4"), Order2:=xlAscending

End If

End Sub

A+