Lien d'un bouton VB vers onglet Excel

Réponse 2 / 20

lemalin
17 févr. 2006 à 08:59

Bonjour,
ya t'il une autre méthode pour faire un lien vers un onglet excel?
j'aimerai créer une sorte de liste qui quand on clique sur l'onglet concerné et sur un bouton OK ca aille directement sur l'onglet concerné
merci beaucoup pour votre aide

Réponse 3 / 20

lemalin
17 févr. 2006 à 10:24

oki mais dsl je suis vraiment nul en VB
avec un onglet "test" par exemple tu fé comment?
il faut en plus de la liste un bouton de validation?
merci beaucoup

Réponse 4 / 20

JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 856
20 févr. 2006 à 23:02

bonsoir,

je ne peux que te redire ce que j'ai mis dans le post <7> :

Je cherche à faire une liste déroulante ou chaque item correspondant à un onglet excel

Private Sub ComboBox1_DropButtonClick()
    ComboBox1.Clear
    For Each vfeuille In ActiveWorkbook.Sheets
            ComboBox1.AddItem vfeuille.Name
    Next
End Sub

c'est ce que ce code fait !!!

renvoie sur ce même onglet en cliquant dessus

Private Sub ComboBox1_Click()
    Sheets(ComboBox1.Value).Activate
End Sub

c'est ce que ce code fait !!!

comment te le dire? y a-t-il quelque chose qui t'échappe?
as-tu essayé ces codes?

sais-tu mettre un code derrière une feuille?
(dans l'éditeur VBA : clic droit/code sur la feuille qui contient le combobox )

as-tu réellement mis un combobox sur ta feuille?
(zone de liste déroulante dans la barre d'outils boîte à outils contrôles)
naturellement, le nom du combobox doit correspondre au code que je t'ai indiqué!

A+

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 20

similitis
22 déc. 2007 à 16:26

salut a ts j'ai un probleme:
je suis enseignant et je voudrais faire une petite manoeuvre pour que je puisse entrer les notes de mes eleves ds un fichiers excel de type :
nom prenom: (nom de l'enseignant )
matiere : math
code : (pour que personne d'autre ne puisse acceder aux notes )
comment faire pour que personne n'accede aux note que celui qui tappe le bon code
avec un lie hypertexte ou bouton de commnde ?
merci a vous !!
a+

Réponse 6 / 20

choubaka Messages postés 39375 Date d'inscription jeudi 4 avril 2002 Statut Modérateur Dernière intervention 14 avril 2024 2 100
17 févr. 2006 à 09:11

salut

rien ne t'empêche d'insérer sur une feuille un combobox ou une liste, le code sera sensiblement le même qu'avec un bouton

Private Sub ComboBox1_Click()

sheets(ComboBox1.Value).activate

End Sub

ou quelque chose du genre

Réponse 7 / 20

similitis
24 déc. 2007 à 12:46

bjr a ts c encore moi ya t il qqn qui pourrait m'aider a faire un pti programme pour entrer les notes de mes eleves sur excel sans que personne ne puisse entrer dedans pour les modier ?
sous forme
de nom :
prenom :
matiere :
mot de passe :en tappant le mot de passe on est lier a un fichier de note d''eleves :
tableau sous forme de
noms /prenom /note 1/ note 2/ note 3 /tottal / moyenne
pour que je puisse saisir les notes
merci bq

Réponse 8 / 20

BERbert69 Messages postés 1 Date d'inscription mercredi 9 avril 2008 Statut Membre Dernière intervention 9 avril 2008 2
9 avril 2008 à 17:28

Bonjour,
je voudrais savoir si c'est possible de:
créer un bouton sous Excel qui renverrais à l'ouverture d'un dossier PDF associé à mon fichier Excel (ou sur mon pc)
Merci à vous

Réponse 9 / 20

lemalin
17 févr. 2006 à 10:45

dsl j'ai essayé
sheets("test").activate
sheets("test1").activate
sheets("test2").activate
mais ca les affiche pas ds sa combo...
dsl d'etre mauvais
merci beaucoup

Réponse 10 / 20

JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 856
17 févr. 2006 à 13:54

bonjour,

pour aller dans le sens de choubaka, tu insères ce code derrière la feuille où se trouve ton combobox :

Private Sub ComboBox1_Click()
    Sheets(ComboBox1.Value).Activate
End Sub

Private Sub ComboBox1_DropButtonClick()
    ComboBox1.Clear
    For Each vfeuille In ActiveWorkbook.Sheets
            ComboBox1.AddItem vfeuille.Name
    Next
End Sub

la dernière procédure est là pour suivre l'évolution des tes feuilles de calcul (ajout/suppression)

cordialement

Réponse 11 / 20

lemalin
17 févr. 2006 à 14:33

oki
mais avec des onglets test1 test2....test3 ca donne koi?
merci beaucoup
dsl de pas comprendre grand chose...

Réponse 12 / 20

choubaka Messages postés 39375 Date d'inscription jeudi 4 avril 2002 Statut Modérateur Dernière intervention 14 avril 2024 2 100
17 févr. 2006 à 14:45

ça donne que dans le code de JvDo, les différents onglets de ton classeur excell seront repris dans la combobox et celà va te fabriquer une liste avec les onglets existants, ce qui te permet lorsque tu cliques sur une de ces entrées d'ouvrir l'onglet demandé..

entre nous, évite de poser la même question sur plusieurs forums svp. j'ai fermé celui ouvert dans le forum logiciel/pilotes..

Réponse 13 / 20

lemalin
20 févr. 2006 à 13:31

Bonjour,
je reviens vers mon pb. Je cherche à faire une liste deroulanbte ou chaque item correspondant à un onglet excel renvoie sur ce même onglet en cliquant dessus et en validant via un bouton
Par exemple, si les onglets s'appellent "test1", "test2"...
ca donne koi?

merci de votre réponse

Réponse 14 / 20

etienne06 Messages postés 146 Date d'inscription mercredi 9 janvier 2008 Statut Membre Dernière intervention 23 mars 2015 10
6 avril 2009 à 16:13

Bonjour à tous,

Super explication de JvDo ! J'ai un projet similaire à celui de Manuel, et c'est génial ! Le VBA (du moins, ses bases basiques pour débutants comme moi) n'est pas si compliqué que ce que je m'imaginais.

Bonne continuation et bon développement à tous !

Jean-Philippe

Réponse 15 / 20

etienne06 Messages postés 146 Date d'inscription mercredi 9 janvier 2008 Statut Membre Dernière intervention 23 mars 2015 10
6 avril 2009 à 16:46

Re-bonjour à tous,

Forcément, je coince au même niveau que "lemalin"...

Je n'obtiens qu'un énorme bouton de ce que j'imagine être une "ComboBox", sans que les différents choix d'onglets n'apparaissent dans la liste déroulante...

S'il reste un peu de patience 3 ans après et une poignée de minutes à perdre à JvDo et Choubaka (ainsi qu'à tous ceux pouvant m'expliquer), je les en remercie vivement par avance !

Bonne continuation

Jean-Philippe

JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 856
16 avril 2009 à 00:00

Bonjour,

peux-tu
1) préciser le nom de ta combobox,
2) indiquer le nom de l'onglet où est ta combobox
3) coller ici le code de ta macro
4) me dire où tu as mis ce code : dans un module?
5) vérifier si tu es en "mode création" de la barre d'outil formulaire.

cordialement

JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 856
16 avril 2009 à 00:28

Bonjour,

je n'avais pas vu le message.
voii la réponse : http://www.cijoint.fr/cjlink.php?file=cj200904/cijNJyfRNx.xls

cordialement

Réponse 16 / 20

choubaka Messages postés 39375 Date d'inscription jeudi 4 avril 2002 Statut Modérateur Dernière intervention 14 avril 2024 2 100
17 févr. 2006 à 10:35

non, il ne faut pas de bouton, la macro s'execute lors de l'action click sur le combo ou la liste ...

Private Sub ComboBox1_Click()

sheets("test").activate

End Sub

tu verras la réaction suite au click
après, il suffira d'aller chercher la valeur sélectionnée dans la liste, voir le code précedént

Réponse 17 / 20

Frédouille
2 févr. 2010 à 16:13

Bonjour;

Ayant crée un menu déroulant pointant vers des onglets (combobox), j'aurais souhaité que tous les onglets n'apparaissent pas sur le menu (car certaines feuilles représentent des calculs). Quel code donner a la macro pour qu'elle n'active que certaines feuilles

JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 856
4 févr. 2010 à 19:51

bonjour,
tu filtres tes feuilles dans la macro qui nourrit la combobox :

Private Sub ComboBox1_DropButtonClick()
    ComboBox1.Clear
    For Each vfeuille In ActiveWorkbook.Sheets
        If "mafeuille n'est pas une feuille de calcul" then
            ComboBox1.AddItem vfeuille.Name
        end if
    Next
End Sub

naturellement, il faut que tu trouves la condition qui représente le "mafeuille n'est pas une feuille de calcul"

cordialement

killacharly > JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020
27 févr. 2010 à 00:16

Bonjour.
Je ne comprends pas comment exclure une feuille du menu déroulant
Aidez moi svp
MERCI

JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 856 > killacharly
6 mars 2010 à 16:06

Bonjour,
tu utilises les propriétés caractéristiques des feuilles que tu veux garder (ou éliminer).
ex :
si tu ne veux que les feuilles de rang pair, tu fais un for i=2 to sheets.count step 2.
si tu ne veux que les feuilles commençant par "a", tu testes left(sheets(i).name,1)="a"
si tu ne veux que les feuilles 5 à 11 tu boucles : for i=5 to 11

cordialement

PS : tout ça est à caler dans VBA car je n'ai rien testé!

killacharly > JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020
11 mars 2010 à 19:53

Merci c'est nickel, ça marche parfaitement.

killacharly > JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020
12 mars 2010 à 17:29

Encore merci pour tout.
Tu peux peut être encore m'aider pour autre chose.
Voilà je t'explique, j'ai un userform avec plusieurs textbox les uns en dessous des autres, le nombre de textbox n'est pas assez important par rapport au nombre de lignes que j'ai besoin d'écrire( une ligne par textbox). En fait ce que je voudrais, c'est un scollbar dans mon userform pour faire défiler chaque ligne dans une textbox et pour pouvoir faire défiler tout ça comme je le souhaite, tout en sauvegardant tout ça lors de la fermeture de mon fichier.
J'espère avoir été assez clair, c'est pas facile à expliquer!!!
En attente de ta réponse merci d'avance...

Réponse 18 / 20

yara
1 mars 2010 à 11:04

urgent!!!!!!!!!!!!!!!!!!
pleaze je veux des codes de combobox et button qui emporte les informations d'un formulaire et le stock dans un feuille excel
par exemple:si en saisie le( nom;prenom;code ) dans un formulaire vb ,il s'affiche dans une feuille excel

Réponse 19 / 20

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
11 mars 2010 à 20:14

Bonjour,

je veux des codes de combobox et button qui emporte les informations ...

C'est des déménageurs que tu cherches ??? ^^

|o)

BLACKHAYE's
26 août 2010 à 12:02

Bonjour, j'ai bien suivi les explication du haut d epage et cela marche a merveille, maintenant j'aimerais que "quand je clique sur mon bouton cela m'emmene directement a une cellule spécifique" qui elle restera vide.

suis-je clair !!

merci d'avance

JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 856
30 août 2010 à 04:08

Bonsoir,
Après le

Sheets(ComboBox1.Value).Activate

, tu pourrais mettre un

Activesheet.Range($C$4).Select

et ça te mettrait le curseur en C4.
C'est du "pavérifié" mais ça devrait fonctionner.
Cordialement

Réponse 20 / 20

Jim
27 sept. 2010 à 18:21

bonjour,

je voudrais savoir comment faire pour changer d'onglet après avoir éffectuer une action, code d'action :

Sub sup()

Range("1:5").Select
Selection.EntireRow.Delete

If -0.0001 <= Cells(1) <= 0.0001 Then Columns(1).Delete Shift:=xlToLeft

End Sub

et suite a sa je veut qu'il change d'onglet pour effectuer la même opération et ainsi de suite. j'ai essayer sa :

Sub sup()

Range("1:5").Select
Selection.EntireRow.Delete

If -0.0001 <= Cells(1) <= 0.0001 Then Columns(1).Delete Shift:=xlToLeft

Next s et Next Sheet(s)

End Sub

mais sa veut pas.

Merci a vous

Lien d'un bouton VB vers onglet Excel

20 réponses

Discussions similaires

Newsletters