Tri de plusieurs tableau sur une meme feuille

[Toutou]

bonjour a toutes et tous,
voici mon petit probleme:
je voudrais creer un petit carnet d'adresse.
Cependant, je voudrais que chaque fois qu un nouveau nom est entre dans la base de donnee, elle soit retriee par ordre alphabetique automatiquement.
Les donnees etant contenue dans differents tableaux(un par lettre de l'alphabet), je ne sais pas comment faire.
pour mieux comprendre, je joint un fichier.

merci d'avance,

Toutou

 

[Samantha]

Re : Tri de plusieurs tableau sur une meme feuille

Bonsoir Toutou,

Juste pour te dire que ta question n'est pas au bon endroit.

Cependant, avec l'enregistreur de macro je récupère un truc comme ça :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 23/09/2006 par User name placeholder
'
'
Rows("3:4").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub


Peut être une piste ?

A te lire


Sam

 

[Toutou]

Re : Tri de plusieurs tableau sur une meme feuille

Bonjour a tous, bonjour Sam,

Je me suis inspiré de ta macro, pour bidouiller le code qui suit (et qui n'est pas complet).
Comme pour chaque tableau, la premiere ligne est grisée, je me suis dit que je pouvais tous les trier de cette façon:
La procédure recherche deux cellules grisées qui se suivent, sélectionne les lignes qui se trouvent entre ces deux cellules et les trie;
puis on passe au tableau d'après pour le trier.
Seulement je ne sais pas ou placer ma procédure de tri dans ce code;
et je crains qu'avec ce que j'ai codé, une fois le premier tableau trié, le second soit ajouté à la sélection, et qu'il soit trié avec le premier. Puis que le troisieme soit ajouté a la selection et soit retrié avec les 2 premiers... etc. Alors que je préfèrerais que chaque tableau soit trié séparément et un par un...

Quelqu'un aurait-il une solution SVP, D'avance, merci.

Toutou

Voici mon code :

Private Sub Tri()

Dim DerLgn As Long
Dim Li1 As Range
Dim Li2 As Range

DerLgn = Worksheets("Carnet d'adresses").Range("A65536").End(xlUp).Row + 1

For Each Li1 In Worksheets("Carnet d'adresses").Range("A1:A" & DerLgn)
If Li1.Interior.ColorIndex = 15 Then
PourTri = Li1.Offset(2, 0)
For Each Li2 In Worksheets("Carnet d'adresses").Range(Li1 & DerLgn)
If Li2.Interior.ColorIndex = 15 Then
PourTri = Li2.Offset(-3, 0)
End If
Next Li2
End If
Next Li1

End Sub