Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Activer une feuil avec un ComboBox

Activer une feuil avec un ComboBox

2 réponses
Avatar
cphil
Bonjour/soir tout le monde,

Dans le même Workbook, j'ai 4 Feuil, un UserForm
avec divers contrôles dont un Combobox que j'ai rempli avec
le nom des onglets des 4 Feuil, j'aimerais en selectionnant une des feuil
la rendre active.
Ca fait 3 heures que je planche là-dessus ( je débute) mais je n'ai pas
trouvé la piste, si quelqu'un peut m'aider, merci.

A+



--
-cphil-
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
François Picalausa
Bonjour/soir,

Essaye ceci:
Option Explicit

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 Then 'Si la sélection est valide
'On active la worksheet dont le nom est contenu dans la combo

ThisWorkbook.Worksheets(ComboBox1.List(ComboBox1.ListIndex)).Activate
End If
End Sub

Private Sub ComboBox1_Enter()
'Lorsqu'on entre dans la combo, on met à jour la feuille sélectionnée
ComboBox1_Change
End Sub

Private Sub UserForm_Initialize()
Dim objSheet As Worksheet

'Pour chaque feuille dans ce workbook, on ajoute le nom dans la combo
For Each objSheet In ThisWorkbook.Worksheets
ComboBox1.AddItem objSheet.Name
Next objSheet

'On sélectionne par défaut la première entrée, si une entrée ou plus
existe
If ComboBox1.ListCount > 0 Then
ComboBox1.ListIndex = 0
End If
End Sub

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"cphil" <cazenave.(suffitspam) a écrit dans le message
de news:upea7%
Bonjour/soir tout le monde,

Dans le même Workbook, j'ai 4 Feuil, un UserForm
avec divers contrôles dont un Combobox que j'ai rempli avec
le nom des onglets des 4 Feuil, j'aimerais en selectionnant une des
feuil la rendre active.
Ca fait 3 heures que je planche là-dessus ( je débute) mais je n'ai
pas trouvé la piste, si quelqu'un peut m'aider, merci.

A+


Avatar
cphil
Bonjour/soir à tous ,

Juste merci à François

A+
--
-cphil-

"François Picalausa" a écrit dans le message de
news:
Bonjour/soir,

Essaye ceci:
Option Explicit

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 Then 'Si la sélection est valide
'On active la worksheet dont le nom est contenu dans la combo

ThisWorkbook.Worksheets(ComboBox1.List(ComboBox1.ListIndex)).Activate
End If
End Sub

Private Sub ComboBox1_Enter()
'Lorsqu'on entre dans la combo, on met à jour la feuille sélectionnée
ComboBox1_Change
End Sub

Private Sub UserForm_Initialize()
Dim objSheet As Worksheet

'Pour chaque feuille dans ce workbook, on ajoute le nom dans la combo
For Each objSheet In ThisWorkbook.Worksheets
ComboBox1.AddItem objSheet.Name
Next objSheet

'On sélectionne par défaut la première entrée, si une entrée ou plus
existe
If ComboBox1.ListCount > 0 Then
ComboBox1.ListIndex = 0
End If
End Sub

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"cphil" <cazenave.(suffitspam) a écrit dans le message
de news:upea7%
> Bonjour/soir tout le monde,
>
> Dans le même Workbook, j'ai 4 Feuil, un UserForm
> avec divers contrôles dont un Combobox que j'ai rempli avec
> le nom des onglets des 4 Feuil, j'aimerais en selectionnant une des
> feuil la rendre active.
> Ca fait 3 heures que je planche là-dessus ( je débute) mais je n'ai
> pas trouvé la piste, si quelqu'un peut m'aider, merci.
>
> A+