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]

en gros dans ma combobox j'aimerais qui ai les onglet que j'ai sur ma feuille excel pour pouvoir choisir dans quelle onglet encoder mes donnée.

 

[Staple1600]

Re

Si tu ne cherches pas à comprendre comment fonctionne le code VBA, tu t'exposes à de futures déconvenues...
C'est pourtant pas compliqué dans la cas présent de modifier comme suit, non ?
Private Sub UserForm_Initialize()
Set f = Feuil11
Set RngBD = f.Range("A3:H" & f.[A65000].End(xlUp).Row)
RngBD.Value = "TEST"
Me.Hide
End Sub

Et donc dans le code original, de changer comme ceci
Private Sub UserForm_Initialize()
Set f = Feuil11' Feuil1= > Feuille Accueil, ce qui ne ne va pas, non ?
Set RngBD = f.Range("A3: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

 

[benji1919]

bref regarde mon message au dessus

 

[benji1919]

je laisse tomber cette partie. j'ai un autre fichier en tete qui est un peux le meme fichier mais plus simple

j'ai un probleme avec mes checkbox. sur ce fichier si je pense plutot prend celui si car c juste mes checkbox qui bug dans ce fichier.

 

[Staple1600]

Re

En dé-fusionnant les cellules* et en modifiant le code comme suit
(sur les lignes 3 et 4)
Plus de message d'erreur (comme sur ta copie d'écran)

Private Sub UserForm_Initialize()
Set f = Feuil11
Set RngBD = f.Range("A5: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

Pour le reste, je cède ma place car il est temps pour moi d'aller me coucher.