Bonjour le forum,
Pour mon projet, j'essaie d'adapter un code de AFEH Papy Henri mais je rencontre quelques problèmes. En bref, j'aimerais réaliser un journal comptable contenant 12 feuilles (une pour chaque mois de l'année) et un userform équipé d'un ListBox et d'une ComboBox qui permet le choix du mois à traiter.
La recherche d'un mois (ComboBox1) et la lecture des données du mois choisi dans la ListBox1 se fait correctement. Le problème survient lorsqu'on click dans la ListBox1. J'obtiens le message d'erreur 91 "Variable objet ou variable de bloc With non définie.
Voici le code de ListBox1_Click ...
Private Sub ListBox1_Click() '* transfert de ListBox vers TextBox
Dim position As Integer, i As Integer
With Range(TblBD)
position = .Find(Me.ListBox1, LookIn:=xlValues, LookAt:=xlWhole).Row - .Row + 1
For i = 1 To 7 '* boucle sur les TextBox
Me.Controls("tb" & i) = .Item(position, i + 1)
Next i
End With
End Sub
... et la ligne mise en surbrillance.
position = .Find(Me.ListBox1, LookIn:=xlValues, LookAt:=xlWhole).Row - .Row + 1
Je remercie d'avance les personnes qui trouveront le temps et l'intérêt de se pencher sur ma demande d'aide.
Cordialement Jorge.