Code vb pour recherche multicritères
tomiu
-
tomiu -
tomiu -
Bonjour,
j'ai une bdd excel avec 3 colonnes:
Ville
Slot
Système
et j'ai fait un formulaire de recherche avec des textboxs:
txtVille.Text
txtSlot.Text
txtSystème.Text
j'arrive à faire une recherche à 1 critère mais pas avec les 3 critères rentrés dans le formulaire. Je souhaiterais que ça cherche les critères dans la bdd et que ça me supprimme la ligne qui réuni ces 3 critères.
comment puis je faire ça avec 3 critères?
cordialement,
tomiu
j'ai une bdd excel avec 3 colonnes:
Ville
Slot
Système
et j'ai fait un formulaire de recherche avec des textboxs:
txtVille.Text
txtSlot.Text
txtSystème.Text
j'arrive à faire une recherche à 1 critère mais pas avec les 3 critères rentrés dans le formulaire. Je souhaiterais que ça cherche les critères dans la bdd et que ça me supprimme la ligne qui réuni ces 3 critères.
comment puis je faire ça avec 3 critères?
cordialement,
tomiu
A voir également:
- Code vb pour recherche multicritères
- Code ascii - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
1 réponse
j'ai fait ça mais sans succès:
Dim rec, rec2, rec3 As Integer
rec = ActiveSheet.Columns(1).Find(txtVille.Text).Row 'peut prendre plusieurs valeurs
rec2 = ActiveSheet.Columns(3).Find(txtSlot.Text).Row '1 seule valeur
rec3 = ActiveSheet.Columns(7).Find(txtSystème.Text).Row
If (rec = rec2 = rec3) Then 'si les variables ont le même index de ligne
res = rec & rec2 & rec3 'res prend l'index comme valeur
Sheets("Données").Rows(res).Delete Shift:=xlUp 'on supprimme la ligne qui à cet index
