Discussion :

[Masta945]

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]

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]

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]

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]

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]

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?