Correspondance entre combobox

[JORDAN]

Bonjour le Fourm,

Voici mon Pb : Lorsque je rentre dans le Champ2 (Combobox) de mon Userform le 1er chiffre d'une référence, le code ci-dessous va bien rechercher les informations désirées d'après le 1er chiffre du champ2, mais si je continu à saisir la référence, les autres champs ne sont pas actualisés. Avez-vous une petite idée pour les champs 3, 4, 5 et 7 soient actualisés automatiquement ? (Je bloque)

Merci pour tous vos conseils.




Sub champ2_Change()

' Correspondance entre Ref et Titre, Collection, Editeur

Dim ReferenceR, TitreR, EditeurR, FournisseurR, CollectionR As String
Dim Derligne2, I2 As Integer

ReferenceR = UCase(Champ2.Value)
Derligne2 = Range('LIBRAIRIE!A60000').End(xlUp).Row

For I2 = 2 To Derligne2

If Range('LIBRAIRIE!B' & I2).Value = ReferenceR Then
TitreR = Range('LIBRAIRIE!C' & I2).Value
CollectionR = Range('LIBRAIRIE!D' & I2).Value
EditeurR = Range('LIBRAIRIE!E' & I2).Value
FournisseurR = Range('LIBRAIRIE!G' & I2).Value
End If

Next I2

Champ3.Value = TitreR
Champ4.Value = CollectionR
Champ5.Value = EditeurR
Champ7.Value = FournisseurR

End Sub

 

[Bebere]

bonjour

il faut écrire la ligne comme suit

Derligne2 = Worksheets('LIBRAIRIE').Range('A60000').End(xlUp).Row

ou bien

'permet de qualifier qu'une fois l'objet (içi la feuille librairie)
With Worksheets('LIBRAIRIE')
.Range('A60000').End(xlUp).Row
End With

la même chose pour les autres lignes
ne pas oublier le point avant range
bonne chance à bientôt

 

[JORDAN]

Bonjour Bebere,

Meric pour ta réponse, mais j'ai essayé les 2 solutions et rien n'y fait,
le problème reste identique.
Je n'arrive pas à comprendre pourquoi ça ne fonctionne qu'avec le 1er chiffre saisi et dès qu'il y en a 2 il ne modifie par la recherche.
Merci quand même pour ta réponse

 

[Bebere]

bonjour à tous

un fichier zippé - de 50 k
pour avoir une meilleure vuesur le problème

a+

 

[Bebere]

bonjour à tous

un fichier zippé - de 50 k
pour avoir une meilleure vuesur le problème

a+

 

[JORDAN]

Re

Mon fichier est beaucoup trop gros, je vais essayer de faire un résumé
Merci