Macro de recherche instable

[Seb]

Bonsoir à tous,

Je viens vers vous car j'ai fait une macro de recherche ,
Je tape un code en Textbox5
La valeur est cherchée dans la feuille "Bases" et elle apparaît en Textbox6

Des fois tout va bien, et des fois rien de marche. Je comprend pas pourquoi ! je m'arrache le reste de mes cheveux.

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If TextBox5 <> "" Or TextBox6 <> "" Then
Dim r As Range
Set r = Sheets("Bases").[A:A].Find(Me.TextBox5.Text, lookat:=xlWhole) 'Les codes sont dans la feuille Bases colonne A
If Not r Is Nothing Then TextBox6 = r.Offset(0, 1).Value 'La désignation à trouver sont dans la colone B
If TextBox6 = "" Then
If iResultat = "" Then
Me.Hide
Load Nomination: Nomination.Show
Me.Show
Exit Sub
End If
End If
End If

End Sub



Quand ça buggue c'est la ligne
If Not r Is Nothing Then TextBox6 = r.Offset(0, 1).Value qui est soulignée.


Vous voyez une erreur ??? La désignation est une phrase avec chiffre lettre ponctuation et espace.

Merci beaucoup !

 

[youky(BJ)]

Re : Macro de recherche instable

Bonjour
au lieu de
r.Offset(0, 1).Value
mettre
Sheets("Bases").Cells(r.Row, 2)
Sans fichier pas d'essai
Bonne journée

 

[CPk]

Re : Macro de recherche instable

Bonjour, fichier + code et libellé de l'erreur.