Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel code pour donner un nom à une nouvelle feuille

code pour donner un nom à une nouvelle feuille

4 réponses
Avatar
Greg
Bonjour,

Voici mon code qui copie ma feuille "emploi du temps". Je voudrais que la
nouvelle feuille s'intitule "E.T. détaillé". Comment faire?

Sub precision()
'
'
Sheets("EMPLOI DU TEMPS").Select
ActiveSheet.Buttons.Add(1319.25, 192, 312, 51.75).Select
ActiveSheet.Buttons.Add(1655.25, 26.25, 186, 213.75).Select
Sheets("EMPLOI DU TEMPS").Copy Before:=Sheets(1)
End Sub


Merci

Greg
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
Bonsoir,
'----------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Worksheets("E.T. détaillé").Activate
If Err <> 0 Then
Sheets("EMPLOI DU TEMPS").Copy Before:=Sheets(1)
ActiveSheet.Name = "E.T. détaillé"
Else:
MsgBox "La feuille" & vbLf & ActiveSheet.Name & vbLf & "est déjà existante"
End If
End Sub
'-------------------
--
Salutations
JJ


"Greg" a écrit dans le message de news:

Bonjour,

Voici mon code qui copie ma feuille "emploi du temps". Je voudrais que la
nouvelle feuille s'intitule "E.T. détaillé". Comment faire?

Sub precision()
'
'
Sheets("EMPLOI DU TEMPS").Select
ActiveSheet.Buttons.Add(1319.25, 192, 312, 51.75).Select
ActiveSheet.Buttons.Add(1655.25, 26.25, 186, 213.75).Select
Sheets("EMPLOI DU TEMPS").Copy Before:=Sheets(1)
End Sub


Merci

Greg


Avatar
Jacky
Petite erreur ;o))
Pas dans le:
"Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
Maie en sub
'------------------
Sub precision()
On Error Resume Next
Worksheets("E.T. détaillé").Activate
If Err <> 0 Then
Sheets("EMPLOI DU TEMPS").Copy Before:=Sheets(1)
ActiveSheet.Name = "E.T. détaillé"
Else:
MsgBox "La feuille" & vbLf & ActiveSheet.Name & vbLf & "est déjà existante"
End If
End Sub
'-----------------
--
Salutations
JJ


"Jacky" a écrit dans le message de news:
%

Bonsoir,
'----------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Worksheets("E.T. détaillé").Activate
If Err <> 0 Then
Sheets("EMPLOI DU TEMPS").Copy Before:=Sheets(1)
ActiveSheet.Name = "E.T. détaillé"
Else:
MsgBox "La feuille" & vbLf & ActiveSheet.Name & vbLf & "est déjà
existante"
End If
End Sub
'-------------------
--
Salutations
JJ


"Greg" a écrit dans le message de news:

Bonjour,

Voici mon code qui copie ma feuille "emploi du temps". Je voudrais que la
nouvelle feuille s'intitule "E.T. détaillé". Comment faire?

Sub precision()
'
'
Sheets("EMPLOI DU TEMPS").Select
ActiveSheet.Buttons.Add(1319.25, 192, 312, 51.75).Select
ActiveSheet.Buttons.Add(1655.25, 26.25, 186, 213.75).Select
Sheets("EMPLOI DU TEMPS").Copy Before:=Sheets(1)
End Sub


Merci

Greg






Avatar
Ptit Louis
Bonjour,

Juste avant le end sub, ajouter
Activesheet.Name="E.T. dtaill"

"Greg" a écrit :

Bonjour,

Voici mon code qui copie ma feuille "emploi du temps". Je voudrais que la
nouvelle feuille s'intitule "E.T. dtaill". Comment faire?

Sub precision()
'
'
Sheets("EMPLOI DU TEMPS").Select
ActiveSheet.Buttons.Add(1319.25, 192, 312, 51.75).Select
ActiveSheet.Buttons.Add(1655.25, 26.25, 186, 213.75).Select
Sheets("EMPLOI DU TEMPS").Copy Before:=Sheets(1)
End Sub


Merci

Greg



Avatar
Greg
Bonsoir et merci Jacky pour ta réponse!

ça marche impec!

Greg

"Jacky" a écrit dans le message de
news:
Petite erreur ;o))
Pas dans le:
"Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
Maie en sub
'------------------
Sub precision()
On Error Resume Next
Worksheets("E.T. détaillé").Activate
If Err <> 0 Then
Sheets("EMPLOI DU TEMPS").Copy Before:=Sheets(1)
ActiveSheet.Name = "E.T. détaillé"
Else:
MsgBox "La feuille" & vbLf & ActiveSheet.Name & vbLf & "est déjà
existante"
End If
End Sub
'-----------------
--
Salutations
JJ


"Jacky" a écrit dans le message de news:
%

Bonsoir,
'----------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Worksheets("E.T. détaillé").Activate
If Err <> 0 Then
Sheets("EMPLOI DU TEMPS").Copy Before:=Sheets(1)
ActiveSheet.Name = "E.T. détaillé"
Else:
MsgBox "La feuille" & vbLf & ActiveSheet.Name & vbLf & "est déjà
existante"
End If
End Sub
'-------------------
--
Salutations
JJ


"Greg" a écrit dans le message de news:

Bonjour,

Voici mon code qui copie ma feuille "emploi du temps". Je voudrais que
la nouvelle feuille s'intitule "E.T. détaillé". Comment faire?

Sub precision()
'
'
Sheets("EMPLOI DU TEMPS").Select
ActiveSheet.Buttons.Add(1319.25, 192, 312, 51.75).Select
ActiveSheet.Buttons.Add(1655.25, 26.25, 186, 213.75).Select
Sheets("EMPLOI DU TEMPS").Copy Before:=Sheets(1)
End Sub


Merci

Greg