XL 2016 Selection des onglets via combobox sans les afficher

  • Initiateur de la discussion Initiateur de la discussion realiste75
  • Date de début Date de début

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 !

realiste75

XLDnaute Nouveau
Bonjour à tous
voila j'ai un problème au niveau de liste deroulante de selection des onglets dans mon USF qui me permet d'alimenter des tableaux placés dans 5 onglets (bases de données ).
En faite je souhaiterais que lorsque je sélectionne via cette liste un onglet celui ci ne s'affiche pas et reste sur la page d'accueil mais cet onglet doit rester active car je dois travailler dessus.

Jai essayé plusieurs soluce du forum mais je n'y arrive pas.


Merci a vous
 
VB:
Private Sub CommandButton1_Click() 'bouton Ajouter
Dim DL As Long
If ONGLET.ListIndex = -1 Then ONGLET.SetFocus: Exit Sub
If TextBox8 = "" Then TextBox8.SetFocus: Exit Sub
With Sheets(ONGLET.Text)
    DL = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 'première ligne vide de la colonne A (colonne à adapter)
    .Cells(DL, "A") = TextBox8
    .Cells(DL, "B") = TextBox1
    If IsDate(TextBox2) Then .Cells(DL, "C") = CDate(TextBox2)
    .Cells(DL, "E") = TextBox14
    If IsDate(TextBox5) Then .Cells(DL, "F") = CDate(TextBox5)
    If IsDate(TextBox6) Then .Cells(DL, "G") = CDate(TextBox6)
    .Cells(DL, "H") = TextBox7
End With
Unload Me
End Sub
 

Pièces jointes

- 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
Retour