pb de code vba

tototiti2008

XLDnaute Barbatruc

• 11 Août 2008

• #2

Re : pb de code vba

Bonjour keke,

vois si ça te conviens :

 

Pièces jointes

• Classeur2.xls

  22 KB · Affichages: 49
• Classeur2.xls

  22 KB · Affichages: 40
• Classeur2.xls

  22 KB · Affichages: 39

Vote positif 0 Vote négatif

K

keke31

Guest

• 11 Août 2008

• #3

Re : pb de code vba

cela me convient totalement sur le principe le seul probleme c'est qu'étant donné qu'il y a de nombreuses feuilles je les ai caché et alors ca marche plus peut être aurait tu une solution ?
voila merci .

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Août 2008

• #4

Re : pb de code vba

Bonjour keke, tototiti,

Une variante. Si le nombre n est entré dans la cellule A1, la feuille de rang n est activée. Si n est le nom d'une feuille, cela marche aussi.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$A$1" Then
Sheets(Target.Value).Activate
ActiveSheet.Visible = True
End If
End Sub

A+

Edit : ajouté Visible pour tenir compte du post de keke

 

Dernière édition: 11 Août 2008

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 11 Août 2008

• #5

Re : pb de code vba

un essai avec les feuilles masquées

 

Pièces jointes

• Classeur2.xls

  25 KB · Affichages: 45
• Classeur2.xls

  25 KB · Affichages: 51
• Classeur2.xls

  25 KB · Affichages: 54

Vote positif 0 Vote négatif

K

keke31

Guest

• 11 Août 2008

• #6

Re : pb de code vba

Merci vraiment c'est exactement ce que je voulais et cela marche très bien je suis vraiment content encore merci.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 11 Août 2008

• #7

Re : pb de code vba

la remarque de job est intéressante, plutôt que de gérer tous les cas des feuilles, tu pourrait les appeler en fonction de leur numéro, ça pourrait beaucoup raccourcir le code si tu as plein de feuilles...

 

Vote positif 0 Vote négatif