Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

benji1919

XLDnaute Occasionnel
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.
 
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
 
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.
 

Pièces jointes

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)
VB:
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. 😉
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
142
Réponses
5
Affichages
614
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…