Comparer cellule active avec réponse InputBox

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:

---

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.

Bonjour, bonjour !

Suivre le code en mode pas à pas (via la touche F8) pour vérifier si au moins le code entre dans la boucle
car si la variable nb_lignes n'est pas initialisée ou vaut seulement 1 …

A retenir : il est inutile de sélectionner une cellule pour y accéder …

Bonjour
Pourquoi pas comme ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub macro() Dim Reponse As String dim cell as range Reponse = InputBox("Taper le code du portefeuille") Set cell = Columns("A").Find(Reponse) If Not cell Is Nothing Then cell.Interior.ColorIndex = 44 Else MsgBox "Le portefeuille souhaité....." End If End Sub

---

J'ajoute également que l'instruction InputBox renvoie la réponse sous forme de String. Dans ton cas, "330097" plutôt que 330097.
Donc pour comparer correctement, il faut que tu forces le format de ta cellule en chaîne de caractères. En reprenant ton code, ça donne:

Code:

---

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 Cstr(ActiveCell.Value) = Reponse Then ActiveCell.Interior.ColorIndex = 44 End If Next End Sub

---

Plus propre à mon goût car tu évites de sélectionner la cellule (recherche effectuée dans la colonne j = 1, de la ligne 1 à 10):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub macro() Dim Reponse Dim i, j, nb_lignes j = 1 nb_lignes = 10 Reponse = InputBox("Taper le code du portefeuille") For i = 1 To nb_lignes If CStr(Cells(i, j).Value) = Reponse Then Cells(i, j).Interior.ColorIndex = 44 End If Next End Sub

---