VBA excel fermer userform

Re,

je ne comprend pas le erreurs.

Ben Laquelle?

Vous n'avez pas adapte la colonne: vous c'est A pas B et pas mis l'inputbox

Si vous avez beaucoup de lignes, vous avez opte pour l'execution la plus longue

Bonjour,

Voir ici

Bonjour a tous

Deux facons de voir. Adaptez a votre contexte

'boucle en partant du haut mais seulement sur les lignes avec valeur Num 
Sub test()
    Num = 2
    Nb = Application.CountIf(Columns(2), Num)       'nombre de fois Num existe
    If Nb > 0 Then
        lig = 2     'ligne de depart
        'Boucle  du nombre de fois pour trouver la derniere ligne de avec valeur Num
        For n = 1 To Nb
            lig = Columns(2).Find(Num, Cells(lig, 2), , xlWhole).Row        'ligne
        Next n
        Rows(lig).Select
    End If
End Sub

'boucle sur toutes les lignes
Sub test1()
    Num = 2
    Nb = Application.CountIf(Columns(2), Num)       'Num existe?
    If Nb > 0 Then
        Derlig = Range("B" & Rows.Count).End(xlUp).Row  'derniere ligne de la colonne
        NL = Derlig     'affectation pointeur de ligne
        'boucle inverse de bas en haut
        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

Derniere petite question je peux inserer un code qui permet de dire contient au lieu de doit avoir dans cette colonne?

    nb = Application.CountIf(Columns(1), NumPS)

Bonjour yg_be

lostmain58:

C'est même chose, il faut toujours faire un test. Countif donne un nombre de fois ou zéro, ensuite test et vous en faites ce que vous voulez