renommer onglet

[al1000]

bonjour


voci ma macro:

Sub copie_onglet()

' copie_onglet Macro

Sheets("matrice").Select

ActiveSheet.Buttons.Add(399.75, 14.25, 83.25, 64.5).Select

Sheets("matrice").Copy Before:=Sheets(2)

Sheets("matrice (2)").Select

Sheets("matrice (2)").Name = "11"

Range("A1").Select
End Sub



elle copie l'onlet matrice
et demande de la renommer

MAIS JE VODRAIS AVANT D ISCRIRE 11 ( c'est notre exemple) METTE UNE INPUT BOX POUR E DEMANDER LE NUMERO DE L ONGLET A INSCRIRE.



A+

 

[Orodreth]

Re : renommer onglet

bonjour

Vois si cela te convient:

Sub copie_onglet()

' copie_onglet Macro

Sheets("matrice").Select

ActiveSheet.Buttons.Add(399.75, 14.25, 83.25, 64.5).Select

Sheets("matrice").Copy Before:=Sheets(2)

Sheets("matrice (2)").Select

Dim NomOnglet as string
NomOnglet = inputbox ("entrez un numéro svp")

Sheets("matrice (2)").Name = NomOnglet

Range("A1").Select
End Sub

Cordialement,
thomas

 

[al1000]

Re : renommer onglet

bonjour,


merci


genial


a+

 

[Orodreth]

Re : renommer onglet

de rien, un plaisir

 

[al1000]

Re : renommer onglet

Bonjour,

Un petit conseil:

comment modifier la macro pour copier l'onglet en dernier

j ai essayé after

a+

 

[mutzik]

Re : renommer onglet

bonjour,

sheets.count te renvoie le nombre de feuilles du classeur,
donc:
Sheets("matrice").Copy after:=Sheets(sheets.count))
à tester ...

 

[al1000]

Re : renommer onglet

Bonjour,

merci