besoin d'une macro pour trier une colonne

D

Davidc57

XLDnaute Occasionnel

• 16 Mars 2006

• #2

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

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 16 Mars 2006

• #3

Salut Elo, David57,

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

Code:

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 :

Code:

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

@+

 

Vote positif 0 Vote négatif

E

elo

Guest

• 16 Mars 2006

• #4

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

 

Vote positif 0 Vote négatif

E

elo

XLDnaute Nouveau

• 16 Mars 2006

• #5

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

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 17 Mars 2006

• #6

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.

@+

 

Vote positif 0 Vote négatif