Dans un classeur j'ai 24 feuilles ..lorsque j'ouvre ce classeur un userform
apparait avec un combobox et j'aimerais avoir les noms initialisés ds le
combo (en premier lieu) et que la feuille sélectionée s'active (en 2e
phase)..
L'exemple ci dessous ne marche pas mais je n'ai trouvé que ça qui s'approche
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
michdenis
Bonjour Luigi,
'--------------------------- Private Sub ComboBox1_AfterUpdate() 'Différents événements possible ... On Error Resume Next With Me.ComboBox1 If .ListIndex <> -1 Then Sheets(.Value).Select On Error GoTo 0 End If End With
End Sub
'--------------------------- Private Sub UserForm_Initialize()
With Me.ComboBox1 For Each sh In Sheets .AddItem sh.Name Next End With
End Sub '---------------------------
Salutations!
"luigi" a écrit dans le message de news: % Bonjour à tous
Dans un classeur j'ai 24 feuilles ..lorsque j'ouvre ce classeur un userform apparait avec un combobox et j'aimerais avoir les noms initialisés ds le combo (en premier lieu) et que la feuille sélectionée s'active (en 2e phase)..
L'exemple ci dessous ne marche pas mais je n'ai trouvé que ça qui s'approche
PS: 1= janvier 2= Fevrier ...soit 2x12 feuilles -- Merci Luigi (enlever les chiffres pour me répondre)
Bonjour Luigi,
'---------------------------
Private Sub ComboBox1_AfterUpdate()
'Différents événements possible ...
On Error Resume Next
With Me.ComboBox1
If .ListIndex <> -1 Then
Sheets(.Value).Select
On Error GoTo 0
End If
End With
End Sub
'---------------------------
Private Sub UserForm_Initialize()
With Me.ComboBox1
For Each sh In Sheets
.AddItem sh.Name
Next
End With
End Sub
'---------------------------
Salutations!
"luigi" <luigi.s123@free.fr> a écrit dans le message de news: %237rwNZkpFHA.3552@TK2MSFTNGP10.phx.gbl...
Bonjour à tous
Dans un classeur j'ai 24 feuilles ..lorsque j'ouvre ce classeur un userform
apparait avec un combobox et j'aimerais avoir les noms initialisés ds le
combo (en premier lieu) et que la feuille sélectionée s'active (en 2e
phase)..
L'exemple ci dessous ne marche pas mais je n'ai trouvé que ça qui s'approche
'--------------------------- Private Sub ComboBox1_AfterUpdate() 'Différents événements possible ... On Error Resume Next With Me.ComboBox1 If .ListIndex <> -1 Then Sheets(.Value).Select On Error GoTo 0 End If End With
End Sub
'--------------------------- Private Sub UserForm_Initialize()
With Me.ComboBox1 For Each sh In Sheets .AddItem sh.Name Next End With
End Sub '---------------------------
Salutations!
"luigi" a écrit dans le message de news: % Bonjour à tous
Dans un classeur j'ai 24 feuilles ..lorsque j'ouvre ce classeur un userform apparait avec un combobox et j'aimerais avoir les noms initialisés ds le combo (en premier lieu) et que la feuille sélectionée s'active (en 2e phase)..
L'exemple ci dessous ne marche pas mais je n'ai trouvé que ça qui s'approche
PS: 1= janvier 2= Fevrier ...soit 2x12 feuilles -- Merci Luigi (enlever les chiffres pour me répondre)
luigi
Super merci bien michdenis,ça marche parfaitement.. Pour finir j'aurais aimé une petite explication de texte..
Merci Luigi
"michdenis" a écrit dans le message de news:
Bonjour Luigi,
'--------------------------- Private Sub ComboBox1_AfterUpdate() 'Différents événements possible ... On Error Resume Next With Me.ComboBox1 If .ListIndex <> -1 Then Sheets(.Value).Select On Error GoTo 0 End If End With
End Sub
'--------------------------- Private Sub UserForm_Initialize()
With Me.ComboBox1 For Each sh In Sheets .AddItem sh.Name Next End With
End Sub '---------------------------
Salutations!
"luigi" a écrit dans le message de news: %
Bonjour à tous
Dans un classeur j'ai 24 feuilles ..lorsque j'ouvre ce classeur un userform
apparait avec un combobox et j'aimerais avoir les noms initialisés ds le combo (en premier lieu) et que la feuille sélectionée s'active (en 2e phase)..
L'exemple ci dessous ne marche pas mais je n'ai trouvé que ça qui s'approche
PS: 1= janvier 2= Fevrier ...soit 2x12 feuilles -- Merci Luigi (enlever les chiffres pour me répondre)
Super
merci bien michdenis,ça marche parfaitement..
Pour finir j'aurais aimé une petite explication de texte..
Merci
Luigi
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:eFJnajkpFHA.2976@TK2MSFTNGP12.phx.gbl...
Bonjour Luigi,
'---------------------------
Private Sub ComboBox1_AfterUpdate()
'Différents événements possible ...
On Error Resume Next
With Me.ComboBox1
If .ListIndex <> -1 Then
Sheets(.Value).Select
On Error GoTo 0
End If
End With
End Sub
'---------------------------
Private Sub UserForm_Initialize()
With Me.ComboBox1
For Each sh In Sheets
.AddItem sh.Name
Next
End With
End Sub
'---------------------------
Salutations!
"luigi" <luigi.s123@free.fr> a écrit dans le message de news:
%237rwNZkpFHA.3552@TK2MSFTNGP10.phx.gbl...
Bonjour à tous
Dans un classeur j'ai 24 feuilles ..lorsque j'ouvre ce classeur un
userform
apparait avec un combobox et j'aimerais avoir les noms initialisés ds le
combo (en premier lieu) et que la feuille sélectionée s'active (en 2e
phase)..
L'exemple ci dessous ne marche pas mais je n'ai trouvé que ça qui
s'approche
Super merci bien michdenis,ça marche parfaitement.. Pour finir j'aurais aimé une petite explication de texte..
Merci Luigi
"michdenis" a écrit dans le message de news:
Bonjour Luigi,
'--------------------------- Private Sub ComboBox1_AfterUpdate() 'Différents événements possible ... On Error Resume Next With Me.ComboBox1 If .ListIndex <> -1 Then Sheets(.Value).Select On Error GoTo 0 End If End With
End Sub
'--------------------------- Private Sub UserForm_Initialize()
With Me.ComboBox1 For Each sh In Sheets .AddItem sh.Name Next End With
End Sub '---------------------------
Salutations!
"luigi" a écrit dans le message de news: %
Bonjour à tous
Dans un classeur j'ai 24 feuilles ..lorsque j'ouvre ce classeur un userform
apparait avec un combobox et j'aimerais avoir les noms initialisés ds le combo (en premier lieu) et que la feuille sélectionée s'active (en 2e phase)..
L'exemple ci dessous ne marche pas mais je n'ai trouvé que ça qui s'approche
PS: 1= janvier 2= Fevrier ...soit 2x12 feuilles -- Merci Luigi (enlever les chiffres pour me répondre)
michdenis
Bonjour Luigi,
'Dans le cas où quelqu'un modifie le nom d'un des 'onglets de ta feuille pendant que le formulaire est affiché. 'C'est seulement au cas où ... On Error Resume Next
With Me.ComboBox1 ' si listindex = -1, le combobox n'affiche pas 'une sélection de l'usager...est vide If .ListIndex <> -1 Then 'Sélection de la feuille 'Le .Value c'est la même chose que d'écrire 'Me.combobox1.value 'C'est l'avantage d'utiliser de With ...End With 'la saisie du code est plus court et le références plus précises ! Sheets(.Value).Select 'Si une erreur est provoquée par un nom d'onglet de feuille 'inexistant ...c'est une façon de dire à excel, d'effacer cette erreur 'et de continuer comme si il n'y en avait pas .... On Error GoTo 0 End If End With
End Sub
'--------------------------- Private Sub UserForm_Initialize() ' UserForm_Initialize = événement exécuté lorsque le 'formulaire se charge
With Me.ComboBox1 'Boucle : Pour chaque feuiille de la collection Sheets 'présents dans le classeur For Each sh In Sheets 'Sh est une variable représentant une feuille (L'objet) différente 'de ton classeur à chaque boucle... ce qui lui permet d'ajouter le nom de chacune d'entre elles. .AddItem sh.Name Next End With
End Sub
Salutations!
"luigi" a écrit dans le message de news: Super merci bien michdenis,ça marche parfaitement.. Pour finir j'aurais aimé une petite explication de texte..
Merci Luigi
"michdenis" a écrit dans le message de news:
Bonjour Luigi,
'--------------------------- Private Sub ComboBox1_AfterUpdate() 'Différents événements possible ... On Error Resume Next With Me.ComboBox1 If .ListIndex <> -1 Then Sheets(.Value).Select On Error GoTo 0 End If End With
End Sub
'--------------------------- Private Sub UserForm_Initialize()
With Me.ComboBox1 For Each sh In Sheets .AddItem sh.Name Next End With
End Sub '---------------------------
Salutations!
"luigi" a écrit dans le message de news: %
Bonjour à tous
Dans un classeur j'ai 24 feuilles ..lorsque j'ouvre ce classeur un userform
apparait avec un combobox et j'aimerais avoir les noms initialisés ds le combo (en premier lieu) et que la feuille sélectionée s'active (en 2e phase)..
L'exemple ci dessous ne marche pas mais je n'ai trouvé que ça qui s'approche
PS: 1= janvier 2= Fevrier ...soit 2x12 feuilles -- Merci Luigi (enlever les chiffres pour me répondre)
Bonjour Luigi,
'Dans le cas où quelqu'un modifie le nom d'un des
'onglets de ta feuille pendant que le formulaire est affiché.
'C'est seulement au cas où ...
On Error Resume Next
With Me.ComboBox1
' si listindex = -1, le combobox n'affiche pas
'une sélection de l'usager...est vide
If .ListIndex <> -1 Then
'Sélection de la feuille
'Le .Value c'est la même chose que d'écrire
'Me.combobox1.value
'C'est l'avantage d'utiliser de With ...End With
'la saisie du code est plus court et le références plus précises !
Sheets(.Value).Select
'Si une erreur est provoquée par un nom d'onglet de feuille
'inexistant ...c'est une façon de dire à excel, d'effacer cette erreur
'et de continuer comme si il n'y en avait pas ....
On Error GoTo 0
End If
End With
End Sub
'---------------------------
Private Sub UserForm_Initialize()
' UserForm_Initialize = événement exécuté lorsque le
'formulaire se charge
With Me.ComboBox1
'Boucle : Pour chaque feuiille de la collection Sheets
'présents dans le classeur
For Each sh In Sheets
'Sh est une variable représentant une feuille (L'objet) différente
'de ton classeur à chaque boucle... ce qui lui permet
d'ajouter le nom de chacune d'entre elles.
.AddItem sh.Name
Next
End With
End Sub
Salutations!
"luigi" <luigi.s123@free.fr> a écrit dans le message de news: uBMxNalpFHA.3552@TK2MSFTNGP10.phx.gbl...
Super
merci bien michdenis,ça marche parfaitement..
Pour finir j'aurais aimé une petite explication de texte..
Merci
Luigi
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:eFJnajkpFHA.2976@TK2MSFTNGP12.phx.gbl...
Bonjour Luigi,
'---------------------------
Private Sub ComboBox1_AfterUpdate()
'Différents événements possible ...
On Error Resume Next
With Me.ComboBox1
If .ListIndex <> -1 Then
Sheets(.Value).Select
On Error GoTo 0
End If
End With
End Sub
'---------------------------
Private Sub UserForm_Initialize()
With Me.ComboBox1
For Each sh In Sheets
.AddItem sh.Name
Next
End With
End Sub
'---------------------------
Salutations!
"luigi" <luigi.s123@free.fr> a écrit dans le message de news:
%237rwNZkpFHA.3552@TK2MSFTNGP10.phx.gbl...
Bonjour à tous
Dans un classeur j'ai 24 feuilles ..lorsque j'ouvre ce classeur un
userform
apparait avec un combobox et j'aimerais avoir les noms initialisés ds le
combo (en premier lieu) et que la feuille sélectionée s'active (en 2e
phase)..
L'exemple ci dessous ne marche pas mais je n'ai trouvé que ça qui
s'approche
'Dans le cas où quelqu'un modifie le nom d'un des 'onglets de ta feuille pendant que le formulaire est affiché. 'C'est seulement au cas où ... On Error Resume Next
With Me.ComboBox1 ' si listindex = -1, le combobox n'affiche pas 'une sélection de l'usager...est vide If .ListIndex <> -1 Then 'Sélection de la feuille 'Le .Value c'est la même chose que d'écrire 'Me.combobox1.value 'C'est l'avantage d'utiliser de With ...End With 'la saisie du code est plus court et le références plus précises ! Sheets(.Value).Select 'Si une erreur est provoquée par un nom d'onglet de feuille 'inexistant ...c'est une façon de dire à excel, d'effacer cette erreur 'et de continuer comme si il n'y en avait pas .... On Error GoTo 0 End If End With
End Sub
'--------------------------- Private Sub UserForm_Initialize() ' UserForm_Initialize = événement exécuté lorsque le 'formulaire se charge
With Me.ComboBox1 'Boucle : Pour chaque feuiille de la collection Sheets 'présents dans le classeur For Each sh In Sheets 'Sh est une variable représentant une feuille (L'objet) différente 'de ton classeur à chaque boucle... ce qui lui permet d'ajouter le nom de chacune d'entre elles. .AddItem sh.Name Next End With
End Sub
Salutations!
"luigi" a écrit dans le message de news: Super merci bien michdenis,ça marche parfaitement.. Pour finir j'aurais aimé une petite explication de texte..
Merci Luigi
"michdenis" a écrit dans le message de news:
Bonjour Luigi,
'--------------------------- Private Sub ComboBox1_AfterUpdate() 'Différents événements possible ... On Error Resume Next With Me.ComboBox1 If .ListIndex <> -1 Then Sheets(.Value).Select On Error GoTo 0 End If End With
End Sub
'--------------------------- Private Sub UserForm_Initialize()
With Me.ComboBox1 For Each sh In Sheets .AddItem sh.Name Next End With
End Sub '---------------------------
Salutations!
"luigi" a écrit dans le message de news: %
Bonjour à tous
Dans un classeur j'ai 24 feuilles ..lorsque j'ouvre ce classeur un userform
apparait avec un combobox et j'aimerais avoir les noms initialisés ds le combo (en premier lieu) et que la feuille sélectionée s'active (en 2e phase)..
L'exemple ci dessous ne marche pas mais je n'ai trouvé que ça qui s'approche
PS: 1= janvier 2= Fevrier ...soit 2x12 feuilles -- Merci Luigi (enlever les chiffres pour me répondre)
luigi
un grand merci pour tout..
Luigi
"michdenis" a écrit dans le message de news:
Bonjour Luigi,
'Dans le cas où quelqu'un modifie le nom d'un des 'onglets de ta feuille pendant que le formulaire est affiché. 'C'est seulement au cas où ... On Error Resume Next
With Me.ComboBox1 ' si listindex = -1, le combobox n'affiche pas 'une sélection de l'usager...est vide If .ListIndex <> -1 Then 'Sélection de la feuille 'Le .Value c'est la même chose que d'écrire 'Me.combobox1.value 'C'est l'avantage d'utiliser de With ...End With 'la saisie du code est plus court et le références plus précises ! Sheets(.Value).Select 'Si une erreur est provoquée par un nom d'onglet de feuille 'inexistant ...c'est une façon de dire à excel, d'effacer cette erreur
'et de continuer comme si il n'y en avait pas .... On Error GoTo 0 End If End With
End Sub
'--------------------------- Private Sub UserForm_Initialize() ' UserForm_Initialize = événement exécuté lorsque le 'formulaire se charge
With Me.ComboBox1 'Boucle : Pour chaque feuiille de la collection Sheets 'présents dans le classeur For Each sh In Sheets 'Sh est une variable représentant une feuille (L'objet) différente 'de ton classeur à chaque boucle... ce qui lui permet d'ajouter le nom de chacune d'entre elles. .AddItem sh.Name Next End With
End Sub
Salutations!
"luigi" a écrit dans le message de news:
Super merci bien michdenis,ça marche parfaitement.. Pour finir j'aurais aimé une petite explication de texte..
Merci Luigi
"michdenis" a écrit dans le message de news:
Bonjour Luigi,
'--------------------------- Private Sub ComboBox1_AfterUpdate() 'Différents événements possible ... On Error Resume Next With Me.ComboBox1 If .ListIndex <> -1 Then Sheets(.Value).Select On Error GoTo 0 End If End With
End Sub
'--------------------------- Private Sub UserForm_Initialize()
With Me.ComboBox1 For Each sh In Sheets .AddItem sh.Name Next End With
End Sub '---------------------------
Salutations!
"luigi" a écrit dans le message de news: %
Bonjour à tous
Dans un classeur j'ai 24 feuilles ..lorsque j'ouvre ce classeur un userform
apparait avec un combobox et j'aimerais avoir les noms initialisés ds le
combo (en premier lieu) et que la feuille sélectionée s'active (en 2e phase)..
L'exemple ci dessous ne marche pas mais je n'ai trouvé que ça qui s'approche
PS: 1= janvier 2= Fevrier ...soit 2x12 feuilles -- Merci Luigi (enlever les chiffres pour me répondre)
un grand merci pour tout..
Luigi
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:uf8JvmlpFHA.3064@TK2MSFTNGP15.phx.gbl...
Bonjour Luigi,
'Dans le cas où quelqu'un modifie le nom d'un des
'onglets de ta feuille pendant que le formulaire est affiché.
'C'est seulement au cas où ...
On Error Resume Next
With Me.ComboBox1
' si listindex = -1, le combobox n'affiche pas
'une sélection de l'usager...est vide
If .ListIndex <> -1 Then
'Sélection de la feuille
'Le .Value c'est la même chose que d'écrire
'Me.combobox1.value
'C'est l'avantage d'utiliser de With ...End With
'la saisie du code est plus court et le références plus précises !
Sheets(.Value).Select
'Si une erreur est provoquée par un nom d'onglet de feuille
'inexistant ...c'est une façon de dire à excel, d'effacer cette
erreur
'et de continuer comme si il n'y en avait pas ....
On Error GoTo 0
End If
End With
End Sub
'---------------------------
Private Sub UserForm_Initialize()
' UserForm_Initialize = événement exécuté lorsque le
'formulaire se charge
With Me.ComboBox1
'Boucle : Pour chaque feuiille de la collection Sheets
'présents dans le classeur
For Each sh In Sheets
'Sh est une variable représentant une feuille (L'objet) différente
'de ton classeur à chaque boucle... ce qui lui permet
d'ajouter le nom de chacune d'entre elles.
.AddItem sh.Name
Next
End With
End Sub
Salutations!
"luigi" <luigi.s123@free.fr> a écrit dans le message de news:
uBMxNalpFHA.3552@TK2MSFTNGP10.phx.gbl...
Super
merci bien michdenis,ça marche parfaitement..
Pour finir j'aurais aimé une petite explication de texte..
Merci
Luigi
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:eFJnajkpFHA.2976@TK2MSFTNGP12.phx.gbl...
Bonjour Luigi,
'---------------------------
Private Sub ComboBox1_AfterUpdate()
'Différents événements possible ...
On Error Resume Next
With Me.ComboBox1
If .ListIndex <> -1 Then
Sheets(.Value).Select
On Error GoTo 0
End If
End With
End Sub
'---------------------------
Private Sub UserForm_Initialize()
With Me.ComboBox1
For Each sh In Sheets
.AddItem sh.Name
Next
End With
End Sub
'---------------------------
Salutations!
"luigi" <luigi.s123@free.fr> a écrit dans le message de news:
%237rwNZkpFHA.3552@TK2MSFTNGP10.phx.gbl...
Bonjour à tous
Dans un classeur j'ai 24 feuilles ..lorsque j'ouvre ce classeur un
userform
apparait avec un combobox et j'aimerais avoir les noms initialisés ds
le
combo (en premier lieu) et que la feuille sélectionée s'active (en 2e
phase)..
L'exemple ci dessous ne marche pas mais je n'ai trouvé que ça qui
s'approche
'Dans le cas où quelqu'un modifie le nom d'un des 'onglets de ta feuille pendant que le formulaire est affiché. 'C'est seulement au cas où ... On Error Resume Next
With Me.ComboBox1 ' si listindex = -1, le combobox n'affiche pas 'une sélection de l'usager...est vide If .ListIndex <> -1 Then 'Sélection de la feuille 'Le .Value c'est la même chose que d'écrire 'Me.combobox1.value 'C'est l'avantage d'utiliser de With ...End With 'la saisie du code est plus court et le références plus précises ! Sheets(.Value).Select 'Si une erreur est provoquée par un nom d'onglet de feuille 'inexistant ...c'est une façon de dire à excel, d'effacer cette erreur
'et de continuer comme si il n'y en avait pas .... On Error GoTo 0 End If End With
End Sub
'--------------------------- Private Sub UserForm_Initialize() ' UserForm_Initialize = événement exécuté lorsque le 'formulaire se charge
With Me.ComboBox1 'Boucle : Pour chaque feuiille de la collection Sheets 'présents dans le classeur For Each sh In Sheets 'Sh est une variable représentant une feuille (L'objet) différente 'de ton classeur à chaque boucle... ce qui lui permet d'ajouter le nom de chacune d'entre elles. .AddItem sh.Name Next End With
End Sub
Salutations!
"luigi" a écrit dans le message de news:
Super merci bien michdenis,ça marche parfaitement.. Pour finir j'aurais aimé une petite explication de texte..
Merci Luigi
"michdenis" a écrit dans le message de news:
Bonjour Luigi,
'--------------------------- Private Sub ComboBox1_AfterUpdate() 'Différents événements possible ... On Error Resume Next With Me.ComboBox1 If .ListIndex <> -1 Then Sheets(.Value).Select On Error GoTo 0 End If End With
End Sub
'--------------------------- Private Sub UserForm_Initialize()
With Me.ComboBox1 For Each sh In Sheets .AddItem sh.Name Next End With
End Sub '---------------------------
Salutations!
"luigi" a écrit dans le message de news: %
Bonjour à tous
Dans un classeur j'ai 24 feuilles ..lorsque j'ouvre ce classeur un userform
apparait avec un combobox et j'aimerais avoir les noms initialisés ds le
combo (en premier lieu) et que la feuille sélectionée s'active (en 2e phase)..
L'exemple ci dessous ne marche pas mais je n'ai trouvé que ça qui s'approche
