XL 2016 Update la fonction Lookup Lors d'un changement de donnée

[alexpoupp]

Bonjour,

Je réalise actuellement pour un fichier pour ma société.

Lorsque je rempli la case Code Référence, cela donne automatiquement via une RechercheV en VBA le Titre concerné. Jusque la le code fonctionne.

Mais quand je change et que je vais sur l'onglet modifier ou supprimer cela me donne une erreur.
Voici le code utilisé :
Private Sub ComboMagazine_Change()

Dim F As Worksheet

Set F = Worksheets("BD_Entrée")

TextBoxTitre.Text = Application.WorksheetFunction.VLookup(ComboMagazine.Text, F.Range("A2:B111"), 2, Faux)

End Sub

Ceci et le code pour mon changement de menu :
Private Sub ComboNumOrdre_Change()
RazTransport

With Sheets("Entrée")
Me.ComboMagazine = .Range("B" & Me.ComboNumOrdre.ListIndex + 5)
Me.TxtNumMag = .Range("H" & Me.ComboNumOrdre.ListIndex + 5)
Me.TxtDate = .Range("D" & Me.ComboNumOrdre.ListIndex + 5)
Me.TxtQuantité = .Range("E" & Me.ComboNumOrdre.ListIndex + 5)
Me.TxtPal = .Range("F" & Me.ComboNumOrdre.ListIndex + 5)
Me.TxtCommentaires = .Range("I" & Me.ComboNumOrdre.ListIndex + 5)
Me.TxtDestination = .Range("C" & Me.ComboNumOrdre.ListIndex + 5)
Me.TxtTransporteur = .Range("G" & Me.ComboNumOrdre.ListIndex + 5)
Me.TextBoxTitre = "Essai"
End With

End Sub

Comment puis je faire pour ne plus avoir d'erreur svp ?

Bien cordialement,
Alex

 

[Compte Supprimé 979]

Bonjour,

Sans fichier cela va être difficile de pouvoir vous aider

A+

 

[alexpoupp]

Bonjour,

Je n'ai pas le droit de partager le fichier celui ci étant privé et qu'il appartient à la société pour laquelle je travaille.

 

[oguruma]

à la 1ère lecture.... ça semble être un peu "gaz-factory"....
Me.ComboMagazine = .Range("B" & Me.ComboNumOrdre.ListIndex + 5)....

revois ton code..... je miserai sur la mise en place d'un tableau structuré.... tu as tout ce qu'il faut pour gérer les accès particuliers aux cellules.... comme tu sembles le faire dans ces lignes de code comme celle j'ai identifié.
Ce n'est pas impossible que le TS te remette en cause ton Dév.... mais sans doute un mal pour un bien