boucle VBA recherche de valeur

Version imprimable

17/02/2020, 17h18
Masta945

1 pièce(s) jointe(s)

boucle VBA recherche de valeur

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

Pièce jointe 539277
17/02/2020, 17h26
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".

Citation:

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:

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.

17/02/2020, 18h22
Menhir

Citation:

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.

Citation:

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)
18/02/2020, 11h07
pijaku

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
18/02/2020, 13h33
Masta945

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?
18/02/2020, 13h39
pijaku

Il vaut mieux que tu te concentres sur la lecture et la compréhension des liens que je t'ai communiqué.
18/02/2020, 13h47
Masta945

Citation:

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 ;)

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

Citation:

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:

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

18/02/2020, 14h05
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
18/02/2020, 14h07
Masta945

Citation:

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...

Essaye cette procédure qui devrait supprimer tes lignes :

Code:

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

18/02/2020, 14h49
MarcelG

Bonjour à vous, Bonjour au Forum,

Salut pijaku, ravi de te retrouver.:D

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).
18/02/2020, 14h53
Menhir

Citation:

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

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:

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

18/02/2020, 15h52
pijaku

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

Code:

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:

c.EntireRow.Delete

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

Pijaku,

Avec le joker "*"

Exemple

de A1 à A8

12
121
5
6
121
12
8
4

Code:

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