cliquer et creation nouvelle feuille

[michelexcel]

Un Joyeux Noel à Tous, et je vous souhaite ce que vous désirez le plus.

Et maintenant le problème: J'ai une macro qui insère une nouvelle feuille et la nomme du nom de la cellule qui est activée. Comment faire pour qu'au lieux de cliquer une cellule, que ce soit toujours la cellule A1 qui est activée.

En fait la question plus élaborée et l'exemple inclus dans le fichier
vous permettront de mieux comprendre mes questions.

Merci de votre attention
Michel

 

[ccpapy]

Re : cliquer et creation nouvelle feuille

joyeux noel à tous
remplace le code de ta macro par ceci

Sub ajout_clients()
Dim ws As Worksheet, MonNom As String
MonNom = Range("a1").Value
Sheets.Add , Sheets(Worksheets.Count)
For Each ws In Worksheets
If ws.Name = MonNom Then MonNom = InputBox("Cette Fiche exite déjà ! Inscrivez un autre nom")
Next ws
ActiveSheet.Name = MonNom
End Sub

à+

 

[CB60]

Re : cliquer et creation nouvelle feuille

Bonjour à tous et bon Noël
Trois macro pour ton choix.
la tienne en fonction de la ligne active
Celle de CCPapy en fonction de "A1"
et une te permettant de choisir ta cellule.

PS : Si tu ajoute cette ligne en dessous de: ActiveSheet.Name = MonNom, cela te permet de crée un lien hypertexte en même temps que ta feuille.

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Feuil1!A1", TextToDisplay:="Feuil1!A1"

 

[michelexcel]

Re : cliquer et creation nouvelle feuille

Bonjour Bruno et ccpapy .
Premièrement Joyeux Noel à vous deux.
C'est super. Et comme j'ai le choix entre ces trois solutions, je vais pouvoir les appliquer dans mes autres modules.
Encore une fois Merci beaucoup et bonne journée
Michel

 

[jp14]

Re : cliquer et creation nouvelle feuille

Bonjour

En rajoutant ce code dans la feuille la macro sera directement accessible dans le menu contextuel.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
Cancel As Boolean)


Dim icbc As Object
For Each icbc In Application.CommandBars("cell").Controls
If icbc.Tag = "brccm" Then icbc.Delete
Next icbc

With Application.CommandBars("cell").Controls _
.Add(before:=6, _
temporary:=True)
.Caption = "creer feuille"
.OnAction = "ajout_clients2"
.Tag = "brccm"
End With


End Sub

JP