A voir également:
- Rechercher une valeur
- Rechercher ou saisir une url - Guide
- Rechercher une chanson - Guide
- Rechercher une image - Guide
- Rechercher remplacer word - Guide
- Rechercher ou entrer l'adresse - Guide
2 réponses
Bonjour
un petit exemple
Cdlmnt
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
