XL 2010 Vlookup erreur

[harry226h]

Bonjour a tous
Je viens sollliciter votre aide sur un userform.
En fait j'ai un textbox qui puise des données dans un tableau en fonction de la box ''nom''.
Lorsque la valeur a rechercher est un nombre, la macro plante et affiche une erreur 1004. Mais si la valeur est une lettre elle s'execute normalement.
A noter egalement que lorsque la valeur recherchée n'existe pas la macro plante.
Comment puis je resoudre ces problemes?
Merci d'avance

 

[harry226h]

Oui en effet je reconnait que nous avons changer de sujet. J'en suis conscient, je continue ici dans l'espoir de pouvoir beneficier de votre aide encore

 

[harry226h]

Mais si cela pose probleme je peux creer une nouvelle discution

 

[Dranreb]

Il y a peu de choses à reprendre de l'autre problème. Peut être quand même le principe des noms à choisir dans une ComboBox pour avoir directement la ligne. La colonne selon une date s'obtient par simple différence avec la date de la 1ère colonne.

 

[harry226h]

Je bloque toujours, s'il vous plait serait il possible d'avoir une resolution avec le fichier precedemment joint?

 

[cp4]

Bonjour harry226h,Dranreb,herve62,

Que je suis lent, je l'ai fait, je l'édite (en utilisant la textbox pour la recherche mais et la quittant)

Dim Sh As Worksheet, Lig As Integer
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   Dim LaRecherche As String, Trouvé As Range
   Set Sh = Sheets("feuil1")
   LaRecherche = Me.TextBox1
   On Error Resume Next
   Set Trouvé = Sh.[A:A].Find(what:=LaRecherche, LookIn:=xlValues, LookAt:=xlWhole)
   If Err = 0 Then
      Lig = Trouvé.Row
   Else
      MsgBox "Pas trouvé"
   End If
   On Error GoTo 0
   Me.TextBox2 = Sh.Cells(Lig, 2)
   Me.TextBox4 = Sh.Cells(Lig, 3)
End Sub

Bon week-end