Rechercher une valeur

Fermé
aaristocat - 16 oct. 2014 à 14:05
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 - 16 oct. 2014 à 15:18
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

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
16 oct. 2014 à 14:58
0
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
Modifié par ccm81 le 16/10/2014 à 15:20
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