Rechercher une valeur

aaristocat -  
ccm81 Messages postés 11033 Statut Membre -
Bonjour,

dans une colonne, je recherche la première cellule dont la valeur est <31. Ensuite je souhaite récuperer le numéro de ligne.

davance merci

2 réponses

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour

    un petit exemple

    Const plage = "A2:A31"

    Private Sub CommandButton1_Click()
    Dim cel As Range, trouve As Boolean, li As Long
    trouve = False
    For Each cel In Range(plage)
    If cel.Value < 31 Then trouve = True: Exit For
    Next cel
    If trouve Then
    li = cel.Row
    MsgBox "ligne : " & li & " - valeur : " & cel.Value
    Else
    MsgBox "pas de valeur trouvée"
    End If
    End Sub


    Cdlmnt
    0