Bonjour à vous,
voilà j'ai un problème avec une macro que j'essaie de créer. En fait j'ai crée un userform avec une textbox. Ce que je cherche à faire c'est un tri qui me permet de venir garder les valeurs que j'ai dans un tableau à partir du moment où elles sont égales à la valeur de la textbox.
J'ai donc crée un code qui est censé supprimer toutes les lignes qui ne sont pas égales à cette valeur. Le problème c'est que çà ne fonctionne pas bien et qu'a chaque fois que je lance un tri il ne supprime pas toutes les lignes. Si je fais l'opération trois quatre fois de suite je parviens au résultat mais je veux pouvoir l'obtenir en une seule étape.
Je ne vois pas l'erreur que j'ai commise. Je vous met le code que j'ai en espérant que vous puissiez m'aider.
Je pense que cela vient d'un problème d'incrémentation mais lequel...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 Private Sub CommandButton11_Click() Dim iL As Long Dim T As Worksheet Set T = Worksheets("searching results") If TextBox7.Value <> "" Then For iL = 2 To 70 If T.Cells(iL, "j").Value <> Val(TextBox7.Text) Then Rows(iL).Delete iL = iL Else: iL = iL + 1 End If Next iL
merci
Partager