Atteindre premier onglet

[SophieM]

Bonsoir à tous,

À l'ouverture d'un fichier Excel, je suis positionnée sur l'antépénultième onglet (environ 300ième onglet)

Je chercher à atteindre le premier onglet du fichier pour y insérer un nouvel onglet.

Pour se faire, j'ai développé ce code :

...
'Retour au premier onglet.
Do
ActiveSheet.Previous.Select
Range("A1").Select
Loop While ActiveSheet.Name <> ""
'Ajout d'un onglet.
Sheets.Add
Range("A1").Select
...

Problème : Arrivée au premier onglet, je bogue.
Auriez-vous une solution valide ?
Merci.

 

[skoobi]

Re : Atteindre premier onglet

Bonsoir,

pour insérer avant le premier onglet

 Sheets.Add before:=Sheets(1)

ou après:

 Sheets.Add after:=Sheets(1)

 

[Spitnolan08]

Re : Atteindre premier onglet

Bonsoir,

Pas sur d'avoir tout compris..
Avec ce code tu ajoutes une feuille avant le 1er onglet où que tu te trouves dans le classeur

Sheets.Add.Move Before:=Sheets(1)

Cordialement

Edit : Collision Skoobi, mais effectivement il n'y a pas lieu de mettre .move

 

[Staple1600]

Re : Atteindre premier onglet

Bonsoir


Pour atteindre le premier onglet de ta feuille

Sub test()
Dim x As Long
x = Sheets.Count
Sheets(x - (x - 1)).Select
End Sub

edition: bonsoir à tous (Skoobi, Spitnolan08) collision en chaine

 

[SophieM]

Re : Atteindre premier onglet

Merci Staple1600,

Solution satisfaisante.

À charge de revanche.

Cordialement.

 

[skoobi]

Re : Atteindre premier onglet

Salut Spit, JM ,

JM, pourquoi pas simplement
Sheets(1).Select ?

 

[Spitnolan08]

Re : Atteindre premier onglet

Re,
Bonsoir Stapple

Merci Staple1600,

T'inquiètes Skoobi, on a du manger du camembert ce soir...

Bonne nuit!