Bonsoir à tous
Je reviens vers vous toujours pour l'amélioration de mon application de gestion de bibliothèque
Grace à votre aide, nous pouvons désormais utiliser un lecteur de code-barres pour gérer les prêts, mais il y a un soucis auquel je n'avais pas prêté attention
en effet ça a été assez fastidieux de relever les code ISBN de plus de 5000 livres et certains sont passés au travers
On peut toujours enregistrer le prêt de ces livres en faisant la recherche par le nom de l'auteur, mais, quand le cas se présente, on aimerait pouvoir y ajouter le code sans avoir à aller dans le fichier des livres (GdA)
J'ai donc ajouté une routine avec un bouton de commande (CmbCode) mais mon code ne fonctionne pas
voici mon code
Je joins mes fichier : c'est UserForm1 qui est concerné
je précise que notre ordinateur fonctionne sous XP et Office 97-2000
Merci pour votre aide
Je reviens vers vous toujours pour l'amélioration de mon application de gestion de bibliothèque
Grace à votre aide, nous pouvons désormais utiliser un lecteur de code-barres pour gérer les prêts, mais il y a un soucis auquel je n'avais pas prêté attention
en effet ça a été assez fastidieux de relever les code ISBN de plus de 5000 livres et certains sont passés au travers
On peut toujours enregistrer le prêt de ces livres en faisant la recherche par le nom de l'auteur, mais, quand le cas se présente, on aimerait pouvoir y ajouter le code sans avoir à aller dans le fichier des livres (GdA)
J'ai donc ajouté une routine avec un bouton de commande (CmbCode) mais mon code ne fonctionne pas
voici mon code
VB:
Private Sub CmbCode_Click()
Dim lig As Integer
Dim Tit As Variant
Dim Aut As Integer
With Sheets("GdA")
For Each Tit In Sheets("GdA").Range("G9:G" & Range("G65536").End(xlUp).Row)
lig = lig + 1
If Tit.Value = CBb3 Then Exit For ' And Aut.Value = CB2
Next
On Error Resume Next
Range(Cells(lig, 5)) = TbX_Douchette.Value
End With
End Sub
je précise que notre ordinateur fonctionne sous XP et Office 97-2000
Merci pour votre aide