Macro nom de cellule = nom onglet avec classement alphabetiq

bonjour à tous,

voici mon problème

je cherche à renommer les onglets de feuille ( il y aura au minimum 400 feuilles) en fonction de la valeur d'une cellule (ex: A1) mais aussi que les onglets se classent automatiquement par ordre alphabétique

merci d'avance pour vos réponses

AUBA

Bonjour,

Toutes les feuilles sont à renommer et à trier, ou tu en as dans le lot qui ne sont pas à traiter ?

Sinon voici une macro à mettre dans un module qui fait le traitement pour toutes les feuilles du classeur :

Sub TrierOnglets()

Dim Boucle As Integer, Compteur As Integer

For i = 1 To ActiveWorkbook.Sheets.Count
    Worksheets(i).Name = Worksheets(i).Range("A1").Value
Next i

For Boucle = 1 To Sheets.Count
    If Sheets(Boucle).Visible = True Then
        For Compteur = 1 To (Boucle - 1)
            If Sheets(Compteur).Visible = True Then
                If (UCase(Sheets(Boucle).Name) < UCase(Sheets(Compteur).Name)) Then
                    Sheets(Boucle).Move before:=Sheets(Compteur)
                    Exit For
                End If
            End If
        Next Compteur
    End If
Next Boucle

End Sub

Cordialement,

bonjour Zirak

toutes les feuilles sont à renommer puisque nouveau fichier

je viens de tester la macro, je l'ai installée dans un module mais il ne se passe rien , les onglets ne prennent pas le nom de la cellule A1

cordialement

AUBA

Tu as copié la macro et quand tu l'éxécutes il ne se passe rien ?

Pourrais-tu joindre ton fichier vide où tu l'as collé que je puisse faire des tests de mon côté, car cela fonctionne chez moi, je viens de vérifier.

Cordialement,

voici mon fichier qui me sert de test pour la macro , mais cela ne marche pas

cordialement

AUBA

Re,

Ton fichier fonctionne très bien, il ne suffit pas de coller la macro dans le module, il faut ensuite l'exécuter soit en l'appellant depuis un autre traitement, soit via un bouton.

Ton fichier non modifié en retour, j'ai juste ajouté un bouton sur la 1ère feuille pour que tu puisses voir que la macro fonctionne.

Cordialement,

merci beaucoup Zirak

effectivement elle marche très bien

bonne journée

AUBA