Aide débogage VBA listbox

Bonjour

je viens ici car j'ai un souci de débeguage erreur d'execution 13 incompatibilité de type

je souhaite pouvoir faire des modification dans la listbox1

c'est a partir de Private Sub Modifier_Click() que les problèmes commence je joint le fichier

merci d'avance

Dim f, choix(), Rng, Ncol
Private Sub UserForm_Initialize()
   Set f = Sheets("bd")
   Set Rng = f.Range("a3:F" & f.[a65000].End(xlUp).Row)
   TblTmp = Rng.Value
   Ncol = Rng.Columns.Count
   For I = LBound(TblTmp) To UBound(TblTmp)
     ReDim Preserve choix(1 To I)
     For k = LBound(TblTmp) To UBound(TblTmp, 2)
       choix(I) = choix(I) & TblTmp(I, k) & " * "
     Next k
   Next I
   Me.ListBox1.List = Rng.Value
End Sub

Private Sub TextBox1_Change()
   If Me.TextBox1 <> "" Then
     mots = Split(Trim(Me.TextBox1), " ")
     Tbl = choix
     For I = LBound(mots) To UBound(mots)
       Tbl = Filter(Tbl, mots(I), True, vbTextCompare)
     Next I
       n = 0: Dim b()
       For I = LBound(Tbl) To UBound(Tbl)
         a = Split(Tbl(I), "*")
         n = n + 1: ReDim Preserve b(1 To Ncol, 1 To n)
         For k = 1 To Ncol
           b(k, I + 1) = a(k - 1)
         Next k
       Next I
       If n > 0 Then
         ReDim Preserve b(1 To Ncol, 1 To n + 1)
         Me.ListBox1.List = Application.Transpose(b)
         Me.ListBox1.RemoveItem n
       End If
       Me.Label1.Caption = UBound(Tbl) + 1
   Else
    UserForm_Initialize
  End If
End Sub

Private Sub ListBox1_Click()
    For k = 0 To Ncol - 1
      Me("TextBox" & k + 2) = Me.ListBox1.Column(k)
    Next k
End Sub

Private Sub Modifier_Click()
Dim LI As Integer
Dim I As Byte
If Me.ListBox1.ListIndex = -1 Then
End If

For I = 1 To 6
 f.Cells(ListBox1.Column(0, ListBox1.ListIndex), I).Value = Me.Controls("TextBox" & I + 2): Me.Controls("TExtBox" & I + 2).Value = ""
Next I
Me.TextBox1.Value = ""
Me.TextBox1.Value = f.Cells(LI, 1).Value
End Sub

[attachment=0]Desordre.xlsm[/attachment] 

Bonjour,

la variable LI n'est pas initialisée.

Bonjour

peux être comme ça

A voir

A+

Maurice

archer a écrit :

Bonjour

peux être comme ça

A voir

A+

Maurice

Desordre.xlsm

Bonjour

super merci beaucoup c'est exactement ca !

un petit plus j'aimerais pouvoir supprimer toute une ligne pour ne pas me retrouver

avec des lignes vide

merci d'avance

Bonjour

hum tu cherche pas beaucoup

voila avec un bouton en plus

A+

Maurice

archer a écrit :

Bonjour

hum tu cherche pas beaucoup

voila avec un bouton en plus

A+

Maurice

Desordre.xlsm

Bonjour

merci beaucoup pour ton aide et ta grande réactivité

je m'excuse de solliciter a nouveau car dans

je vein de remarquer que la recherche ne se fais plus sur toute les colonnes

mais juste sur la premiere si tu a une solution je dois faire une recherche globale

merci d'avance

Bonjour toutes et tous

coucou H2s04 et Archer

@Gouloom

BButton1 pour la recherche de ton usf2

on peut effectuer un double clic gauche sur la textbox1 de l'usf2 pour effacer le contenu

ci-joint

crdlt,

André

Andre13 a écrit :

Bonjour toutes et tous

coucou H2s04 et Archer

@Gouloom

BButton1 pour la recherche de ton usf2

on peut effectuer un double clic gauche sur la textbox1 de l'usf2 pour effacer le contenu

ci-joint

crdlt,

André

bonjour et merci pour votre interet

je souhaite garder le mode recherche de la textbox1 de l'usf2 qui et plus pratique a utiliser pour moi

et donc plus productif si vous avez une solution pour l'adaptation

merci d'avance

bonjour

recherche par colonne avec une combobox

A+

Maurice

archer a écrit :

bonjour

recherche par colonne avec une combobox

A+

Maurice

Desordre.xlsm

Re

je souhaite garder le mode recherche et le fonctionnement de textbox 1 dans l'userform 1

merci d'avance