Macro listbox ne fonctionne plus
alex
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Macro listbox ne fonctionne plus
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
- Actiona macro - Télécharger - Divers Utilitaires
