XL 2010 Vlookup erreur

harry226h

XLDnaute Junior

• 15 Décembre 2018

• #16

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

 

Vote positif 0 Vote négatif

harry226h

XLDnaute Junior

• 15 Décembre 2018

• #17

Mais si cela pose probleme je peux creer une nouvelle discution

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 15 Décembre 2018

• #18

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.

 

Vote positif 0 Vote négatif

harry226h

XLDnaute Junior

• 15 Décembre 2018

• #19

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

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 15 Décembre 2018

• #20

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)

VB:

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

 

Vote positif 0 Vote négatif