Code VBA : Afficher Recherche sur MsgBox

[bast0504]

Bonsoir Forum

Je souhaite afficher au travers d'une MsgBox le résultat d'une recherche d'une input box

Dans mon exemple il s'agit d'afficher la date de l'ouvrage à partir du code ouvrage renseigné dans une input box

Dans mon code Vba la MsgBox ne s'affiche pas

Merci par avance

Sub BRecherche()


Dim P As Range
Dim indice_colonne As Integer
Dim annee As Integer





Set P = Range("BU")

Code = InputBox(" Veuillez saisir code d'ouvrage ")


For indice_colonne = 1 To P.Columns.Count
    
    If P.Cells(1, indice_colonne).Value = Code Then
    
    annee = P.Cells(6, indice_colonne)
    
MsgBox (Code & " posséde  " & annee & " médailles")


End If
Next
End Sub

 

[Dranreb]

Re : Code VBA : Afficher Recherche sur MsgBox

Bonsoir.

Une InputBox renvoie un String. Si vous l'affectez à un variant non déclaré, il y est enregistré sous cette forme.
Vous le comparez aux cellules de la ligne 1 de votre plage BU. Or aucune ne contient de String, toutes des Double, donc numériques.

Ça marche soit en déclarant Code As Integer, soit en testant If CStr(P.Cells(1, indice_colonne).Value) = Code Then

 

[bast0504]

Re : Code VBA : Afficher Recherche sur MsgBox

Bonsoir Dranreb

Vous avez totalement raison, Code n'était pas déclaré

Excellente remarque

Merci Beaucoup pour votre aide

 

[Dranreb]

Re : Code VBA : Afficher Recherche sur MsgBox

Si vous considérez, à juste titre, pour plein d'avantages, que vous avez à déclarer vos variables, je vous conseille de mettre en tête de vos modules : Option Explicit
Une exécution ne sera pas tentée tant que des oublis subsisteront.