Bonjour
Voici mon problème :
dans classeur j' ai un nombre variable de feuilles comment peut-on les
classer en ordre alphanumérique
à l'aide d'une macro en VB?
je n'y arrive pas.
Merci
Bonjour Voici mon problème : dans classeur j' ai un nombre variable de feuilles comment peut-on les classer en ordre alphanumérique à l'aide d'une macro en VB? je n'y arrive pas. Merci
Bonjour
Voici mon problème :
dans classeur j' ai un nombre variable de feuilles comment peut-on les
classer en ordre alphanumérique
à l'aide d'une macro en VB?
je n'y arrive pas.
Merci
Bonjour Voici mon problème : dans classeur j' ai un nombre variable de feuilles comment peut-on les classer en ordre alphanumérique à l'aide d'une macro en VB? je n'y arrive pas. Merci
jcm11
Merci Isabelle jcm "isabelle" a écrit dans le message de news:
Jcm11 Bonjour, voila ce que je t'ai pondu Il te faudra modifier Feuil4 par le vrai nom, j'utilise qlq cellules de cette page Bruno
Sub trie() For k = 1 To Sheets.Count Sheets("Feuil4").Cells(k, 1) = Sheets(k).Name Next Feuil4.Range("A1:A" & Sheets.Count).Sort Key1:þuil4.Range("A1"), Order1:=xlAscending For k = 1 To Sheets.Count - 1 Sheets(Sheets("Feuil4").Cells(k, 1).Value).Move Before:=Sheets(k) Next Feuil4.Range("A1:A" & Sheets.Count).ClearContents End Sub
jcm11 a écrit dans le message : #
Bonjour Voici mon problème : dans classeur j' ai un nombre variable de feuilles comment peut-on les classer en ordre alphanumérique à l'aide d'une macro en VB? je n'y arrive pas. Merci
Jcm11 Bonjour,
voila ce que je t'ai pondu
Il te faudra modifier Feuil4 par le vrai nom, j'utilise qlq cellules de
cette page
Bruno
Sub trie()
For k = 1 To Sheets.Count
Sheets("Feuil4").Cells(k, 1) = Sheets(k).Name
Next
Feuil4.Range("A1:A" & Sheets.Count).Sort Key1:þuil4.Range("A1"),
Order1:=xlAscending
For k = 1 To Sheets.Count - 1
Sheets(Sheets("Feuil4").Cells(k, 1).Value).Move Before:=Sheets(k)
Next
Feuil4.Range("A1:A" & Sheets.Count).ClearContents
End Sub
jcm11 <mau.jean-claude@wanadoo.fr> a écrit dans le message :
#B3fR0WeEHA.236@tk2msftngp13.phx.gbl...
Bonjour
Voici mon problème :
dans classeur j' ai un nombre variable de feuilles comment peut-on les
classer en ordre alphanumérique
à l'aide d'une macro en VB?
je n'y arrive pas.
Merci
Jcm11 Bonjour, voila ce que je t'ai pondu Il te faudra modifier Feuil4 par le vrai nom, j'utilise qlq cellules de cette page Bruno
Sub trie() For k = 1 To Sheets.Count Sheets("Feuil4").Cells(k, 1) = Sheets(k).Name Next Feuil4.Range("A1:A" & Sheets.Count).Sort Key1:þuil4.Range("A1"), Order1:=xlAscending For k = 1 To Sheets.Count - 1 Sheets(Sheets("Feuil4").Cells(k, 1).Value).Move Before:=Sheets(k) Next Feuil4.Range("A1:A" & Sheets.Count).ClearContents End Sub
jcm11 a écrit dans le message : #
Bonjour Voici mon problème : dans classeur j' ai un nombre variable de feuilles comment peut-on les classer en ordre alphanumérique à l'aide d'une macro en VB? je n'y arrive pas. Merci
