Commande VBA pour Lancer le Menu "Renommer/Feuille" (Excel)

Version imprimable

Voir 40 message(s) de cette discussion en une page

12/02/2012, 21h28
epsilon99

Re bbil,

F1 je connais ......

de plus voilà ce que me dit F1 quand je suis tes conseils .... ::lol::lol:
http://www.play-files.net/images/1329076802-F1.jpg

En fait je vais souvent dans l'explorateur d'objets..

Mais pour commandBar, c.Enabled, c.OnAction, c.Visible et autre, trop peu de choses

C'est donc pour cette raison que je demande.
J'ai pas mal cherché... peut être mal mais je l'ai fait ..

et pas trouvé de choses précises...
c'est la raison pourquoi je réitère..

Enfin. ta soluc avec InputBox, ce n'active pas le menu, c'est un paliatif..

Pour le Renommage.....
Quand On fait sur Une Feuille "Clic droit/Renommer" :
On obtient Ceci (Ecriture Blanche su Fond noir)

j'aurais souhaité connaître la commande qui permette d'aboutir à avoir un Onglet de Feuille ainsi sélectionné :
http://www.play-files.net/images/1328879595-Rename.jpg

Cela redonne la main à l'utilisateur afin de lui proposer de renommer en mode "manuel"

Il ne devrait pas y avoir besoin de InputBox ou autre chose....puisque le Menu de Excel Existe, il doit bien être lançable via VBA...

Comprends tu ce que je veux dire et ce que je voudrais faire ?

@mercatog,

J'ai recopié ton code dans "Thisworkbook" comme tu as indiqué, et ai placé une simulation avec un bouton sur une feuille qui constitue un menu.

cette macro démasque un modèle, la copie et la renumérote, la remasque et copie des valeurs de cellule entre le menu et la nouvelle feuille créée...

pb au moment du démasquage ....
blocage du code....
je te joins le fichier...

http://cjoint.com/?0BmvwIxg73Y

Le code proposé précédemment était purement pédagogique.

Pour ton fichier, il te faut:

1. Dans un module standard

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Public Const MdP As String = "toto"
 
Sub Proteger()
 
ThisWorkbook.Protect Password:=MdP, Structure:=True
End Sub
 
Sub Deproteger()
 
ThisWorkbook.Unprotect Password:=MdP
End Sub

2. Dans le module ThisWorkbook

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
 
Private Sub Workbook_Open()
 
Feuil1.Activate
End Sub
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 
If Sh.Name = "Mon_Menu" Then
    Proteger
Else
    Deproteger
End If
End Sub

3. Dans le module de ta feuille Mon_Menu

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub MonBouton_Click()
Dim Menu As String, Modele_Utilise As String, Nouveau_Nom As String
 
Application.ScreenUpdating = False
Menu = "Mon_Menu"
Modele_Utilise = "Modele1"
 
Deproteger                                       'Deprotection
With Worksheets(Modele_Utilise)
    .Visible = True
    .Copy After:=Worksheets(Worksheets.Count)
    .Visible = False
End With
Nouveau_Nom = Modele_Utilise & " " & "(" & Worksheets.Count + 1 & ")"
ActiveSheet.Name = Nouveau_Nom
Worksheets(Nouveau_Nom).Range("A3:I3").Value = Feuil1.Range("A3:I3").Value
End Sub

PS: Attention au niveau du nom donnée à la nouvelle feuille

13/02/2012, 10h19
epsilon99

Re mercatog,

Je viens de tester, cela fonctionne Ok. :ccool::ccool:

On Protège/Déprotège Alternativement dans le Code VBA quand on en a besoin...

Cela permet de Masquer/Démasquer, créer et copier des Feuilles.

Remarque 1 :
Si il n'y a qu'une Feuille (Celle qui se nomme "Mon_Menu")
=> On ne peut pas insérer de nouvelle Feuille (A moins de faire un Bouton..)

Tu es d'accord sur ce point ?
Ou y a t-il un autre moyen ?

Remarque 2 :
On ne peut pas faire de copie de ce menu si besoin...
Ou y a t-il un autre moyen ?

Et enfin, tu dis :

Citation:

PS: Attention au niveau du nom donnée à la nouvelle feuille

Que veux tu dire par là ?

Merci encore de ton aide.
13/02/2012, 10h58
mercatog

Citation:

Et enfin, tu dis :
Citation:
PS: Attention au niveau du nom donnée à la nouvelle feuille
Que veux tu dire par là ?

Supposons que tu as 3 feuilles X(1), X(2) et X(3), c'est comme ça que tu nommes tes feuilles créées à partir du modèle
Supposons que tu supprimes la X(2) et tu crée une nouvelle. Elle serait nommée X(3); hélas la X(3) existe déjà.
13/02/2012, 11h36
epsilon99

@mercatog,

En effet, je n'avais pas pensé a cela ...:oops::oops:
Aurais tu une préconisation pour palier a ce pb ?

Par contre, pour les 2 Remarques :

Remarque 1 :
Si il n'y a qu'une Feuille (Celle qui se nomme "Mon_Menu")
=> On ne peut pas insérer de nouvelle Feuille (A moins de faire un Bouton..)

Tu es d'accord sur ce point ?
Ou y a t-il un autre moyen ?

Remarque 2 :
On ne peut pas faire de copie de ce menu si besoin...
Ou y a t-il un autre moyen ?

Qu'en dis tu ?

Si tu n'a qu'une seule feuille, tu crée une nouvelle feuille par bouton.
Pour copier Mon_Menu, aussi avec bouton

Pour nommer les feuilles TOTO(X) sans risque de problème, ci-joint une proposition de fonction.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Function NewName(ByVal Str As String) As String
Dim Sortie As Boolean
Dim Sh As Worksheet
Dim i As Integer
 
Do
    i = i + 1
    On Error Resume Next
    Set Sh = Sheets(Str & "(" & i & ")")
    On Error GoTo 0
    If Sh Is Nothing Then
        Sortie = True
        Exit Do
    End If
    Set Sh = Nothing
Loop While i <= Sheets.Count
 
NewName = Str & "(" & IIf(Sortie, i, 1) & ")"
End Function

Code:

1
2
3
4
5
Sub Test()
 
Worksheets.Add before:=Sheets(1)
ActiveSheet.Name = NewName("TOTO")
End Sub

Voir 40 message(s) de cette discussion en une page