Sujet Précédent Sujet Suivant

Macro listbox ne fonctionne plus

Fermé
alex - 5 avril 2013 à 13:11
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 5 avril 2013 à 16:37
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
A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 1 678
5 avril 2013 à 16:37
Re,

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