CHANGER NON D'ONGLET

[Fidmo]

Bonjour à toutes & à tous,
J'ai un problème pour renommer les onglets de mon fichier que je mets en pièce jointe.
J'ai le message " Bug" et le fichier ne marche plus. Je ne sais comment faire. Quelqu’un (e) peut il m'apporter de l'aide?
Fidmo

 

[Victor21]

Bonjour, Fidmo.

Une piste : Mr. Zaza, même s'il devient Sté, s'appelle toujours Feuil1. Et Finance, même renommé en TVA, s'appelle toujours Feuil4.

 

[Staple1600]

Bonsoir le fil, le forum

@Fidmo

Bonjour à toutes & à tous,
J'ai le message " Bug"

Jamais naturellement, Excel n'affichera le mot Bug 😉
Quel est le message précis qui s'affiche lorsque l'erreur survient?

PS: Sinon pour ta question, utilises plutôt le codename des feuille plutôt que le nom affiché dans l'onglet.

EDITION: Bonsoir Victor21 😉

 

[Lone-wolf]

Bonsoir Fidmo, le Forum 🙂

EDIT : bonsoir Jean Marie , Victor 🙂

Pourquoi une macro, alors que tu peux les renommer manuellement?? 🙄

 

[Victor21]

Bonsoir, Lone wolf, Staple 1600

"Je souhaite renommer mes onglets souvent."

Sinon *

Sub Renommer()
Dim Sh As Worksheet

    For Each Sh In ThisWorkbook.Sheets
        If Sh.Name = "Mr. Zaza" Then
            Sh.Name = "Sté"
        ElseIf Sh.Name = "Comptabilité" Then
            Sh.Name = "Compta"
        ElseIf Sh.Name = "Finance" Then
            Sh.Name = "TVA"
        End If
    Next Sh
End Sub

* Souvent ?
😉

 

[Lone-wolf]

Re Victor

@Victor21 :

"Je souhaite renommer mes onglets souvent."

Il ne parle pas de "souvent".

Edit: c'était noté dans le fichier, pas fait attention.

 

[Lone-wolf]

Re Fidmo

@Fidmo

Ton fichier en retour. J'ai créé une nouvelle feuille avec les anciens et nouveaux noms. Une fois que la macro est exécutée, veille à changer les noms.

 

[Fidmo]

Bonjour Lone-wolf,
D'abord un très Grand Merci pour votre aide. C'est génial. Je pense que vous avez compris ce que je souhaite. Je remercie également Victor21 & Stapl1600 en les informant que je suis nul en informatique, je ne suis pas le propriétaire du fichier...
Il y a cependant un problème qui vient de surgir: En cliquant sur " Renommer" puis dans l'onglet Sté sur "Grand Livre" je reçois le message suivant:
Erreur d'exécution '9'
L'indice n'appartient pas à la sélection.
Pourriez-vous m'apporter une solution?
Encore merci

 

[Staple1600]

Bonsoir le fil, le fourrum, le forum

@Fidmo
Si tu remplaces tes macros initiales par celles-ci, est-ce que cela fonctionne mieux?

Sub Actualisé()
' Actualisé Macro
ActiveWorkbook.RefreshAll
End Sub
Sub grandlivre()
Feuil2.Select
End Sub
Sub retour()
' retour Macro
Feuil1.Select
End Sub
Sub tva()
' tva Macro
Feuil4.Select
End Sub
Sub parametre()
' parametre Macro
Feuil3.Select
End Sub

NB: Ces macros étaient dans le module 3

EDITION: Bonsoir Lone-Wolf
C'est normal, lendemain de demie-finale 😉

 

[Lone-wolf]

Bonsoir fidmo, Jean Marie, Victor, leForum 🙂

@Staple1600 :

Bonsoir le fil, le fourrum

Ah, Bon! Depuis quand le four à un rum?? 😵😀😀 Et si on rajoute ine, le four rumine, ce n'est pas bon signe non plus. 😉😀

 

[Fidmo]

Bonjour Lone-wolf, Staple1600, Victor21,
Désolé, mais je ne comprends rien à votre langage, je suis nul en informatique, Vba étc...
Mais un ami lui a comprit et vient me donner un coup de pousse. Ça marche à merveille. Vous êtes tous les génies de ce beau Forum.
Mille Mercis.
Fidmo

 

[Lone-wolf]

Bonjour à tous 🙂

@Fidmo: ton fichier en retour, avec les macros modifiées de Staple1600 (Alias JM - Alias Jean Marie -
Alias J'en marie mais pas beaucoup 😀😀😀)