boucle VBA recherche de valeur

**Masta945** · 17/02/2020, 17h18

Bonjour,
Je fais appel à vos connaissances pour réaliser un projet professionnel.

J'ai un fichier, qui calcul tout seul a partir de petites données. (je vous joint un exemple condensé)

selon les données les résultats peuvent bouger dans une seconde feuil.
J'ai donc en colonne A mis 1 ou 0 si je veux garder la ligne ou non.

Le VBA devra donc chercher tout les 0 de cette colonne et sélectionner la ligne puis la supprimer, puis passer à la suite.

Exemple 1 :

Feuil 1 :
A=oui
B=oui
C=oui

Feuil2 :
A
B
C

Exemple 2 :

Feuil 1 :
A=oui
B=non
C=oui

Feuil2 :
A
C

Je ne suis pas habitué aux forum et ma demande peut être incomplète, dites moi si vous souhaitez plus de données

rechercher les ligne a supprimer.xlsm

**Menhir** · 17/02/2020, 17h26

Je n'ai pas ouvert ton fichier joint mais une erreur classique dans ce type de procédure est de faire une boucle procédant du haut vers le bas (suivant l'ordre des numéro de ligne).

Il faut faire l'inverse : aller du bas vers le haut.
Par exemple, si ta boucle est "For To", il faut mettre un Step -1 pour signifier qu'on va "à rebours".

**Masta945** · 17/02/2020, 17h41

Envoyé par Menhir

Je n'ai pas ouvert ton fichier joint mais une erreur classique dans ce type de procédure est de faire une boucle procédant du haut vers le bas (suivant l'ordre des numéro de ligne).

Il faut faire l'inverse : aller du bas vers le haut.
Par exemple, si ta boucle est "For To", il faut mettre un Step -1 pour signifier qu'on va "à rebours".

Merci pour la réponse rapide. Honnêtement je ne comprend pas bien le Step-1

Pour infos je suis parti de cette base :

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
22
23
Sub Purge()
 
Dim numéro As Integer
Dim celluletrouvee As Range
Dim ligne As Integer
Dim col As Integer
 
numéro = "0"
 
Set celluletrouvee = Range("A1:A10000").Find(numéro, lookat:=xlPart)
 
If celluletrouvee Is Nothing Then
MsgBox ("Pas trouvé")
Else
ligne = celluletrouvee.Row
col = celluletrouvee.Column
MsgBox ("Cellules trouvé")
celluletrouvee.Select
Rows(ActiveCell.Row).Select
    Selection.Delete Shift:=xlUp
End If
 
End Sub

1) Cela marche mais il n'y a pas de boucle et donc il s'arrete sur chaque ligne. si j'ai 100 lignes avec un 0 je devrais cliquer 100 fois sur le bouton
2) Le 0 et 1 est obtenu si la ligne contient quelque chose.
Mais apparemment le VBA ne veux pas savoir si la cellule à 0 ou 1.
J'ai une cellule qui contient 1 (obtenue grâce a une formule), mais il me la sélectionne quand même.

**Menhir** · 17/02/2020, 18h22

Envoyé par Masta945

numéro = "0"

Les guillemets sont la marque d'une chaine de caractère (le type String).
Ta variable étant un Integer, ils ne sont pas utiles.

1) Cela marche mais il n'y a pas de boucle et donc il s'arrete sur chaque ligne. si j'ai 100 lignes avec un 0 je devrais cliquer 100 fois sur le bouton

Pour en savoir plus sur les boucles, lire ça : https://silkyroad.developpez.com/vba/boucles/
et ça : https://bidou.developpez.com/article/VBA/ (en particulier les pages 46 à 50).

Ne pas oublier aussi que la recherche doit se faire du bas vers le haut.
Il faut donc ajouter un paramètre SearchDirection:=xlPrevious.
Lire ça : https://msdn.microsoft.com/fr-fr/lib...6(v=office.15)

**pijaku** · 18/02/2020, 11h07

Bonjour,

Voir l'aide en ligne sur la méthode FindNext :
https://docs.microsoft.com/fr-fr/off...range.findnext

Ou, encore, la Fonction FindAll de Chip Pearson : http://www.cpearson.com/excel/findall.aspx

**Masta945** · 18/02/2020, 13h33

Bonjour et merci pour vos réponse.
D'après vous il vaut mieux que je me concentre sur les boucles For Next ou Do Loop?

**pijaku** · 18/02/2020, 13h39

Il vaut mieux que tu te concentres sur la lecture et la compréhension des liens que je t'ai communiqué.

**Masta945** · 18/02/2020, 13h47

Envoyé par pijaku

Il vaut mieux que tu te concentres sur la lecture et la compréhension des liens que je t'ai communiqué.

C'est ce que j'ai commencer à faire, déjà il faut savoir quelle boucle m’intéresse, je ne vais pas toutes les étudier. Je ne suis pas informaticien

**pijaku** · 18/02/2020, 13h52

La procédure que tu cherches est l'exemple n°1 dans le 1er lien que je t'ai donné :

Exemple
Cet exemple montre comment rechercher toutes les cellules de la plage a1:A500 qui contiennent la valeur 2 et comment remplacer leur valeur par 5.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
With Worksheets(1).Range("A1:A500")   'dans la plage A1:A500
     Set c = .Find(2, lookin:=xlValues)   'RECHERCHE 2 
     If Not c Is Nothing Then                 's'il trouve 2
        firstAddress = c.Address             'stocke l'adresse de la cellule ou il a trouvé 2
        Do                                            'Boucle
            c.Value = 5                              'on remplace par 5 le 2 trouvé
            Set c = .FindNext(c)                 'on cherche le suivant
        If c is Nothing Then                      'si pas de suivant va à la fin ===>
            GoTo DoneFinding
        End If
        Loop While c.Address <> firstAddress 'boucle tant que la recherche ne ramène pas la première cellule
      End If
      DoneFinding:                                ' ===>
End With

**Masta945** · 18/02/2020, 14h05

Alors merci Franck pour la réponse mais je l'avais vu et testé, je la re-teste en ce moment mais la boucle ne trouve pas le 2 et du coup ne change absolument rien.
J'ai pourtant fais une liste jusqu'à 23

**Masta945** · 18/02/2020, 14h07

Envoyé par Masta945

Alors merci Franck pour la réponse mais je l'avais vu et testé, je la re-teste en ce moment mais la boucle ne trouve pas le 2 et du coup ne change absolument rien.
J'ai pourtant fais une liste jusqu'à 23

autant pour moi j'vais oublié de changer la feuille

Je re-teste en essayant de selectionner la lignes...

**pijaku** · 18/02/2020, 14h30

Essaye cette procédure qui devrait supprimer tes lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub VAZY()
Dim c As Range, firstaddress As String
    With Worksheets(1).Range("A1:A500")   'dans la plage A1:A500
         Set c = .Find(2, LookIn:=xlValues)   'RECHERCHE 2
         If Not c Is Nothing Then                 's'il trouve 2
                Do                                   'Boucle
                    c.EntireRow.Delete
                    Set c = .Find(2, LookIn:=xlValues)                 'on cherche le suivant
                Loop While Not c Is Nothing 'boucle tant que la recherche ne ramène pas la première cellule
          End If
    End With
End Sub

**MarcelG** · 18/02/2020, 14h49

Bonjour à vous, Bonjour au Forum,

Salut pijaku, ravi de te retrouver.

Ton processus évite un balayage intégral. Il est donc plus perfiormant

Juste pour information.

Si aucune des cellules n'est vide.
Pour ma part, je remplace la valeur à tester (ici 2) par une valeur string à 0 caractère
2==>""
Dans un 2ème temps, j'utilise la méthode SpecialCells pour supprimer en une seule fois les lignes entières des cellules ainsi mises à blanc.
Les 2 méthodes s'affectent en une seule fois chacune (One Shot).

**Menhir** · 18/02/2020, 14h53

Envoyé par Masta945

D'après vous il vaut mieux que je me concentre sur les boucles For Next ou Do Loop?

Etant donné que tu ne connais pas d'avance le nombre de lignes à traiter et que la condition de fin de boucle sera le résultat d'une méthode Find, Do Loop semble plus indiqué.

Quoi que, dans ton cas, l'utilisation de While/Wend à la structure plus basique, me semble plus simple.
Lire ça : https://docs.microsoft.com/fr-fr/off...wend-statement

**Masta945** · 18/02/2020, 15h48

Alors la j'y suis presque mais forcément, quelque chose ne va pas.
Il m'efface bien la ligne mais juste après il me fait une erreur 400

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
Sub rechsupptest()
With Worksheets(2).Range("A1:A50")                  'dans la plage A1:A50
     Set c = .Find(3, LookIn:=xlValues)             'RECHERCHE 3
     If Not c Is Nothing Then                       's'il trouve 3
        firstAddress = c.Address                    'stocke l'adresse de la cellule ou il a trouvé 3
        Do                                          'Boucle
            Rows(c).Delete                             'on selectionne la ligne complète et la supprime
            Set c = .FindNext(c)                    'on cherche le suivant
        If c Is Nothing Then                        'si pas de suivant va à la fin ===>
            GoTo DoneFinding
        End If
        Loop While c.Address <> firstAddress        'boucle tant que la recherche ne ramène pas la première cellule
      End If
DoneFinding:                                        ' ===>
End With
End Sub

**pijaku** · 18/02/2020, 15h52

Si tu lisais toutes les réponses en détail, tu verrais que mon dernier code n'utilise pas FindNext, mais juste Find.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows(c).Delete 'Qu'elle horreur!

Ce code supprime le Range c. Donc, ton FindNext(c) plante, c n'existant plus...

Préférer l'écriture :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c.EntireRow.Delete

@Marcel : ta méthode ne fonctionnera pas avec un paramètre Lookat réglé sur xlPart.
121 ==> 11 ==> pas de suppression

**MarcelG** · 18/02/2020, 16h28

Pijaku,

Avec le joker "*"

Exemple

de A1 à A8

12
121
5
6
121
12
8
4

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Option Explicit
 
Public Sub essai_suppr()
 
With Worksheets(1).Range("A1:A8")
        .Replace What:="*2*", Replacement:="", Lookat:=xlPart
        .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
 
End Sub

boucle VBA recherche de valeur

Macros et VBA Excel

Discussions similaires

Partager

Partager