JORDAN
XLDnaute Impliqué
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
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