Le bouton "annuler" me donne erreur 1004Résolu

Question

Bonsoir, 
J'ai un souci sur le bouton annuler de l'imputbox  qui me donne cette erreur 1004
L'erreur serait ici...: MsgBox Cellule.Offset(0, -2).Value & Chr(10) & Cellule.Offset(0, 0).Value
Merci de votre aide!
Hervé

Sub Trouver_CodeClient() 'Modulo 17
'ActiveSheet.Unprotect ("Base_Client")
Dim Cellule As Range
Dim Recherche As String
Art = InputBox("Client à rechercher", vbInformation + vbOKOnly, "Obligatoire trois lettres minimum")
With Sheets("Base_Clients").Range("A:C")
    Set Cellule = .Find(Recherche, Lookat:=xlPrevious)
    If Not Cellule Is Nothing Then
    firstAddress = Cellule.Address
    Do
    MsgBox Cellule.Offset(0, -2).Value & Chr(10) & Cellule.Offset(0, 0).Value
    Cellule.Offset(0, -2).Copy
    Range("K1").PasteSpecial
    Exit Sub
    Set Cellule = .FindBefore(Cellule)
    Loop While Not Cellule Is Nothing And Cellule.Address <> firstAddress
    End If
End With
MsgBox "Rien trouvé"
'ActiveSheet.Protect ("Base_Client")
End Sub

Patrice33740 · Answer

Bonjour,

Il me parait tout à fait normal que ce message donne une erreur lorsque la valeur cherchée est trouvée dans la colonne A ou la colonne B : comment pourrait-on reculer de 2 colonnes ?  .Offset(0, -2) ?????

D'autre part, pour trouver Recherche, il faudrait l'initialiser !

Patrice33740 · Answer

Il n'est pire sourd que celui qui ne veut pas entendre ..... 
 
Lorsqu'on laisse à une erreur la possibilité de se produire, il ne faut pas s'étonner lorsqu'elle se produit !

Il y a une incohérence entre :
With Sheets("Base_Clients").Range("A:C")
Set Cellule = .Find(Recherche, Lookat:=xlPrevious)
et
MsgBox Cellule.Offset(0, -2).

Soit tu recherches uniquement en colonne C et tu peux faire un offset de -2,
Soit tu tiens compte de la colonne de Cellule pour faire l'Offset.

Herve · Answer

Merci !

Le bouton "annuler" me donne erreur 1004

3 réponses

Votre réponse

Discussions similaires