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😉