Bonjour,

Dans une InputBox, je saisis le code numérique suivant: 330097
Le contenu de la cellule active contient le même code identique, c'est-à-dire 330097
Dans l'exemple ci-dessous, la cellule active n'est pas coloriée alors que le code est identique.
ActiveCell.Value ne semble pas être la syntaxe pour la comparaison.

Quelqu'un peut-il m'apporter la correction nécessaire ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub macro()
Dim Reponse
Reponse = InputBox("Taper le code du portefeuille")
For compteur = 1 To nb_lignes -1
ActiveCell.Offset(1,0).Select
If ActiveCell.Value = Reponse Then
ActiveCell.Interior.ColorIndex = 44
End If
Next
End Sub
Vous en remerciant par avance.

Cordialement.