besoin d'une macro pour trier une colonne

[elo]

Bonjour à tous,
est il possible d'avoir une macro qui me permettrais de trier les données de la colonne B (N°) par N° identique mais en ayant la ligne complète qui se déplace.Car la macro que j'ai ne me déplace que le n°, donc ça me fausse toutes mes données.
Je profite de cette demande pour vous demandez comment trier mes feuilles par ordres croissant, car la macro que j'ai fonctionne très bien tant qu'il n'y a pas de lettre comme sur le fichier joint.

Merci pour votre aide
elo

 

[Davidc57]

Salut elo,

Au lieu de ne sélectionner que la colonne B pour faire le tri, tu sélectionnes toutes les cellules.

Cells.Select au lieu de Columns('B:B').Select

Ca devrait fonctionner, fais le remplacement dans ta macro.

A bientot,

Dav

 

[porcinet82]

Salut Elo, David57,

Pour la première question un code de ce genre devrait fonctionner :

Range('B1:IV65536').Sort Key1:=Range('B1'), Order1:=xlAscending, Header:= xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

Pour la seconde voici un code que j'avais récupérer sur le net :

Sub TriNomsOnglets()
  On Error Resume Next
  Dim I As Integer, J As Integer
  For I = 1 To Sheets.Count
    For J = I To Sheets.Count
      If UCase(Sheets(J).Name) < UCase(Sheets(I).Name) Then
        Sheets(J).Move Sheets(I)
      End If
    Next J
  Next I
End Sub

@+

 

[elo]

Je viens de lire le tutoriel pour envoyer le fichier, je reessaye donc, et espère que ça vas foncyionner.

 

[elo]

Merci, c'est parfait.Génial.
Par contre je ne comprends pas pourquoi mon fichier n'apparait pas comme joint, du coup je ne sais pas si je l'ai bien envoyé ou pas, pourtant j'ai bien suivi les indications du tutoriel.Est ce normal? l'avais vous eu?
Merci encore.
élo

 

[porcinet82]

Salut Elo,

Si ca fonctionne, c'est l'essentiel, mais nous n'avons pas vu ton fichier joint. Il doit etre zippé (mais pas en .rar), ne contenir ni espace ni caractère spéciaux ni accent.

@+