Codes VBA

[melanie_nel]

Bonjour,

je suis débutante en VBA et je suis un peu perdue. J'ai créé un tableau avec une page d'acceuil. Dans cette page, il y a 4 "boutons" : tableau 1, tableau2, état des impayés, relances. Je voudrais juste créer un lien me permettant d'aller directement sur la feuille de mon tableau quand je clic sur un de ces 4 boutons.

De même, j'aimerais savoir quelle manipulation il faut faire pour que les cases d'excel soient invisibles comme si c'était fait sous word.

Merci d'avance pour vos réponses

Mél

 

[Coriolan]

Re : Codes VBA

Bonjour Mélanie,

Ta première question n'est pas claire; s'agit-il d'aller dans un onglet spécifique?

Envoie-nous un petit fichier d'exemple avec quelques explications ...

Pour la deuxième, c'est simple : Outil/Options/Affichage/ et décocher quadrillage, et éventuellement en-tête de lignes et de colonnes

 

[matthieu33]

Re : Codes VBA

Bonjour à tous,

Je te fournis un fichier.
J'espère que cela correspond à ta demande.

@+

 

[melanie_nel]

Re : Codes VBA

Bonjour à tous,

Je te fournis un fichier.
J'espère que cela correspond à ta demande.

@+

Merci beaucoup, c'est exactement ça !!

Bonne journée

 

[wilfried_42]

Re : Codes VBA

Bonjour melanie, coriolan

tu as deux type de bouton, Type Formule, type boite de controle

Type formulaire : Click droit sur le bouton : Affecter une macro : Bouton nouvelle ----> donne lui un nom

Sub nom_click()
Sheets("nomdetafeuille").visible = true
Sheets("nomdetafeuille").select
end sub

Type boite de controle
Double click sur le bouton

Sub button1_click()
Sheets("nomdetafeuille").visible = true
Sheets("nomdetafeuille").select
end sub

Tu fais cela pour tous tes boutons

Alt + F11 t'envoie dans le VBA
à gache tu as une fenetre avec :
-Microsoft excel objet
en dessous, la liste de tes feuilles avec leur nom entre ()
et enfin Thisworkbook

tu double-cliques sur thisworkbook
une page blanche dans la fenetre principale
juste au dessus tu as une liste de choix avec (général)
tu choisis Thisworkbook

s'affiche automatiquement :

Sub thisworkbook_open()

end sub

tu y inscrit :
Sub thisworkbook_open()
sheets("nomdetafeuille").visible = xlveryhidden
sheets("nomdetafeuille").visible = xlveryhidden
sheets("nomdetafeuille").visible = xlveryhidden
end sub