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

alexpoupp

XLDnaute Junior
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.
1690367591909.png

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
 

oguruma

XLDnaute Occasionnel
à 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 :)
 

Discussions similaires

Statistiques des forums

Discussions
313 204
Messages
2 096 206
Membres
106 529
dernier inscrit
ironmachine