renommer onglets

[VBA_DEAD]

bonjour

j`espere que tout le monde va bien. Bonne Annee a ceux qui fetent le nouvel an chinois!! 😉
je recois chaque semaine des files et les noms des onglets sont avec un code au lieu d`un terme plus parlant ...onglet nomme xa au lieu de paris ou chaussure

chaque semaine je dois renommer les 0nglets.

il y a t`il moyen de renommer par macro les onglets comme explique ds le file joint?

merci a vous.

VBA_DEAD

 

[bambi]

Re : renommer onglets

Bonjour vba dead

Une macro toute basique fonctionne il me semble.

Sub RenommerFeuilles()
 
    Sheets("xa").Name = "paris"
     Sheets("xb").Name = "toulouse"
      Sheets("xc").Name = "rouen"
       Sheets("xd").Name = "lille"
        Sheets("xe").Name = "lyon"
         Sheets("xf").Name = "marseille"
           Sheets("xg").Name = "bordeaux"
            Sheets("xh").Name = "poitiers"

End Sub

 

[VBA_DEAD]

Re : renommer onglets

bonjour Bambi,

en fait je pensais a une boucle car j`ai 48 onglets donc je veux pas vraiment figer le code comme tu le fais.
j`ai 48 onglets mais peut 52 dans 1 mois et 55 en fin d`annee.
donc j`ai deja une macro qui liste les onglets. Me reste le dernier step, corriger le nom en boucle

merci

 

[Efgé]

Re : renommer onglets

Bonjour VBA_DEAD, bambi,
Le code de bambi fonctionne si toutes les feuilles sont présentent.
Je propose plutot ceci:

Sub renome()
Dim feuille As Worksheet
For Each feuille In ThisWorkbook.Worksheets
If feuille.Name = "xa" Then feuille.Name = "paris"
If feuille.Name = "xb" Then feuille.Name = "toulouse"
'etc...
Next
End Sub

Pas besoin de End if puisque les If sont sur une seule ligne.
Cordialement

 

[Efgé]

Re : renommer onglets

Re
Avec les nouvelles explications et en partant du principe que la liste de correspondances est positionnée comme dans l'exemple:

Sub renome()
Dim feuille As Worksheet
Dim derligne As Long
derlign = Range("A" & Application.Rows.Count).End(xlUp).Row
    For Each feuille In ThisWorkbook.Worksheets
        For i = 1 To derlign
            If feuille.Name = Cells(i, 1).Value Then feuille.Name = Cells(i, 2).Value
        Next i
    Next feuille
End Sub

Cordialement

 

[Dull]

Re : renommer onglets

Salut VBA_DEAD, bambi, FG🙂 le Forum

peut-être comme ça

Option Explicit
Sub RenoM()
Dim C As Object
    For Each C In Range("A1:A" & Range("A65536").End(xlUp).Row)
        On Error Resume Next
        If C <> "" Then Sheets(CStr(C)).Name = C.Offset(0, 1)
    Next C
End Sub

Juste le temps de raffraichir 😀

Bonne Journée

 

[VBA_DEAD]

Re : renommer onglets

Bonjour a tous,

je vous remercie pour votre aide.

Ca marche impeccable et ca va vite. 😀

Cool!

bonne journee a vous

VBA_DEAD