OVH Cloud OVH Cloud

Aide en vba.

7 réponses
Avatar
romeo
bonsoir
j'aimerais connaitre le code vba pour :
j'ai deux feuilles A et C.
je souhaite créer une feuille B qui viendra se placer après A.
puis la feuille active redeviendra A.
merci pour votre aide.

7 réponses

Avatar
Bidouille
Bonsoir
Sub InsèreFeuille()
Sheets("A").Select
Sheets.Add
Sheets("Feuil2").Select
Sheets("Feuil2").Name = "B"
Sheets("A").Select
End Sub
Bidouille

romeo wrote:
bonsoir
j'aimerais connaitre le code vba pour :
j'ai deux feuilles A et C.
je souhaite créer une feuille B qui viendra se placer après A.
puis la feuille active redeviendra A.
merci pour votre aide.


Avatar
Philippe T [MS]
Bonjour,

Il doit y avoir plus simple mais bon :

Sheets("A").Select
Sheets.Add
ActiveSheet.Select
ActiveSheet.Move After:=Sheets(2)
ActiveSheet.Name = "B"
Sheets("A").Select

Phil.
________________________________________________________
Philippe TROTIN http://blogs.msdn.com/ptrotin
Microsoft Services France http://www.microsoft.com/france

"romeo" wrote in message
news:
bonsoir
j'aimerais connaitre le code vba pour :
j'ai deux feuilles A et C.
je souhaite créer une feuille B qui viendra se placer après A.
puis la feuille active redeviendra A.
merci pour votre aide.


Avatar
Philippe T [MS]
Bonjour,

Attention, ce n'est pas toujours : Sheets("Feuil2"). Il vaut mieux utiliser
ActiveSheet !!!

Une solution pour ce type de problème : enrtegistrer l'opération via une
macro et aller un peu "transformer" le code généré.

Phil.
________________________________________________________
Philippe TROTIN http://blogs.msdn.com/ptrotin
Microsoft Services France http://www.microsoft.com/france

"Bidouille" wrote in message
news:41fd5c6b$0$19424$
Bonsoir
Sub InsèreFeuille()
Sheets("A").Select
Sheets.Add
Sheets("Feuil2").Select
Sheets("Feuil2").Name = "B"
Sheets("A").Select
End Sub
Bidouille

romeo wrote:
bonsoir
j'aimerais connaitre le code vba pour :
j'ai deux feuilles A et C.
je souhaite créer une feuille B qui viendra se placer après A.
puis la feuille active redeviendra A.
merci pour votre aide.






Avatar
romeo
merci bidouille !
@plus


Bonsoir
Sub InsèreFeuille()
Sheets("A").Select
Sheets.Add
Sheets("Feuil2").Select
Sheets("Feuil2").Name = "B"
Sheets("A").Select
End Sub
Bidouille

romeo wrote:
bonsoir
j'aimerais connaitre le code vba pour :
j'ai deux feuilles A et C.
je souhaite créer une feuille B qui viendra se placer après A.
puis la feuille active redeviendra A.
merci pour votre aide.







Avatar
Rai
Bonjour,

Si on considère que ta feuille active est la A :

Sheets.Add After:¬tiveSheet
Sheets(ActiveSheet.Index - 1).Select

Bonne continuation

Rai

bonsoir
j'aimerais connaitre le code vba pour :
j'ai deux feuilles A et C.
je souhaite créer une feuille B qui viendra se placer après A.
puis la feuille active redeviendra A.
merci pour votre aide.


Avatar
Philippe T [MS]
Bonjour,

Donc :

Sheets("A").Select
Sheets.Add After:¬tiveSheet
Sheets(ActiveSheet.Index - 1).Select

:-)

Phil.
________________________________________________________
Philippe TROTIN http://blogs.msdn.com/ptrotin
Microsoft Services France http://www.microsoft.com/france

"Rai" wrote in message
news:
Bonjour,

Si on considère que ta feuille active est la A :

Sheets.Add After:¬tiveSheet
Sheets(ActiveSheet.Index - 1).Select

Bonne continuation

Rai

bonsoir
j'aimerais connaitre le code vba pour :
j'ai deux feuilles A et C.
je souhaite créer une feuille B qui viendra se placer après A.
puis la feuille active redeviendra A.
merci pour votre aide.




Avatar
Rai
Ouaip,
dans ce cas, on pourrait aussi dire :
Sheets.Add After:=Sheets("A")
Sheets("A").Select

Pas la peine de sélectionner la feuille A avant d'ajouter une nouvelle
feuille.
Et comme, après l'ajout, on veut sélectionner la Feuille A, autant
l'appeler directement.


Cordialement

Rai

Bonjour,

Donc :

Sheets("A").Select
Sheets.Add After:¬tiveSheet
Sheets(ActiveSheet.Index - 1).Select

:-)

Phil.
________________________________________________________
Philippe TROTIN http://blogs.msdn.com/ptrotin
Microsoft Services France http://www.microsoft.com/france

"Rai" wrote in message
news:

Bonjour,

Si on considère que ta feuille active est la A :

Sheets.Add After:¬tiveSheet
Sheets(ActiveSheet.Index - 1).Select

Bonne continuation

Rai


bonsoir
j'aimerais connaitre le code vba pour :
j'ai deux feuilles A et C.
je souhaite créer une feuille B qui viendra se placer après A.
puis la feuille active redeviendra A.
merci pour votre aide.