Bonjour,

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub CommandButton17_Click()
valeur = InputBox("Donner la valeur à chercher", "Recherche")
Range("F3:F900").Find(valeur, LookIn:=xlValues).Select
 
End Sub

J'aimerais rajouter les éléments suivants afin de colorer la cellule adéquate

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
If IsNumeric(c) Then
            Cells(c, 1).Select
            Cells(c, 1).Interior.ColorIndex = 8

Des idées ?
Belle journée.
Merci.