DEMANDE

[benji1919]

bonjour, j'aimerais savoir comment faire pour mettre tout les onglets de mon fichier excel pour pouvoir choisir dans quelle page encoder les données.


si vous arriver a me resoudre ceci vous etes des génie.

 

[benji1919]

toujour pas cela na pas regler mon soucis.

 

[Staple1600]

Re

Relis bien le message (notamment les commentaires en vert)
Je n'ai rien modifier dans le code
Donc avant de tester, faire le changement idoine.

 

[benji1919]

Private Sub UserForm_Initialize()
   Set f = Feuil1' Feuil1= > Feuille Accueil, ce qui ne ne va pas, non ?
   Set RngBD = f.Range("A2:H" & f.[A65000].End(xlUp).Row)
   RngBD.Sort key1:=Application.Index(RngBD, 1, 1)    ' Tri alpha
   TblBD = RngBD.Value
   If f.[A65000].End(xlUp).Row > 1 Then Me.ComboBox1.List = TblBD
   B_ajout_Click
End Sub

j'ai changer sur mon outils a la place de feuil1 j'ai mis feuil 11 qui correspond a l'onglet playstation.

 

[Staple1600]

Re

Fais ce petit test (sur le fichier exemple que tu as joins)

Private Sub UserForm_Initialize()
Set f = Feuil11
Set RngBD = f.Range("A2:H" & f.[A65000].End(xlUp).Row)
RngBD.Value = "TEST"
Me.Hide
End Sub

Et observe ce qui se passe alors sur la feuille 11

 

[benji1919]

j'ai tester cela ne fonctionne pas j'en est marre moi qui veut faire ma collection de jeux video cela ne veut pas.

 

[Staple1600]

Re

Relis mon message attentivement
Je t'ai demandé ce que tu observes sur la Feuil11 une fois que tu as affiché l'userform?
Notamment au niveau des titres de ta feuille?
Qu'est-ce que tu vois?

PS: Si tu as en marre, c'est ton problème, pas le mien.
C'est ta question, c'est donc à toi de t'investir dans la résolution de celle-ci
C'est à toi de mouiller la chemise, jeune padawan!

 

[benji1919]

tu ne veut pas regarder a ma place moi j'ai deja carburer a faire le fichier excel est creer le formulaire je ne connais rien en codage! en gros probleme de le codage des textbox

 

[Staple1600]

Re

Tu oublies un peu vite toute l'aide et le code fourni par Noel BEDARD
(cf l'autre fil)

Tu n'as pas répondu à ma question!
Qu'est-ce que tu as observé sur la feuille quand l'userform s'affiche?
(avec ce code en lieu et place de l'existant)

Private Sub UserForm_Initialize()
Set f = Feuil11
Set RngBD = f.Range("A2:H" & f.[A65000].End(xlUp).Row)
RngBD.Value = "TEST"
Me.Hide
End Sub

 

[benji1919]

ya rien qui s'affiche sur la feuilles probleme avex les code des textbox

 

[Staple1600]

Re

Encore une fois, lis attentivement mes messages

 

[benji1919]

ah si je vient de remarquer dsl

 

[Staple1600]

Re

Donc on peut en déduire il faut changer cette ligne, non ?
Set RngBD = f.Range("A2:H" & f.[A65000].End(xlUp).Row)
Et mettre le bon numéro de ligne à la place du 2 , non ?

 

[benji1919]

ouai mais sa ne m'aide pas sa

 

[benji1919]

pfff laisse tomber c bon j'y comprend rien,

 

[benji1919]

je vais reprendre mon sujet au normal pour la question du debut