Propriété ou méthode non gérée par cet objet

Bonjour,

Svp j'ai une erreur 438 qlq part dans mon code ci-dessous mais je sais pas où exactement. Merci de me donner un peu de votre temps.

ps: c'est un code qui sert à chercher une reference dans la colonne C qui contient 190 lignes.

Sub aa()

Application.Worksheet.Activate

Dim Ref As Integer
Ref = InputBox("Donner la reference")

i = 2
Do While i <= 190 And Ref <> Cells(i, C).Value
i = i + 1
Loop
If i >= 191 Then
Ref = InputBox("cette reference est indisponible veuiller réinsérer une autre")
Else
MsgBox " cette reference se trouve dans la zone :" & Cells(i, A).Value & ",la travée :" & Cells(i, B).Value & "et l'emplacement" & Cells(i, C).Value
End If
End Sub

bonjour,
c'est Cells(i, A) avec " !!! donc Cells(i, "A") la même chose pour B et C

merci pour votre reponse, mais malheureusement le probleme persiste encore

bonjour,

* efface ce "Application.Worksheet.Activate", cela ne sert à rien.

* Dim Ref As Integer >>> seulement des integers de 0 à 32.000 (et un petit peu) sont permis, c'est okay cela ?

* dans la plage C2:C190, ce sont tous des valeurs normaux ? Il n'y a pas de cellules avec des erreurs ?

Merci encore une tre fois. j'ai appliqué ce que vous avez dit, le input box s'affiche correctement mais quanf j'insère une reference une erreur 1004( erreur definie par l application ou par l objet ) s affiche .

bnjour

Merci énormément BsAlv ça marche très bien.