savoir comment faire

[benji1919]

bonjour je voudrais qu'on procede par etape,

donc j'ai une grosse base de données excel, j'aimerais que dans ma combobox il ya tout les nom de mes feuilles de mon classeur excel, pour pouvoir choisir dans quelle feuille encoder les données.
je vous mais aussi mon fichier excel. comme sa vous pouvez comprendre mieux.

je vous met aussi mon fichier excel a disposition.

 

[benji1919]

j'ai tester, preuve en image

 

[Noel Bedard]

Tiens je viens de modifier le formulaire pour afficher différemment selon que ce soit un jeu ou un film.

 

[benji1919]

ok pas de soucis, merci, maintenant j'aimerais que je puisse choisir dans quelle feuilles encoder mes données.
en même temps je te modifie ton message @benji1313 ( non ) @benji1919 (oui) mdr je plaisante bien sur.

 

[benji1919]

noel, regarde dans l'onglet des film, c bizarre

 

[benji1919]

noel stp je t'en suplie fait moi le dernier truc que je demande la combobox. avec qui a dedans tout les onglet et que je puisse enfin encoder mes donnée plus rapidement.

 

[Staple1600]

Re

Tu as le code pour le combobox!
je te l'ai donné précedemment

Private Sub UserForm_Initialize()
Dim vArrF, i
ReDim vArrF(1 To Sheets.Count)
For i = 1 To Sheets.Count
vArrF(i) = ThisWorkbook.Sheets(i).Name
Next
ComboBox1.List = vArrF
End Sub

Essaie d'adapter avec l'userform de ton projet.

Ce n'est pas en exigeant du tout cuit qui te tombe dans le bec, que tu vas progresser en VBA, jeune padawan...

 

[benji1919]

j’essaye mais j’y arrive pas je ne trouve pas la solution. Je suis déjà entrain de désespérer en me disant que je vais jamais y réussir.

 

[cp4]

Re,

ou ce code, pour exclure la feuille Accueil du choix, en supposant que ne pas enregistrer tes données sur cette dernière.

Private Sub UserForm_Initialize()
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Sheets
    If ws.CodeName <> "Feuil1" Then
        ComboBox2.AddItem ws.Name
        End If
    Next
End Sub

 

[benji1919]

ok merci mais comment pourrais je faire pour obtenir ce que je veux ?

 

[Staple1600]

Re

@benji1919
Je vois que tu persistes à ouvrir grand le bec
Je laisse mes petits camarades de jeu te donner la becquée en te prémâchant le travail

PS: C'est une drôle façon d'envisager l'apprentissage du VBA.
Mais bon, c'est ton choix (comme dirait Evelyne T. sur la TNT)

Pourtant le titre de ta discussion était prometteur: savoir comment faire

 

[benji1919]

je veux que pour le reste personne ne m'aide je vais trouver par moi même!

 

[cp4]

houlala! qu'est-ce qui se passe?!!!

Et si tu expliquais c'est quoi la suite. Maintenant dans combobox, tu affiches bien tes onglets (ou feuilles).
Quelle est la prochaine étape? on ne va pas deviner tout seul, il faut bien nous aider

 

[benji1919]

attend je cherche encore ne me stress pas, j'ai un amis qui ma dit qui est juste a coté de moi c'est en mettant du n'importe quoi qu'un moment ont arrive a avoir ce quon veut.

 

[Staple1600]

Re

@benji1919
J'ai ajouté des commentaires pour faciliter la compréhension

Private Sub UserForm_Initialize()
'Déclarations des variables
Dim vArrF, i As Byte
'On place le nom des feuilles dans un tableau
ReDim vArrF(1 To Worksheets.count)
For i = 1 To UBound(vArrF)
vArrF(i) = ThisWorkbook.Sheets(i).Name
Next
'on remplit le ComboBox avec le tableau vArr
ComboBox2.List = vArrF
'on supprime le premier élément dans le ComboBox
'qui correspond à la feuille Acceuil
ComboBox2.RemoveItem 0
End Sub

Donc si tu as déjà un ComboBox1 sur ton userform, tu ajoutes un second
(qui alors se nommera ComboBox2)
Il faudra donc ajouter le code ci-dessus dans la déjà existante procédure Private Sub UserForm_Initialize()

 

[benji1919]

j'ai deja laisser tomber j'y arrive pas en plus j'ai besoin de sa le plus vite possible car je doit encoder mes jeux.