XL 2010 Macro pour changement nom de boutons (formulaire) et changement de noms des onglets

D

danielco

XLDnaute Accro

• 15 Septembre 2019

• #2

Bonjour,

Poste, s'il te plait, le code de tes macros.

Cordialement.

 

Vote positif 0 Vote négatif

C

Collins

XLDnaute Occasionnel

• 15 Septembre 2019

• #3

danielco à dit:

Bonjour,

Poste, s'il te plait, le code de tes macros.

Cordialement.

Cliquez pour agrandir...

Bonjour
Attend un petit peu je suis sur mon fichier et je n'arrête pas de faire des essai.
Quand tu me dis le code , c'est la macro?

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 15 Septembre 2019

• #4

Oui.

Daniel

 

Vote positif 0 Vote négatif

C

Collins

XLDnaute Occasionnel

• 15 Septembre 2019

• #5

Merci Daniel
Et bien je n'y arrive pas
Je mets un fichier d'exemple et sur la 1ère page j'ai mis des explications.

 

Pièces jointes

• Essai_Onglet_bouton.xlsm

  29.1 KB · Affichages: 7

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 15 Septembre 2019

• #6

Désolé, je ne comprends toujours pas. Ne te réfère pas à ce qui ne fonctionne pas. Tu veux changer le nom des feuilles à la fermeture ? Où prend-t-on les nouveaux noms ? Peux-t-on supprimer les boutons ?

Daniel

 

Dernière édition: 15 Septembre 2019

Vote positif 0 Vote négatif

C

Collins

XLDnaute Occasionnel

• 15 Septembre 2019

• #7

C'est moi qui suis désolé pour mes explications.
Ce que je veux c'est qu'en fermant le fichier les noms des boutons et aussi les noms des feuilles se changent par rapport aux noms inscrit dans la 1 ère feuille (table)
Oui tu peux tout supprimer ce qui ne va pas.
C'est simplement un fichier ou j'arrive à changer en écrivant manuellement une lettre dans A1 des 2 feuilles mais je ne voudrai pas écrire mais que l'opération se fasse par une macro en fermant.

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 15 Septembre 2019

• #8

Supprime toutes les macros existantes et mets celle-ci dans ThisWorkbook :

VB:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Dim I As Long, J As Long
  For I = 1 To 3
    Sheets(I + 2).Name = Sheets("Table").[A1].Offset(I - 1)
  Next I
  For I = 2 To 3
    For J = 1 To 3
      Sheets(I).DrawingObjects(J).Caption = Sheets("Table").[A1].Offset(J - 1)
    Next J
  Next I
  ThisWorkbook.Save
End Sub

Daniel

 

Vote positif 0 Vote négatif

C

Collins

XLDnaute Occasionnel

• 15 Septembre 2019

• #9

Ok je vais faire çà
et je fais l'essai

 

Vote positif 0 Vote négatif

C

Collins

XLDnaute Occasionnel

• 15 Septembre 2019

• #10

Voila j'ai fait l'essai
Mais j'ai surement oublié de dire qu'il était possible de changer les noms dans A1, A2, A3 de la table. Et quand je l'ai fait j'ai été bloqué à :
Sheets(I + 2).Name = Sheets("Table").[A1].Offset(I - 1)

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 15 Septembre 2019

• #11

Qu'est-ce que tu as mis dans ces cellules ?

Daniel

 

Vote positif 0 Vote négatif

C

Collins

XLDnaute Occasionnel

• 15 Septembre 2019

• #12

Excuse moi j'étais avec mon fils sur skype
tu y mets n'importe quoi comme 3 noms pour faire un essai.
Et là ça bloque, ça ne marche pas si on change.

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 15 Septembre 2019

• #13

Est-ce que tu as bien ôté toutes les macros ? Regarde le classeur joint.

Daniel

 

Pièces jointes

• Essai_Onglet_bouton.xlsm

  30.1 KB · Affichages: 11

Vote positif 0 Vote négatif

C

Collins

XLDnaute Occasionnel

• 15 Septembre 2019

• #14

Effectivement ça marche impeccable
Je te remercie sincèrement.
Je regarderai mieux mon fichier mais il me semble les avoir enlevés mais je doute de moi quand même.
Je pense plus tard que j'aurai une feuille supplémentaire à rajouter à mon fichier (aussi avec des boutons), qu'aurai-je à modifier par rapport à ta macro.

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 15 Septembre 2019

• #15

La macro fonctionne avec l'ordre des feuilles. Ca dépend donc où tu mets la nouvelle feuille.

Daniel

 

Vote positif 0 Vote négatif