Petite question

[romain1708]

bonjour a tous et deja un grand merci de vous interesser a ma question.

alors voila je vais essayer d'etre explicite.

j'ai donc un fichier excel avec 2 feuilles.
j'aimerai savoir si il est possible de masquer les onglet en bas ( c'est a dire que quand je clique sur mon fichier, j'arrive dans ma feuille 1 mais sans voir la feuille 2.

j'accederai a la feuille 2 grace a un clic sur une image de la feuille 1 et ainsi de suite.

par avance merci
cdlt

 

[Victor21]

Re : Petite question

Bonjour.

Extrait de Lien supprimé :

2 - La Présentation de la Question

a) La Question commence par le Sujet. Ce sujet doit être le plus clair et explicite possible en utilisant les 80 caractères disponibles si nécessaire. Les mots 'Urgent' 'SOS' 'Au Secours' et le reste ne servent à rien, la réponse ne sera pas obtenue plus rapidement. Par la suite, les sujets bien écrits permettront aux autres de trouver plus facilement une solution à un problème similaire grâce à ce sujet.

Merci d'éditer votre premier post, le titre "Petite question" n'étant pas adapté à votre problématique.

Ceci fait, des discussions similaires s'afficheront en bas de page.

 

[Papou-net]

Re : Petite question

Bonsoir romain1708, Victor21,

En dehors de la remarque de Patrick, on ne peut plus justifiée, voici une manière de faire :

Dans le menu Outils ... Option ... Affichage, décocher la case Onglets de classeur.

Masquer la feuille 2, et affecter à l'événement Click des Images de chaque feuille les macros suivantes :

Feuil1 :

Private Sub Image1_Click()
Sheets("Feuil2").Visible = True
Sheets("Feuil1").Visible = False
End Sub

Feuil2 :

Private Sub Image1_Click()
Sheets("Feuil1").Visible = True
Sheets("Feuil2").Visible = False
End Sub

Espérant avoir répondu.

Cordialement.

 

[job75]

Re : Petite question

Bonjour romain1708, Patrick, Papou-net,

Un peu pour le fun, on peut affecter à chaque image une seule et même macro :

Sub ChangeFeuilleActive()
Dim i As Byte
i = ActiveSheet.Index
Sheets(i + (-1) ^ (i = 2)).Visible = True
Sheets(i).Visible = False
End Sub

Si les images sont des contrôles ActiveX c'est moins intéressant car alors il faut de toute façon 2 macros.

A+