Astuces Excel
  1. Astuces Excel
  3. Recherche VBA par list
Intereting Posts
Reformatting des données dans une autre feuille de calcul Excel Un moyen plus simple / propre pour spécifier des plages lorsque vous utilisez beaucoup de cellules nommées dans VBA? Copie de cellules sans lignes détaillées Comment find des duplicates dans Excel et la list dans la deuxième colonne avec la valeur similaire Cartographie de database SQL et autres sources de récupération de données Utilisez la légende du button comme variable excel Excel fusionnant deux colonnes Le matériel rend les macros excel plus rapides? EXCEL VBA – countr à l'aide du dictionary et du tableau Vérifiez la cellule = 0 si elle affiche la boîte de message et annulez la sauvegarde Coloring of excel ne fonctionne pas Copier datatables de la ligne en fonction d'une search sur une feuille séparée Code Excel VBA pour lire un nom d'user à partir d'une cellule puis envoyer un courrier électronique à cet user Afficher datatables adjacentes à la plus grande valeur à scope tout en incluant des duplicates Copier la ligne A1 de la feuille 1 dans la feuille A1 de la ligne 2

Recherche VBA par list

J'ai un code qui search la valeur exacte de la textbox et les met en évidence, mais comment puis-je la faire searchr même des strings partielles comme des valeurs contenant 3 lettres ou plus et les returnner comme résultats de search aussi. 

Sub search() Dim i As Integer Dim j As Integer With UserForm1.ListBox1 .MultiSelect = fmMultiSelectSingle .ListIndex = -1 .MultiSelect = fmMultiSelectMulti For i = 0 To .ListCount - 1 For j = 0 To .ColumnCount - 1 If UserForm1.TextBox2.Text = .Column(j, i) Then .ListIndex = i .Selected(i) = True End If Next j Next i End With End Sub

Essayez-le en changeant 

 If UserForm1.TextBox2.Text = .Column(j, i) Then

à 

 If InStr(1, .Column(j, i), UserForm1.TextBox2.Text, vbTextCompare) Then

Essayer: 

 If UserForm1.TextBox2.Text Like Left(.Column(j, i), 3) & "*" Then

cela permettra de comparer les 3 premiers caractères des cordes.