Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 03/12/2011, 20h04   #1
Invité de passage
 
Inscription : décembre 2011
Messages : 2
Détails du profil
Informations forums :
Inscription : décembre 2011
Messages : 2
Points : 0
Points : 0
Par défaut feuille active= a la selection de combobox

Bonsoir,

Suis débutant en vba et aimerai résoudre un petit (peut-être pour vos, pour moi, grand problème) !
Voilà, j’ai le nom des feuilles d’un classeur Excel dans une combobox et aimerai que l’osque je sélectionne un de ces noms cette sélection devienne la feuille active
alors si quelqu'un peut m'aider !! merci
toze666 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 03/12/2011, 20h22   #2
Membre Expert
 
Homme
Retraité
Inscription : avril 2011
Messages : 693
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations professionnelles :
Activité : Retraité

Informations forums :
Inscription : avril 2011
Messages : 693
Points : 1 445
Points : 1 445
Bonjour,

En utilisant l'événement Click
Code :
1
2
3
4
5
Private Sub ComboBox1_Click()
Dim Feuille As String
    Feuille = ComboBox1.Value
    Worksheets(Feuille).Select
End Sub
Cordialement.
gFZT82 est actuellement connecté   Envoyer un message privé Réponse avec citation 00
Vieux 03/12/2011, 20h57   #3
Expert Confirmé Sénior
 
Avatar de jfontaine
 
Homme Jérôme FONTAINE
Contrôleur de Gestion
Inscription : juin 2006
Messages : 3 915
Détails du profil
Informations personnelles :
Nom : Homme Jérôme FONTAINE
Âge : 38
Localisation : France, Sarthe (Pays de la Loire)

Informations professionnelles :
Activité : Contrôleur de Gestion

Informations forums :
Inscription : juin 2006
Messages : 3 915
Points : 7 218
Points : 7 218
Bonjour,

En complément de gFZT82 (en optimisant une fois le principe acquis)

Code :
1
2
3
Private Sub ComboBox1_Click()
    Worksheets(ComboBox1.Value).Select
End Sub
__________________
Jérôme

Citation:
"Ils ne savaient pas que c'était impossible, alors ils l'ont fait" - Marc Twain
Si la réponse répond à votre besoin, votre vote nous encouragera.
Dans le cas ou la réponse mérite, à vos yeux, un , nous faire partager la raison de ce vote, pourrait nous permettre de nous améliorer.
jfontaine est actuellement connecté   Envoyer un message privé Réponse avec citation 10
Vieux 03/12/2011, 22h40   #4
Invité de passage
 
Inscription : décembre 2011
Messages : 2
Détails du profil
Informations forums :
Inscription : décembre 2011
Messages : 2
Points : 0
Points : 0
déjà merci a tous les deux, vais assayer ...merci
toze666 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 18h06.


 
 
 
 
Partenaires

Hébergement Web