XL 2016 Selection des onglets via combobox sans les afficher

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
 

job75

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

  • test esm appli avec macros(1).xlsm
    106.9 KB · Affichages: 2
Haut Bas