Un seul et unique userform pour plusieurs tableaux structurés

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.

Bonjour,

corriger votre instruction ainsi :

        position = .Find(Format(Me.ListBox1, "0000"), LookIn:=xlValues, LookAt:=xlWhole).Row - .Row + 1

Bonjour thev, le forum,

Merci beaucoup, cela fonctionne parfaitement.

Bonne journée. Jorge