Discussion :

[BtjpsspgrW]

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.

[Marc-L]

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 …

[keygen08]

Bonjour
Pourquoi pas comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[TiJean2910]

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 :

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 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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