Astuces Excel
  1. Astuces Excel
  3. vba excel – find un caractère générique
Intereting Posts
Stratégie de contrôle de formulaire Excel en matière de compensation de filters Enregistrez toutes les feuilles dans le classur sous forme de files HTML Comment éviter de grands nombres de convertir en Exponentiel dans nodejs excel file lue Copier Excel sur une feuille différente si à côté d'une cellule avec une certaine valeur vb.net excel fusion des cellules confusion Apache POI configurant les cellules à 0 Le résultat de la formule Excel n'est pas la valeur de la cellule Forcer à activer les macros et à afficher la forme d'user une fois que les macros sont activées Somme cumulative dans PowerPivot Créez un graphique dans Excel 2010 en utilisant 3 colonnes de données Comment exporter des données pour excel en C # en utilisant Linq erreur 1004: la propriété RowHeight de l'object Range ne peut pas être définie. (VBA) copyr une gamme de cellules (A5 à C507) de la feuille 1 à la feuille 2 après chaque 4ème colonne VBA – L'exécution du code est extrêmement lente comment afficher d'énormes données dans une nouvelle feuille excel en utilisant python

vba excel – find un caractère générique

Je fais un moteur de search simple dans Excel et je souhaite créer des caractères generics, par exemple:

J'ai une cellule où l'user saisit le terme de search (uniquement les nombres) qui devraient ressembler à ceci: "123456". Ensuite, j'ai un autre classur, où je search exactement le "123456". C'est ce que j'ai réussi à faire.

cependant, comment puis-je créer des caractères generics? par exemple, je veux que l'user puisse searchr: "123? 56" et je lui donnerai les résultats de: "123456", "123356", "123556" etc.

C'est ainsi que je search la correspondance exacte: 

set rFound = wks.UserRange.Find(strToSearch, LookIn:=xlValues, lookat:=xlwhole, MatchCase:=False)

des idées?

Je vous remercie

Vous pouvez utiliser un caractère générique dans une boucle ou avec Find : 

 Sub dural2() MsgBox Range("A1:A10").Find(What:="123*56", After:=Range("A1")).Row End Sub Sub dural2 () Sub dural2() MsgBox Range("A1:A10").Find(What:="123*56", After:=Range("A1")).Row End Sub Gamme MsgBox ("A1: A10"). Trouver (Quoi: = "123 * 56", Après: = Plage ("A1")). Ligne Sub dural2() MsgBox Range("A1:A10").Find(What:="123*56", After:=Range("A1")).Row End Sub

entrez la description de l'image ici

ou dans une boucle avec Like : 

 Sub dural() For Each r In Range("A1:A10") If r.Value Like "123*56" Then MsgBox r.Address End If Next r End Sub Subdural () Sub dural() For Each r In Range("A1:A10") If r.Value Like "123*56" Then MsgBox r.Address End If Next r End Sub Pour chaque r en gamme ("A1: A10") Sub dural() For Each r In Range("A1:A10") If r.Value Like "123*56" Then MsgBox r.Address End If Next r End Sub Si r.Value Like "123 * 56" Ensuite Sub dural() For Each r In Range("A1:A10") If r.Value Like "123*56" Then MsgBox r.Address End If Next r End Sub MsgBox r.Address Sub dural() For Each r In Range("A1:A10") If r.Value Like "123*56" Then MsgBox r.Address End If Next r End Sub Next r Sub dural() For Each r In Range("A1:A10") If r.Value Like "123*56" Then MsgBox r.Address End If Next r End Sub