Re : création et tri d'onglets avec des noms numéric
Merci Spitnolan, forum
Je crois que tu veux dire que dans cette partie de code
qu'il faudrait modifier quelquechose ?
Dim entetecol As Collection
Set entetecol = New Collection
colref = InputBox("Précisez la colonne de référence, (A,B,...) pour la création des onglets")
For n = 2 To Range("A65536").End(xlUp).Row
On Error Resume Next
entetecol.Add Range(colref & n)
On Error GoTo 0
Next n
For n = 1 To entetecol.Count
For m = 1 To Sheets.Count
If Sheets(m).Name = entetecol(n) Then
exist = True
Exit For
End If
Next m
If Not exist Then
Sheets.Add.Name = entetecol(n)
Sheets("Feuil1").Range("A1:F1").Copy Destination:=ActiveSheet.Range("A1")
End If
exist = False
Next n
J'ai essayé en ajoutant des méthodes de tris d'entetecol
mais le mieux que je suis arrivé, c'est à isoler les
5,10,15 et 20 sur chacun une feuille mais pas avec les
bons noms de feuilles et en plus mal rangées.
Je m'en sors pas. Je continue à chercher mais
Un coup de main serait bien venu.
Merci à tous.