Microsoft 365 Renommer une feuille selon la valeur d'une cellule (suite)

  • Initiateur de la discussion Initiateur de la discussion BZHPSYCOW
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

BZHPSYCOW

XLDnaute Nouveau
[URGENT]
Bonjour,
Je suis totalement novice en Macro et pour ma 1ère macro,
j'ai vu le topic qui traite mon besoin ("Renommer une feuille selon la valeur d'une cellule").
Par contre, j'ai plus de 150 feuilles à renommer ainsi 🙁
J'ai bien utilisé le code fourni précédemment :
VB:
Sub nom_onglet()
ActiveSheet.Name = Range("e1")
End Sub
...mais le pb est que je dois passer sur chaque feuille pour exécuter la macro 🙁
N'y a-t-il moyen d'exécuter la macro une fois pour l'ensemble des feuilles ?
 
Solution
Et si je dois faire un mixte des 2 : j'ai des feuilles cachées qu'on ne va pas renommer et (par exclusion) des feuilles visibles qu'il ne faut pas renommer, c'est possible ? il faut peut-être imbriquer des if ? Je ne parviens pas à imbriquer les 2 if 🙁

Voià, voilou:
VB:
Sub RenommerC1()
' Dans la constante Exclusion, indiquez les noms des onglets à exclure séparés par une virgule
' et on ne renomme pas les feuilles masquées
Const Exclusion = "TOTO,titi"

Dim F
   On Error GoTo Err001
   For Each F In ThisWorkbook.Worksheets
      If InStr(1, "," & Exclusion & ",", "," & F.Name & ",", vbTextCompare) = 0 And _
         F.Visible = xlSheetVisible Then
            F.Name = F.Range("e1").Value
      End If
   Next F
   Exit Sub...
Et si je dois faire un mixte des 2 : j'ai des feuilles cachées qu'on ne va pas renommer et (par exclusion) des feuilles visibles qu'il ne faut pas renommer, c'est possible ? il faut peut-être imbriquer des if ? Je ne parviens pas à imbriquer les 2 if 🙁

Voià, voilou:
VB:
Sub RenommerC1()
' Dans la constante Exclusion, indiquez les noms des onglets à exclure séparés par une virgule
' et on ne renomme pas les feuilles masquées
Const Exclusion = "TOTO,titi"

Dim F
   On Error GoTo Err001
   For Each F In ThisWorkbook.Worksheets
      If InStr(1, "," & Exclusion & ",", "," & F.Name & ",", vbTextCompare) = 0 And _
         F.Visible = xlSheetVisible Then
            F.Name = F.Range("e1").Value
      End If
   Next F
   Exit Sub

Err001:
   MsgBox "La feuille de nom <" & F.Name & "> n'a pas pu être renommée" & vbLf & _
      "avec le nom <" & F.Range("e1").Value & ">." & vbLf & _
      "L'erreur suivante s'est produite: Erreur n° " & Err.Number & vbLf & _
      Err.Description, vbCritical
      Resume Next
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour