classement de mes feuilles dans mon classeur

ChTi160

XLDnaute Barbatruc

• 19 Décembre 2005

• #2

Salut Valérie
en pièce jointe une méthode De notre ami Ti
Message édité par: Ti_, à: 23/02/2005 09:08
bonne journée [file name=Tri_Onglets.zip size=7606]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Tri_Onglets.zip[/file]

 

Pièces jointes

• Tri_Onglets.zip

  7.4 KB · Affichages: 28
• Tri_Onglets.zip

  7.4 KB · Affichages: 29
• Tri_Onglets.zip

  7.4 KB · Affichages: 30

Vote positif 0 Vote négatif

excalibur

XLDnaute Impliqué

• 19 Décembre 2005

• #3

bonjour valerie le forum tu peus eesaye cette macro Option Explicit
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'salutations

 

Vote positif 0 Vote négatif

excalibur

XLDnaute Impliqué

• 19 Décembre 2005

• #4

bonjour ChTi160 jmps desole pas vu

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 19 Décembre 2005

• #5

Salut JeanPierre ,José
arfff presque qu'un accident

Ti a ajouter une procedure dans ThisWorkBook qui permer une mise ajour instantanée lol

Sub TriFeuilles ()
Dim Bcle%, Index%, Sh As Object
'Évidemment, les feuilles ne doivent pas être protégées !
On Error Resume Next
With ThisWorkbook
For Each Sh In ThisWorkBook. Sheets

For Index = 1 To .Sheets.Count
If LCase (Sh.Name) > LCase (.Sheets (Index).Name) And Sh.Index < Index Then
Sh.Move, .Sheets (Index)
End If
Next Index
End If
Next Sh
End With
End Sub

Cliquez pour agrandir...

Code:

Private Sub Workbook_NewSheet (ByVal Sh As Object)
  TriFeuilles
End Sub

Code:

Private Sub Workbook_SheetActivate (ByVal Sh As Object)
  TriFeuilles
End Sub

Bonne journée

Message édité par: Chti160, à: 19/12/2005 12:00

Message édité par: Chti160, à: 19/12/2005 12:01

 

Vote positif 0 Vote négatif

V

VALERIE

Guest

• 19 Décembre 2005

• #6

MERCI TI
VRAIMENT SYMPA POUR LA REPONSE
VALERIE

 

Vote positif 0 Vote négatif

V

VALERIE

Guest

• 19 Décembre 2005

• #7

MERCI,

ta réponse suffit à mon problème.. je fais tout glisser et ça marche.
grand merdi
A +
valérie 🙂 🙂

 

Vote positif 0 Vote négatif

V

valerie

Guest

• 19 Décembre 2005

• #8

merci quand même..
pour la prochaine fois.
A +
Valérie

 

Vote positif 0 Vote négatif

V

valérie

Guest

• 19 Décembre 2005

• #9

merci quand même
a +
valérie 😉

 

Vote positif 0 Vote négatif