bobred1942
Messages postés3Date d'inscriptionmercredi 23 avril 2014StatutMembreDernière intervention23 avril 2014
-
Modifié par bobred1942 le 23/04/2014 à 22:06
Bonjour,
je souhaiterrais faire un suivi de production avec une création automatique de feuille avec renommage de la feuille et reprendre les données de base d'une feuille.
en gros, Feuille1 avec en colonne "A" liste de date (base de renommage des feuilles) et la Feuille2 recopier les cellules dans chaque nouvelle feuille.
en esperant être compris.
j'ai trouvé certeine base mais pas la formulation parfaite.
"1er teste"
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
If Selection = "" Then Exit Sub
Dim Ws As Worksheet
For Each Ws In Worksheets
If Ws.Name = Target Then MsgBox "Ce nom de feuille existe déjà !": Exit Sub
Next Ws
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = Target
End If
Sheets("base").Activate
End Sub
"et avec ca"
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.Add , Sheets(Worksheets.Count)
ActiveSheet.Name = Nom
End Sub