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

DEMANDE

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.
 

Staple1600

XLDnaute Barbatruc
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

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

  • bibi.xlsm
    26 KB · Affichages: 19

Staple1600

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

Discussions similaires

Réponses
1
Affichages
222
Réponses
2
Affichages
210
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…