Input/MsgBox

Question

Bonjouuuur,

J'essaye de faire un code VBA pour que, selon la valeur donnée par l'utilisateur de la macro dans un InputBox sur la colonne A, Excel retourne la valeur qui est sur la même ligne, mais sur la colonne G.

Le problème est qu'avec ce traitement, c'est qu'il me donne, quelque soit le numéro de compte, un message disant 'le numéro de compte n'existe pas'

Sub RechercherSoldeCompte()
Dim nbCOMPTE
Dim lig As Integer
nbCOMPTE = InputBox("Saisissez le numero du compte s'il vous plaît :")
On Error GoTo fin
lig = Range("A:A").Find(nbCOMPTE, LookAt:=xlWhole).Row
MsgBox "La valeur en colonne G est " & Cells(lig, 7)
Exit Sub
fin:  MsgBox "Le numero de compte n'existe pas !"
End Sub

Bien à vous

galopin01 · Answer

Ce code est valide et fonctionne correctement. A+...