Ajout d'une feuille au double click
Résolu
yole
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,
Je souhaiterais ajouter une feuille portant le nom de la cellule au double click.
Jusque là tout va bien ça fonctionne mais mon problème c'est que cette nouvelle feuille je voudrais qu'elle soit créé à partir d'un modèle se trouvant dans la feuille modele.
Comment modifier mon vba pour obtenir ce que je souhaite :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim cel As Range
Dim ws As Worksheet
Dim Nom As String
If Target.Column <> 1 Then Exit Sub
On Error Resume Next
Nom = Target.Value
If Nom = "" Then Exit Sub
For Each ws In Worksheets
If ws.Name = Nom Then
Call MsgBox("La feuille avec ce nom existe déja.", vbCritical, "Impossible de créer une feuille")
Exit Sub
End If
Next ws
Sheets.Add , Sheets(Worksheets.Count)
ActiveSheet.Name = Nom
End Sub
En vous remerciant
Je souhaiterais ajouter une feuille portant le nom de la cellule au double click.
Jusque là tout va bien ça fonctionne mais mon problème c'est que cette nouvelle feuille je voudrais qu'elle soit créé à partir d'un modèle se trouvant dans la feuille modele.
Comment modifier mon vba pour obtenir ce que je souhaite :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim cel As Range
Dim ws As Worksheet
Dim Nom As String
If Target.Column <> 1 Then Exit Sub
On Error Resume Next
Nom = Target.Value
If Nom = "" Then Exit Sub
For Each ws In Worksheets
If ws.Name = Nom Then
Call MsgBox("La feuille avec ce nom existe déja.", vbCritical, "Impossible de créer une feuille")
Exit Sub
End If
Next ws
Sheets.Add , Sheets(Worksheets.Count)
ActiveSheet.Name = Nom
End Sub
En vous remerciant
2 réponses
-
Bonjour,
Voici un exemple à adapter:
https://www.cjoint.com/c/HIyrcuKuo7Q
-
-
-
-
C'est tout simple:
dans l'exemple la feuille Active est la feuille2 et la feuille modèle la feuille 1 qui se trouve à gauche de la feuille 2.
La nouvelle feuille va se trouver à droite de la feuille 2
Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim cel As Range Dim ws As Worksheet Dim Nom As String If Target.Column <> 1 Then Exit Sub On Error Resume Next Nom = Target.Value If Nom = "" Then Exit Sub For Each ws In Worksheets If ws.Name = Nom Then Call MsgBox("La feuille avec ce nom existe déja.", vbCritical, "Impossible de créer une feuille") Exit Sub End If Next ws Sheets("Feuil1").Copy After:=Sheets(Worksheets.Count) ActiveSheet.Name = Nom End Sub
Voilà
@+ -
-
-
