Macro ouvrir onglet suivant une cellule

[eleck]

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

Sub Referentiel_aller_a()

Dim i As Integer

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

End Sub

Je vous remercie d'avance pour votre aide

 

[Pierrot93]

Re : Macro ouvrir onglet suivant une cellule

Bonjour,

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

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

bonne journée
@+

 

[Hulk]

Re : Macro ouvrir onglet suivant une cellule

Hello,

Comme ceci..

Dim i As [B]Variant[/B]

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

EDIT :

Slt Pierrot

 

[Papou-net]

Re : Macro ouvrir onglet suivant une cellule

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

Bonjour eleck,

Corriges ton code comme ceci :

Sub Referentiel_aller_a()

Dim i As Integer

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

End Sub

ou plus simplement :

Sub Referentiel_aller_a()

Sheets(Range("b5")).Activate

End Sub

Espérant avoir aidé.

Cordialement.

Edit : bonjour à mes prédecesseurs.

 

[kjin]

Re : Macro ouvrir onglet suivant une cellule

Bonjour, salut Pierrot et Hulk ,

Sub Referentiel_aller_a()

Dim i As Integer

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

End Sub

A+
kjin

 

[Fo_rum]

Re : Macro ouvrir onglet suivant une cellule

Salut

avec un contrôle de contenu :

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

 

[eleck]

Re : Macro ouvrir onglet suivant une cellule

oh trop génial un grand merci a vous tous