Atteindre premier onglet

skoobi

XLDnaute Barbatruc

• 22 Avril 2008

• #2

Re : Atteindre premier onglet

Bonsoir,

pour insérer avant le premier onglet

Code:

 Sheets.Add before:=Sheets(1)

ou après:

Code:

 Sheets.Add after:=Sheets(1)

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 22 Avril 2008

• #3

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

Code:

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

Cordialement

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

 

Dernière édition: 22 Avril 2008

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Avril 2008

• #4

Re : Atteindre premier onglet

Bonsoir


Pour atteindre le premier onglet de ta feuille

Code:

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

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

 

Vote positif 0 Vote négatif

S

SophieM

XLDnaute Nouveau

• 22 Avril 2008

• #5

Re : Atteindre premier onglet

Merci Staple1600,

Solution satisfaisante.

À charge de revanche.

Cordialement.

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 22 Avril 2008

• #6

Re : Atteindre premier onglet

Salut Spit, JM ,

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

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 22 Avril 2008

• #7

Re : Atteindre premier onglet

Re,
Bonsoir Stapple

Merci Staple1600,

Cliquez pour agrandir...

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

Bonne nuit!

 

Vote positif 0 Vote négatif