Problème de tri d'onglets

[Arcangeli]

Bonjour à tous. J'ai trouvé dans le forum un bout de code VBA que j'ai adapté à mes besoins et qui fontionne à merveille.
Mais voilà on en veut toujours plus et là je suis vraiment nul.
Les explications en pièce jointe si vous avez une idée.
Déjà merci

 

[Papou-net]

Re : Problème de tri d'onglets

Bonjour à tous. J'ai trouvé dans le forum un bout de code VBA que j'ai adapté à mes besoins et qui fontionne à merveille.
Mais voilà on en veut toujours plus et là je suis vraiment nul.
Les explications en pièce jointe si vous avez une idée.
Déjà merci

Bonjour Arcangeli,

En écrivant ta boucle ainsi, ça fonctionnera (j'ai testé).

Espérant avoir répondu.

Cordialement.

Option Explicit

Sub Nommer_Feuilles()

Dim n As Integer

Application.ScreenUpdating = False

For n = 2 To Range("A65536").End(xlUp).Row
  Sheets(Sheets("Données").Cells(n, 1).Value).Move after:=Sheets(n - 1)
Next
Application.ScreenUpdating = True

End Sub

 

[Arcangeli]

Re : Problème de tri d'onglets

Merci Papou-net
Oui, effectivement ça fonctionne, mais je perds l'entête de chaque feuille qui correspond au même nom que l'onglet.
Regarde si c'est possible et encore merci.

 

[Papou-net]

Re : Problème de tri d'onglets

Bonsoir Arcangeli,

Vu, j'avais pas vu !
Qu'à cela ne tienne, ajoute à ta boucle la ligne en rouge :

For n = 2 To Range("A65536").End(xlUp).Row
  Sheets(Sheets("Données").Cells(n, 1).Value).Move after:=Sheets(n - 1)
  [COLOR="Red"][B]ActiveSheet.Range("A1").Formula = "=Agent" & n - 1[/B][/COLOR]
Next

Cordialement.

 

[Arcangeli]

Re : Problème de tri d'onglets

Ok Papou-net impécable
Encore merci