Problème avec Userform

[jofdm]

Bonjour,

J'ai un petit problème avec l'utilisation de mon userform : je souhaiterais que celui-ci reste tout le temps affiché sur la feuille 1.
Or, dès qu'on l'utilise, on se retrouve sur la feuille MSDS MP(cf fichier joint)

Merci d'avance de m'aider à corriger ce petit souci.

 

[Épaf]

Re : Problème avec Userform

Or, dès qu'on l'utilise, on se retrouve sur la feuille MSDS MP(cf fichier joint)

Alors pourquoi l'actives-tu ?
On n'est (sauf exception) jamais obligé de sélectionner une feuille de calculs pour travailler dessus (l'exception ne me revient pas à la mémoire 🙄 )
Quant aux goto 😱
Teste les ligne suivantes

Private Sub CommandButton1_Click()
If UserForm2.TextBox1.Text = "" Then
    MsgBox ("Requête non trouvée")
    Exit Sub
End If
Dim x As Long
Dim FL1 As Worksheet
    Set FL1 = Worksheets("MSDS MP")
    For x = 1 To FL1.Range("A65535").End(xlUp).Row
        If UCase(FL1.Range("A" & x)) Like "*" & UCase(UserForm2.TextBox1.Value) & "*" Then
            LigneActive = x
            UserForm2.TextBox1.Value = FL1.Cells(LigneActive, "A").Value
            UserForm2.TextBox2.Value = FL1.Cells(LigneActive, "V").Value
            Exit Sub
        End If
    Next
End Sub

@+

 

[jofdm]

Re : Problème avec Userform

Merci de ton aide.
Par contre, avec le code que tu m'as donné, j'ai perdu la fonctionnalité qui me renvoie un message d'erreur dans le cas où le texte saisi ne correspond à aucune ligne du tableau.
J'ai bien essayé de mettre une fonction else, mais je n'y arrive pas (je suis vraiment débutant en VisualBasic)

 

[Épaf]

Re : Problème avec Userform

Tu ajoutes les lignes en rouge

        If UCase(FL1.Range("A" & x)) Like "*" & UCase(UserForm2.TextBox1.Value) & "*" Then
            LigneActive = x
            UserForm2.TextBox1.Value = FL1.Cells(LigneActive, "A").Value
            UserForm2.TextBox2.Value = FL1.Cells(LigneActive, "V").Value
            Exit Sub
[COLOR="Red"]          else
            MsgBox "Requête non trouvée"[/COLOR]
        End If

Bon week-end