Macro ouvrir onglet suivant une cellule

Pierrot93

XLDnaute Barbatruc

• 13 Août 2010

• #2

Re : Macro ouvrir onglet suivant une cellule

Bonjour,

essaye ainsi, enfin si nom de l'onglet est bien un nombre :

Code:

Dim i As Integer
i = Range("b5").Value
Sheets(CStr(i)).Activate

bonne journée
@+

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 13 Août 2010

• #3

Re : Macro ouvrir onglet suivant une cellule

Hello,

Comme ceci..

Code:

Dim i As [B]Variant[/B]

i = Range("B5")
Sheets(i).[B]Select[/B]

EDIT :

Slt Pierrot 🙂

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 13 Août 2010

• #4

Re : Macro ouvrir onglet suivant une cellule

eleck à dit:

Bonjour,

Je voudrais vous demander un ti coup de pouce sur une macro qui activerait un onglet suivant la valeur contenue dans une cellule

j'ai moi meme tenté quelque chose mais ca ne marche pas



Je vous remercie d'avance pour votre aide

Cliquez pour agrandir...

Bonjour eleck,

Corriges ton code comme ceci :

Code:

Sub Referentiel_aller_a()

Dim i As Integer

i = Range("b5").Value
Sheets(i).Activate

End Sub

ou plus simplement :

Code:

Sub Referentiel_aller_a()

Sheets(Range("b5")).Activate

End Sub

Espérant avoir aidé.

Cordialement.

Edit : bonjour à mes prédecesseurs.

 

Dernière édition: 13 Août 2010

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 13 Août 2010

• #5

Re : Macro ouvrir onglet suivant une cellule

Bonjour, salut Pierrot et Hulk 🙂,

eleck à dit:

Sub Referentiel_aller_a()

Dim i As Integer

i = Range("b5").Value
Sheets(i).Activate

End Sub

Cliquez pour agrandir...

A+
kjin

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 13 Août 2010

• #6

Re : Macro ouvrir onglet suivant une cellule

Salut

avec un contrôle de contenu :

Code:

Sub Referentiel_aller_a()
  If Not IsNumeric([B5]) Or [B5] > Sheets.Count Then Exit Sub
  Sheets([B5]).Activate [COLOR="SeaGreen"]'ou Sheets(int([B5])).Activate[/COLOR]
End Sub

 

Vote positif 0 Vote négatif

E

eleck

XLDnaute Nouveau

• 13 Août 2010

• #7

Re : Macro ouvrir onglet suivant une cellule

oh trop génial un grand merci a vous tous 😉

 

Vote positif 0 Vote négatif