Bouton valider afficher une feuil

Bonjour à tous ,

J'ai un userform qui avance tranquillement, mais là je bloque....

J'ai un combox ou je cherche un matricule, qui s'affiche dans un textbox, jusque là ca marche!!!

Par rapport au résultat du textbox je voudrai que s'ouvre une feuil du classeur,en cliquant sur valider.

35500001 TiTi feuil1

J'ai déjà les codes suivants qui fonctionne.

Private Sub Fermer_Click()

Unload Me

End Sub

Private Sub UserForm_Initialize()

Sheets("Données").Activate

ComboBox1.List() = Range("A1:A25").Value

End Sub

Private Sub ComboBox1_Change()

Dim Lig As Long

Lig = Me.ComboBox1.ListIndex + 1

Me.TextBox1.Value = Range("B" & Lig).Value

End Sub

53classeur1.xlsm (28.01 Ko)

Bonjour

Rajoutes cette macro

Private Sub Valider_Click()
  If Me.ComboBox1.ListIndex = -1 Then Exit Sub
  Sheets(Sheets("Données").Range("C" & Me.ComboBox1.ListIndex + 1).Value).Select
End Sub

Modifies cette macro

Private Sub ComboBox1_Change()
Dim Lig As Long
  Lig = Me.ComboBox1.ListIndex + 1
  Me.TextBox1.Value = Sheets("Données").Range("B" & Lig).Value
End Sub

Attention : Pas de vérification de l'existence de la page

Ca fonctionne Super!!!

Merci beaucoup.

Rechercher des sujets similaires à "bouton valider afficher feuil"