Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Activer une feuil avec un ComboBox

Activer une feuil avec un ComboBox

7 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

7 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
garnote
Salut cphil,

Tu pourrais essayer :
Private Sub ComboBox1_Change()
Dim f As String
f = ComboBox1
Sheets(f).Activate
End Sub

Serge

"cphil" <cazenave.(suffitspam) a écrit dans le message de
news: OMiV3$
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-



Avatar
garnote
Peut-être ajouter On error Resume Next
au début de la macro au cas où quelqu'un
entrerait un nom de feuille inexistante !

Serge

"garnote" a écrit dans le message de news:
P_FHb.12229$
Salut cphil,

Tu pourrais essayer :
Private Sub ComboBox1_Change()
Dim f As String
f = ComboBox1
Sheets(f).Activate
End Sub

Serge

"cphil" <cazenave.(suffitspam) a écrit dans le message de
news: OMiV3$
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-







Avatar
cphil
Salut Serge,

Merci pour la piste, mais j'ai encore un petit problème
voici le code:
Private Sub cbxPériode_Change()
Dim f As Integer
f = cbxPériode.ListIndex
If f <> -1 Then
Sheets(f).Activate
End If
End Sub

J'ai 4 Feuil, lorque je sélectionne:
- Feuil2, c'est Feuil1 qui est activée
( idem pour Feuil3 et Feuil4 )
- Feuil1, j'ai l'erreur suivante:
Erreur d'exécution 9
L'indice n'appartient pas à la sélection.

Peut-être un problème avec ListIndex ?

Merci A+
--
-cphil-

"garnote" a écrit dans le message de
news:94GHb.12230$
Peut-être ajouter On error Resume Next
au début de la macro au cas où quelqu'un
entrerait un nom de feuille inexistante !

Serge

"garnote" a écrit dans le message de news:
P_FHb.12229$
Salut cphil,

Tu pourrais essayer :
Private Sub ComboBox1_Change()
Dim f As String
f = ComboBox1
Sheets(f).Activate
End Sub

Serge

"cphil" <cazenave.(suffitspam) a écrit dans le message
de


news: OMiV3$
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-











Avatar
garnote
Et ceci :

Private Sub ListBox1_Change()
Dim f As Byte
f = ListBox1.ListIndex + 1
Sheets(f).Activate
End Sub

?

Serge

"cphil" <cazenave.(suffitspam) a écrit dans le message de
news:
Salut Serge,

Merci pour la piste, mais j'ai encore un petit problème
voici le code:
Private Sub cbxPériode_Change()
Dim f As Integer
f = cbxPériode.ListIndex
If f <> -1 Then
Sheets(f).Activate
End If
End Sub

J'ai 4 Feuil, lorque je sélectionne:
- Feuil2, c'est Feuil1 qui est activée
( idem pour Feuil3 et Feuil4 )
- Feuil1, j'ai l'erreur suivante:
Erreur d'exécution 9
L'indice n'appartient pas à la sélection.

Peut-être un problème avec ListIndex ?

Merci A+
--
-cphil-

"garnote" a écrit dans le message de
news:94GHb.12230$
Peut-être ajouter On error Resume Next
au début de la macro au cas où quelqu'un
entrerait un nom de feuille inexistante !

Serge

"garnote" a écrit dans le message de news:
P_FHb.12229$
Salut cphil,

Tu pourrais essayer :
Private Sub ComboBox1_Change()
Dim f As String
f = ComboBox1
Sheets(f).Activate
End Sub

Serge

"cphil" <cazenave.(suffitspam) a écrit dans le
message



de
news: OMiV3$
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-














Avatar
JLuc
Salut cphil,

les index vont de 0 a xxx. il faut : Sheets(f+1).Activate

A+
JLuc

Salut Serge,

Merci pour la piste, mais j'ai encore un petit problème
voici le code:
Private Sub cbxPériode_Change()
Dim f As Integer
f = cbxPériode.ListIndex
If f <> -1 Then
Sheets(f).Activate
End If
End Sub

J'ai 4 Feuil, lorque je sélectionne:
- Feuil2, c'est Feuil1 qui est activée
( idem pour Feuil3 et Feuil4 )
- Feuil1, j'ai l'erreur suivante:
Erreur d'exécution 9
L'indice n'appartient pas à la sélection.

Peut-être un problème avec ListIndex ?

Merci A+
--
-cphil-

"garnote" a écrit dans le message de
news:94GHb.12230$
Peut-être ajouter On error Resume Next
au début de la macro au cas où quelqu'un
entrerait un nom de feuille inexistante !

Serge

"garnote" a écrit dans le message de news:
P_FHb.12229$
Salut cphil,

Tu pourrais essayer :
Private Sub ComboBox1_Change()
Dim f As String
f = ComboBox1
Sheets(f).Activate
End Sub

Serge

"cphil" <cazenave.(suffitspam) a écrit dans le
message de news: OMiV3$
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-








Avatar
garnote
C'est que dans ton code, f est toujours différent de -1.
Donc si tu cliques sur le premier élément de ta liste,
f est égal à 0 et Excel, le pauvre, tente d'activer la
feuille 0 !!! Par contre, si tu cliques sur le deuxième
élément, Excel active alors la feuille 1 puisque ton
f est alors égal à 1.
ListIndex varie de 0 à 3.

Serge

"cphil" <cazenave.(suffitspam) a écrit dans le message de
news:
Salut Serge,

Merci pour la piste, mais j'ai encore un petit problème
voici le code:
Private Sub cbxPériode_Change()
Dim f As Integer
f = cbxPériode.ListIndex
If f <> -1 Then
Sheets(f).Activate
End If
End Sub

J'ai 4 Feuil, lorque je sélectionne:
- Feuil2, c'est Feuil1 qui est activée
( idem pour Feuil3 et Feuil4 )
- Feuil1, j'ai l'erreur suivante:
Erreur d'exécution 9
L'indice n'appartient pas à la sélection.

Peut-être un problème avec ListIndex ?

Merci A+
--
-cphil-

"garnote" a écrit dans le message de
news:94GHb.12230$
Peut-être ajouter On error Resume Next
au début de la macro au cas où quelqu'un
entrerait un nom de feuille inexistante !

Serge

"garnote" a écrit dans le message de news:
P_FHb.12229$
Salut cphil,

Tu pourrais essayer :
Private Sub ComboBox1_Change()
Dim f As String
f = ComboBox1
Sheets(f).Activate
End Sub

Serge

"cphil" <cazenave.(suffitspam) a écrit dans le
message



de
news: OMiV3$
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-














Avatar
cphil
Merci à vous deux,

..... maintenant c'est plus clair dans
ma petit' têt' !!!!

Bonne nuit à tous.
A+
--
-cphil-
"garnote" a écrit dans le message de
news:ZpIHb.13349$
C'est que dans ton code, f est toujours différent de -1.
Donc si tu cliques sur le premier élément de ta liste,
f est égal à 0 et Excel, le pauvre, tente d'activer la
feuille 0 !!! Par contre, si tu cliques sur le deuxième
élément, Excel active alors la feuille 1 puisque ton
f est alors égal à 1.
ListIndex varie de 0 à 3.

Serge

"cphil" <cazenave.(suffitspam) a écrit dans le message de
news:
Salut Serge,

Merci pour la piste, mais j'ai encore un petit problème
voici le code:
Private Sub cbxPériode_Change()
Dim f As Integer
f = cbxPériode.ListIndex
If f <> -1 Then
Sheets(f).Activate
End If
End Sub

J'ai 4 Feuil, lorque je sélectionne:
- Feuil2, c'est Feuil1 qui est activée
( idem pour Feuil3 et Feuil4 )
- Feuil1, j'ai l'erreur suivante:
Erreur d'exécution 9
L'indice n'appartient pas à la sélection.

Peut-être un problème avec ListIndex ?

Merci A+
--
-cphil-

"garnote" a écrit dans le message de
news:94GHb.12230$
Peut-être ajouter On error Resume Next
au début de la macro au cas où quelqu'un
entrerait un nom de feuille inexistante !

Serge

"garnote" a écrit dans le message de news:
P_FHb.12229$
Salut cphil,

Tu pourrais essayer :
Private Sub ComboBox1_Change()
Dim f As String
f = ComboBox1
Sheets(f).Activate
End Sub

Serge

"cphil" <cazenave.(suffitspam) a écrit dans le
message



de
news: OMiV3$
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-