Macro listbox ne fonctionne plus

[Fermé]
Signaler
-
Messages postés
15983
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 septembre 2021
-
Bonjour,

Voila petit soucis de compatibilité car ma macro ne fonctionne plus

Private Sub TextBox1_Change()
Dim C
Me.ListBox1.Clear
For Each C In Range("Listdesig2").Offset(0, 1)
If C Like UCase(Me.TextBox1) & "*" Then ' Me.ListBox1.AddItem c
ListBox1.AddItem 'ajout d'une ligne
ListBox1.List(ListBox1.ListCount - 1, 0) = C.Offset(0, -1)
ListBox1.List(ListBox1.ListCount - 1, 1) = C
End If
Next C
End Sub

1 réponse

Messages postés
15983
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 septembre 2021
1 536
Re,

Voila petit soucis de compatibilité car ma macro ne fonctionne plus
entre quoi et quoi la compatibilite?????