Discussion :

[El Gustavo]

Bonjour Chers tous,
je bute sur une difficulté depuis hier: j'ai un classeur excel qui comporte 16 feuilles identiques nommées janv, fev,..., dec, trim1, trim2, trim3, trim4.
j'ai ajouté une feuille nommée "Récap" qui reprend les mêmes variables que celles des feuilles précédentes.
je souhaite écrire un code VBA qui me permettra de créer une liste déroulante à travers laquelle je choisirai la période d'observation ("janv", ou "fev", ou "mars",....,ou "dec", ou "trim1", ou "trim2", ou "trim3", ou "trim 4") et les variables de la feuille "Récap" prendront les valeurs contenues dans la feuille dont le nom a été sélectionné par la liste déroulante.

Merci pour votre aide habituelle

[Philippe Tulliez]

Bonjour,
je crois que cette contribution Regrouper plusieurs feuilles sur une autre. (2003-2010) correspond en tout point à ce que tu cherches.

[BENNASR]

bonsoir
pour alimenter une combobox avec le nom des feuille utilise ce ci : exclure la feuille "acceuil" et la feuille "energie" dans ce cas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
ComboBox1.Clear
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name <> "ACCEUIL" And Ws.Name <> "ENERGIE" Then
            ComboBox1.AddItem Ws.Name
        End If
    Next Ws
 
End Sub

[El Gustavo]

Bonjour,
je crois que cette contribution Regrouper plusieurs feuilles sur une autre. (2003-2010) correspond en tout point à ce que tu cherches.

Bonjour, merci pour le lien. j'y ai effectivement trouvé ce que je recherchais.
cordialement

bonsoir
pour alimenter une combobox avec le nom des feuille utilise ce ci : exclure la feuille "acceuil" et la feuille "energie" dans ce cas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
ComboBox1.Clear
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name <> "ACCEUIL" And Ws.Name <> "ENERGIE" Then
            ComboBox1.AddItem Ws.Name
        End If
    Next Ws
 
End Sub

Bonjour, Merci beaucoup pour la précision.
Cordialement

[El Gustavo]

bonsoir
pour alimenter une combobox avec le nom des feuille utilise ce ci : exclure la feuille "acceuil" et la feuille "energie" dans ce cas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
ComboBox1.Clear
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name <> "ACCEUIL" And Ws.Name <> "ENERGIE" Then
            ComboBox1.AddItem Ws.Name
        End If
    Next Ws
 
End Sub

Bonjour, j'ai mis en oeuvre cette procédure. cependant je ne comprend pas pourquoi elle bloque dès la ligne "ComboBox1.Clear". quand bien-même j'essaie de continuer sans vider la combobox, la procédure bloque à la ligne "ComboBox1.AddItem Ws.Name". j'ai beau chercher, je ne vois toujours pas ce qui coince, et pourtant ça ne marche pas

[Philippe Tulliez]

Bonjour,

Indiquer que cela bloque et que cela ne marche pas ne veut rien dire.
Y a-t-il un message d'erreur si ou lequel ?
La simple lecture du message d'erreur (il sert tout de même à cela) t'aurait indiqué l'origine du problème. Vraisemblablement tu n'as pas de contrôle ComboBox nommé ComboBox1

[El Gustavo]

Bonjour,
effectivement il y avait un conflit de noms (j'avais fait plusieurs tentatives, donc plusieurs comboBox créées. du coup je ne savais pas lequel était ComboBox1), mais c'est okay à présent. cependant, je ne comprend pas pourquoi lorsque je choisis un élément de ce comboBox, il s'affiche mais disparait au bout de quelques secondes!

[Philippe Tulliez]

Bonjour,

cependant, je ne comprend pas pourquoi lorsque je choisis un élément de ce comboBox, il s'affiche mais disparait au bout de quelques secondes!

Que veux-tu dire par là ?
Le but est de récupérer la propriété ListIndex du contrôle ComboBox après avoir sélectionné un des éléments dans la liste déroulante.
Ensuite seule la valeur de la ligne sélectionnée et de la colonne déterminée par la propriété TextColumn s'affiche.