VBA excel fermer userform

bonjour,

Merci pour le lien il est super utile.

j'ai donc fais un programme ci dessous, il sélection bien la bonne ligne mais j'ai plusieurs ligne que ou le même numéro. j'aimerai que mon programme sélectionne la dernière ligne qui correspond a la valeur demandé précédemment. je suis complètement bloqué ici.

Public Sub CommandButton1_Click()
Sheets(2).Activate
    Unload UserForm1
        NumPS = InputBox("Que voulez-vous rechercher ?")
 
            Set a = Range("A:A").Find(NumPS, lookat:=xlWhole)
 
        If Not a Is Nothing Then


        a.EntireRow.Select
   End If
 
End Sub

Bonjour,

j'ai essayer les deux programme, je n'arrive pas a les faire fonctionner, excusez moi je suis vraiment un très gros débutant en vba, voila le programme que j'ai implanter dans le mien, je ne comprend pas le erreurs.

Dim NumPS 'numero de commande


Sub CommandButton1_Click()
Sheets(2).Activate
    Unload UserForm1
        NumPS = InputBox("entrer le numero de PS")
    Num = 2
    Nb = Application.CountIf(Columns(2), Num)
    If Nb > 0 Then
        Derlig = Range("B" & Rows.Count).End(xlUp).Row
        NL = Derlig
        Do While NL <> 2
            If Cells(NL, 2) = Num Then
                Exit Do
            End If
            NL = NL - 1
        Loop
        Rows(NL).Select
    End If

End Sub

bonjour,

Si tu souhaites rester débutant, n'essaie surtout pas de comprendre ce que fait le code.

Supprime la ligne 8, et remplace partout Num par NumPS.

j'ai déjà fais ça mais la ligne ne ce sélectionne pas et merci pour ta sympathie...

Montre alors ton code adapté.

Sub CommandButton1_Click()
Sheets(2).Activate
    Unload UserForm1
        NumPS = InputBox("entrer le numero de PS")

    Nb = Application.CountIf(Columns(2), NumPS)
    If Nb > 0 Then
        Derlig = Range("A" & Rows.Count).End(xlUp).Row
        LL = Derlig
             Do While LL <> 2
            If Cells(LL, 2) = NumPS Then
                Exit Do
            End If
            LL = LL - 1
        Loop
        Rows(LL).Select

End If
End Sub

je me donne énormément à essayer de comprendre, je regarde sur le manuel de Microsoft tout les codes... mais une ligne reste incompréhensible pour moi

    Nb = Application.CountIf(Columns(2), NumPS)

si vous avez des tuto bien détaillé a me conseillé je suis preneur

excuser moi si je vous donne l'impression de pas chercher alors que pas du tout.

merci pour votre aide

peux-tu donner un exemple?

par exemple j'ai une pièce qui s'appelle PS708541_00 et je marque juste PS708541 dans le inputbox 

alors, pour le countif, je ferais 

CountIf(Columns(2), NumPS & "*")

j'ajouterais

dim lnum as integer
lnum = len(NumPS)

et je changerais le test

left(Cells(LL, 2),lnum) = NumPS

sa marche a la perfection merci beaucoup, et encore désolé pour le peu de compétence que j'ai, je vais mis mettre a fond.

Bonne fête de fin d'année 

je vais essayer merci