Bonjour,
est-il possible de créer, sur un onglet "alpha", un bouton ou quelque chose
pour dupliquer ou tripler ou quadrupler cet onglet.
Je m'explique : quand on clic sur ce bouton, il crée l'onglet "alpha_01" en
le plaçant juste après l'onglet "alpha", puis si on reclic dessus, il crée
l'onglet "alpha_02", en le plaçant après "alpha_01", etc..
Merci.
YANN
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
fetnat
Bonjour,
Sub addsheet() Dim n As Integer, sheetname$ For n = 1 To 4 sheetname = "Alpha" & "0" & n Worksheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = (sheetname) Next End Sub
Cordialement
Fetnat
Sunburn a écrit :
Bonjour, est-il possible de créer, sur un onglet "alpha", un bouton ou quelque chose pour dupliquer ou tripler ou quadrupler cet onglet. Je m'explique : quand on clic sur ce bouton, il crée l'onglet "alpha_01" en le plaçant juste après l'onglet "alpha", puis si on reclic dessus, il crée l'onglet "alpha_02", en le plaçant après "alpha_01", etc.. Merci. YANN
Bonjour,
Bonjour,
Sub addsheet()
Dim n As Integer, sheetname$
For n = 1 To 4
sheetname = "Alpha" & "0" & n
Worksheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = (sheetname)
Next
End Sub
Cordialement
Fetnat
Sunburn a écrit :
Bonjour,
est-il possible de créer, sur un onglet "alpha", un bouton ou quelque chose
pour dupliquer ou tripler ou quadrupler cet onglet.
Je m'explique : quand on clic sur ce bouton, il crée l'onglet "alpha_01" en
le plaçant juste après l'onglet "alpha", puis si on reclic dessus, il crée
l'onglet "alpha_02", en le plaçant après "alpha_01", etc..
Merci.
YANN
Sub addsheet() Dim n As Integer, sheetname$ For n = 1 To 4 sheetname = "Alpha" & "0" & n Worksheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = (sheetname) Next End Sub
Cordialement
Fetnat
Sunburn a écrit :
Bonjour, est-il possible de créer, sur un onglet "alpha", un bouton ou quelque chose pour dupliquer ou tripler ou quadrupler cet onglet. Je m'explique : quand on clic sur ce bouton, il crée l'onglet "alpha_01" en le plaçant juste après l'onglet "alpha", puis si on reclic dessus, il crée l'onglet "alpha_02", en le plaçant après "alpha_01", etc.. Merci. YANN
Bonjour,
Sunburn
euh, en fait, ça ne fait que rajouter des onglets vierges. Moi, je veux créer un onglet identique à mon onglet "alpha", faire une copie de mon onglet en fait, sachant qu'il n'y a pas de limite au niveau du nombre d'onglet créer : le premier sera "alpha_01", le second "alpha_02", etc... et bien sur, le placer après l'onglet "alpha" ou après la dernière copie de l'onglet "alpha". Merci. YANN
"fetnat" a écrit :
Bonjour,
Sub addsheet() Dim n As Integer, sheetname$ For n = 1 To 4 sheetname = "Alpha" & "0" & n Worksheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = (sheetname) Next End Sub
Cordialement
Fetnat
Sunburn a écrit : > Bonjour, > est-il possible de créer, sur un onglet "alpha", un bouton ou quelque chose > pour dupliquer ou tripler ou quadrupler cet onglet. > Je m'explique : quand on clic sur ce bouton, il crée l'onglet "alpha_01" en > le plaçant juste après l'onglet "alpha", puis si on reclic dessus, il crée > l'onglet "alpha_02", en le plaçant après "alpha_01", etc.. > Merci. > YANN Bonjour,
euh, en fait, ça ne fait que rajouter des onglets vierges.
Moi, je veux créer un onglet identique à mon onglet "alpha", faire une copie
de mon onglet en fait, sachant qu'il n'y a pas de limite au niveau du nombre
d'onglet créer : le premier sera "alpha_01", le second "alpha_02", etc...
et bien sur, le placer après l'onglet "alpha" ou après la dernière copie de
l'onglet "alpha".
Merci. YANN
"fetnat" a écrit :
Bonjour,
Sub addsheet()
Dim n As Integer, sheetname$
For n = 1 To 4
sheetname = "Alpha" & "0" & n
Worksheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = (sheetname)
Next
End Sub
Cordialement
Fetnat
Sunburn a écrit :
> Bonjour,
> est-il possible de créer, sur un onglet "alpha", un bouton ou quelque chose
> pour dupliquer ou tripler ou quadrupler cet onglet.
> Je m'explique : quand on clic sur ce bouton, il crée l'onglet "alpha_01" en
> le plaçant juste après l'onglet "alpha", puis si on reclic dessus, il crée
> l'onglet "alpha_02", en le plaçant après "alpha_01", etc..
> Merci.
> YANN
Bonjour,
euh, en fait, ça ne fait que rajouter des onglets vierges. Moi, je veux créer un onglet identique à mon onglet "alpha", faire une copie de mon onglet en fait, sachant qu'il n'y a pas de limite au niveau du nombre d'onglet créer : le premier sera "alpha_01", le second "alpha_02", etc... et bien sur, le placer après l'onglet "alpha" ou après la dernière copie de l'onglet "alpha". Merci. YANN
"fetnat" a écrit :
Bonjour,
Sub addsheet() Dim n As Integer, sheetname$ For n = 1 To 4 sheetname = "Alpha" & "0" & n Worksheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = (sheetname) Next End Sub
Cordialement
Fetnat
Sunburn a écrit : > Bonjour, > est-il possible de créer, sur un onglet "alpha", un bouton ou quelque chose > pour dupliquer ou tripler ou quadrupler cet onglet. > Je m'explique : quand on clic sur ce bouton, il crée l'onglet "alpha_01" en > le plaçant juste après l'onglet "alpha", puis si on reclic dessus, il crée > l'onglet "alpha_02", en le plaçant après "alpha_01", etc.. > Merci. > YANN Bonjour,
stéphane
Bonjour,
utiliser la macro ci-dessous. (Il faut que le fichier original ne comporte que l'onglet "Alpha" )
euh, en fait, ça ne fait que rajouter des onglets vierges. Moi, je veux créer un onglet identique à mon onglet "alpha", faire une copie de mon onglet en fait, sachant qu'il n'y a pas de limite au niveau du nombre d'onglet créer : le premier sera "alpha_01", le second "alpha_02", etc... et bien sur, le placer après l'onglet "alpha" ou après la dernière copie de l'onglet "alpha". Merci. YANN
"fetnat" a écrit :
Bonjour,
Sub addsheet() Dim n As Integer, sheetname$ For n = 1 To 4 sheetname = "Alpha" & "0" & n Worksheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = (sheetname) Next End Sub
Cordialement
Fetnat
Sunburn a écrit : > Bonjour, > est-il possible de créer, sur un onglet "alpha", un bouton ou quelque > chose > pour dupliquer ou tripler ou quadrupler cet onglet. > Je m'explique : quand on clic sur ce bouton, il crée l'onglet > "alpha_01" en > le plaçant juste après l'onglet "alpha", puis si on reclic dessus, il > crée > l'onglet "alpha_02", en le plaçant après "alpha_01", etc.. > Merci. > YANN Bonjour,
Bonjour,
utiliser la macro ci-dessous. (Il faut que le fichier original ne comporte
que l'onglet "Alpha" )
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 057477D0-4DDA-4937-BF52-D91206C1B91E@microsoft.com...
euh, en fait, ça ne fait que rajouter des onglets vierges.
Moi, je veux créer un onglet identique à mon onglet "alpha", faire une
copie
de mon onglet en fait, sachant qu'il n'y a pas de limite au niveau du
nombre
d'onglet créer : le premier sera "alpha_01", le second "alpha_02", etc...
et bien sur, le placer après l'onglet "alpha" ou après la dernière copie
de
l'onglet "alpha".
Merci. YANN
"fetnat" a écrit :
Bonjour,
Sub addsheet()
Dim n As Integer, sheetname$
For n = 1 To 4
sheetname = "Alpha" & "0" & n
Worksheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = (sheetname)
Next
End Sub
Cordialement
Fetnat
Sunburn a écrit :
> Bonjour,
> est-il possible de créer, sur un onglet "alpha", un bouton ou quelque
> chose
> pour dupliquer ou tripler ou quadrupler cet onglet.
> Je m'explique : quand on clic sur ce bouton, il crée l'onglet
> "alpha_01" en
> le plaçant juste après l'onglet "alpha", puis si on reclic dessus, il
> crée
> l'onglet "alpha_02", en le plaçant après "alpha_01", etc..
> Merci.
> YANN
Bonjour,
euh, en fait, ça ne fait que rajouter des onglets vierges. Moi, je veux créer un onglet identique à mon onglet "alpha", faire une copie de mon onglet en fait, sachant qu'il n'y a pas de limite au niveau du nombre d'onglet créer : le premier sera "alpha_01", le second "alpha_02", etc... et bien sur, le placer après l'onglet "alpha" ou après la dernière copie de l'onglet "alpha". Merci. YANN
"fetnat" a écrit :
Bonjour,
Sub addsheet() Dim n As Integer, sheetname$ For n = 1 To 4 sheetname = "Alpha" & "0" & n Worksheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = (sheetname) Next End Sub
Cordialement
Fetnat
Sunburn a écrit : > Bonjour, > est-il possible de créer, sur un onglet "alpha", un bouton ou quelque > chose > pour dupliquer ou tripler ou quadrupler cet onglet. > Je m'explique : quand on clic sur ce bouton, il crée l'onglet > "alpha_01" en > le plaçant juste après l'onglet "alpha", puis si on reclic dessus, il > crée > l'onglet "alpha_02", en le plaçant après "alpha_01", etc.. > Merci. > YANN Bonjour,