OVH Cloud OVH Cloud

Remplir un combobox + feuil excel

3 réponses
Avatar
Loupio
Bonjour vous!

Profitez vous bien du soleil ? moi je crève....alors je VBAtise...lol

J'ai un petit soucis de code.
J'ai un combobox sur ma "feuil1" de mon classeur Excel. Je souhaite charger
ce combobox avec le nom des "Feuil" du classeur Excel. Est ce possible ?

ensuite
Est ce que ca peut fonctionner avec n'importe quel nom donné à la feuil?
Enfin, si on ajoute une autre "feuil", l'ajoute -il automatiquement

Si avez déjà tenté une telle opération, ça pourrait m'aider... Merci
beaucoup et bonne soirée

Loupio

3 réponses

Avatar
Daniel
Bonjour.
Mets ces deux macros dans "thisworkbook" :
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sheets("Feuil1").Select
ActiveSheet.ComboBox1.Clear
For Each Sh In Sheets
ActiveSheet.ComboBox1.AddItem Sh.Name
Next Sh
End Sub

Private Sub Workbook_Open()
Dim Sh As Worksheet
Sheets("Feuil1").Select
For Each Sh In Sheets
ActiveSheet.ComboBox1.AddItem Sh.Name
Next Sh
End Sub

La seconde remplira le combobox à l'ouverture du fichier et la première
l'actualiseera en cas d'ajout de feuille. Il faudra parcontre lancer
manuellement une macro (analogue à la première) en cas de suppression de
feuille.
Les macros fonctionnent quels que soient les noms de feuille.
Cordialement.
Daniel
"Loupio" a écrit dans le message de news:

Bonjour vous!

Profitez vous bien du soleil ? moi je crève....alors je VBAtise...lol

J'ai un petit soucis de code.
J'ai un combobox sur ma "feuil1" de mon classeur Excel. Je souhaite
charger
ce combobox avec le nom des "Feuil" du classeur Excel. Est ce possible ?

ensuite
Est ce que ca peut fonctionner avec n'importe quel nom donné à la feuil?
Enfin, si on ajoute une autre "feuil", l'ajoute -il automatiquement

Si avez déjà tenté une telle opération, ça pourrait m'aider... Merci
beaucoup et bonne soirée

Loupio


Avatar
JB
Dans le userform:

Private Sub UserForm_Initialize()
For i = 1 To Sheets.Count
Me.ComboBox1.AddItem Sheets(i).Name
Next i
End Sub

http://cjoint.com/?hyvx3tTZOd

Cordialement JB


Bonjour vous!

Profitez vous bien du soleil ? moi je crève....alors je VBAtise...lol

J'ai un petit soucis de code.
J'ai un combobox sur ma "feuil1" de mon classeur Excel. Je souhaite charg er
ce combobox avec le nom des "Feuil" du classeur Excel. Est ce possible ?

ensuite
Est ce que ca peut fonctionner avec n'importe quel nom donné à la feu il?
Enfin, si on ajoute une autre "feuil", l'ajoute -il automatiquement

Si avez déjà tenté une telle opération, ça pourrait m'aider... Merci
beaucoup et bonne soirée

Loupio


Avatar
Loupio
Merci enormément,

Ca marche nickel


Bravo,

merci

Loupio


Bonjour.
Mets ces deux macros dans "thisworkbook" :
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sheets("Feuil1").Select
ActiveSheet.ComboBox1.Clear
For Each Sh In Sheets
ActiveSheet.ComboBox1.AddItem Sh.Name
Next Sh
End Sub

Private Sub Workbook_Open()
Dim Sh As Worksheet
Sheets("Feuil1").Select
For Each Sh In Sheets
ActiveSheet.ComboBox1.AddItem Sh.Name
Next Sh
End Sub

La seconde remplira le combobox à l'ouverture du fichier et la première
l'actualiseera en cas d'ajout de feuille. Il faudra parcontre lancer
manuellement une macro (analogue à la première) en cas de suppression de
feuille.
Les macros fonctionnent quels que soient les noms de feuille.
Cordialement.
Daniel
"Loupio" a écrit dans le message de news:

Bonjour vous!

Profitez vous bien du soleil ? moi je crève....alors je VBAtise...lol

J'ai un petit soucis de code.
J'ai un combobox sur ma "feuil1" de mon classeur Excel. Je souhaite
charger
ce combobox avec le nom des "Feuil" du classeur Excel. Est ce possible ?

ensuite
Est ce que ca peut fonctionner avec n'importe quel nom donné à la feuil?
Enfin, si on ajoute une autre "feuil", l'ajoute -il automatiquement

Si avez déjà tenté une telle opération, ça pourrait m'aider... Merci
beaucoup et bonne soirée

Loupio