combobox

[le CH'TI160]

bonjour le forum.
je pense avoir mis ma question a la place d'une réponse estce grave donc je la reitere

ma petite question est celle-ci
j'ai dans un classeur 13 feuilles
- les 12 mois de l'annee
-un recapitulatif des douze mois
j'ai crée a l'ouverture de chaque feuille un USF qui me permet de selectionner un autre (onglet) mois ou le récapitulatif.
jai donc dans ma liste selectioné le nom des differents onglets

j'aimerai lors de l'approvisionnement de mon combo que le nom de l'onglet actif n'apparaisse pas,mais soit remplacer par l'onglet récapitulatif
j'espere avoir été suffisamment clair dans mon exposé
" mon USF ne contiendrait alors que 11 mois et le recapitulatif "
d'avance merci
et bonne journée!

 

[le CH'TI160]

salut

Oui ,j'ai bien déposé ma question mais en réponse a celle de VUILLAUME
que j'ai consulté
encore ce manque de réflexe dans l'utilisation des technologies de pointe
Excuses a vuillaume ,qui doit se demander ou j'en suis
a plus

 

[le CH'TI160]

RE-SALUT

voila le code qui m'initialise ma combobox
que dois y rajouter et où pour répondre à la question posée

Private Sub UserForm_Initialize()
Dim TabFeuille As Variant
Dim Sh As Worksheet
Dim i As Integer
ListBox1.Value = ""
ReDim TabFeuille(0 To Sheets.Count)
For Each Sh In ActiveWorkbook.Sheets
TabFeuille(i) = Sh.Name
i = i + 1
Next
ListBox1.List() = TabFeuille
End Sub
A++
Jm

 

[michel]

bonjour le CH'TI160

dans ton message tu parles de combobox et dans ta procedure tu fais appel à une listbox ...l'exemple ci dessous alimente ( une listbox ) avec les noms de tous les onglets du classeur , sauf l'onglet actif .

Private Sub UserForm_Initialize()
Dim i As Byte
For i = 1 To Sheets.Count
If Not ActiveSheet.Name = Sheets(i).Name Then ListBox1.AddItem Sheets(i).Name
Next i
End Sub

bonne soirée
michel

 

[le CH'TI160]

salut michel ,bonjour le forum

Effectivement ,j'ai essayé les deux(combo et listbox) pour me faire la main je débute,d'ou l'erreur .je rentre du boulot et je vais bidouiller un peu et moudre ce que tu m'a produit
je te remercie et vive l'aide en ligne
A+ Jm