Ouverture de fenêtre sur la mauvaise page

Bonjour à tous,

Je suis actuellement entrain de travailler sur un support de gestion de stock, et j'ai récupérer un code que je vais mettre à ma sauce.

Toutefois j'ai un soucis : Quand j'utilise mon bouton, la fenêtre dont j'ai besoin pour consulter mon stock s'ouvre, mais me fait également changer d'onglet ...

Je voudrais rester sur mon onglet d'accueille.

Je vous joint le code en espérant que vous puissiez m'aider :

Dim ligne

Private Sub UserForm_Initialize()
   For Each c In Range(Sheets("DATA").[A2], Sheets("DATA").[a65000].End(xlUp))
     Me.ComboBox1.AddItem c
   Next c
   Me.ComboBox1.ListIndex = 0
End Sub
Private Sub Combobox1_Change()
  ligne = Me.ComboBox1.ListIndex + 2
   Me.TextBox1 = Sheets("DATA").Cells(ligne, 1)
   Me.TextBox5 = Sheets("DATA").Cells(ligne, 4)
   Me.TextBox3 = Sheets("DATA").Cells(ligne, 3)
   Me.TextBox4 = Sheets("DATA").Cells(ligne, 2)

End Sub
Private Sub B_valid2_Click()

  '--- Transfert Formulaire dans DATA
   Sheets("DATA").Cells(ligne, 1) = Me.TextBox1
   Sheets("DATA").Cells(ligne, 5) = CDbl(Me.TextBox2)
   Sheets("DATA").Cells(ligne, 3) = UCase(Me.TextBox3)
   Sheets("DATA").Cells(ligne, 6).FormulaR1C1 = "=SUM(RC[-4])-RC[-1]"
   xQ = Sheets("DATA").Cells(ligne, 6).Value
   Sheets("DATA").Cells(ligne, 2) = xQ
   Me.TextBox4 = Sheets("DATA").Cells(ligne, 2)
   Me.TextBox5 = Date
   Me.TextBox2 = ""
   Sheets("DATA").Cells(ligne, 5).ClearContents
   Sheets("DATA").Cells(ligne, 6).ClearContents
  End Sub
Private Sub b_quitter2_Click()
  Unload Me
  Sheets("Menu").Select
End Sub

La macro me fait passer sur l'onglet DATA, je souhaite rester sur Menu.

Cordialement

Salut,

Pas facile de répondre sans pouvoir faire des tests sur ton fichier !

A tout hasard essaie d’ajouter la même instruction Sheets("Menu").Select à la fin du code Private Sub B_valid2_Click() , tel que tu l’as à la fin du code Private Sub b_quitter2_Click().

Sinon fournis-nous ton fichier.

Cordialement.

SALUT

Private Sub b_quitter2_Click()

Unload Me ' this exit before the next ligne can be executed = ça faire sortir avant que la ligne suivante puisse s’exécuter

Sheets("Menu").Select

End Sub

donc penser bien de changer l'ordre de ses instruction

Merci pour vos réponse,

j'ai finalement trouvé la solution.

Sur la macro affecté au bouton servant à ouvrir la fenêtre javais la ligne de code "Call XXX". Une fois supprimé cela ne me faisait plus changé de fenêtre.

Merci d'avoir prit le temps !