Discussion :

[Nebrawk]

Bonjour,

Je souhaiterais supprimer des lignes avec une condition.
Les lignes que je dois supprimer appartiennent à un sous ensemble en colonne 1 et les numeros d'articles se trouvent en colonne 2.

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
 
 
I = 6
Y = ActiveCell.Select - 1
 
For I = 6 To Range("B100000").End(xlUp).Row Step 1
 
    If Range("B" & I).Value = 205632 Then
 
        For Y = ActiveCell.Select - 1 To Range("B100000").End(xlUp).Row Step 1
 
         Do While Range("A" & I).Value <> 3
         ActiveCell.EntireRow.Delete
         Loop
 
        Next Y
 
    End If
Next

Je veux lui dire "tant qu'il ne trouve pas d'autre "3" dans la colonne 1, qu'il supprime toutes les lignes à partir de l'article 205632."
Et qu'il continue, et s'il retrouve un 205632 qu'il recommence.

Ca peut paraître simple, mais étant débutant j'ai un peu de mal.

Si quelqu'un peut m'aider

[Marc-L]

Bonjour !

Que vaut la variable Y ?
Et ligne de code n°13, es-tu sûr que c'est depuis ActiveCell qu'il faille supprimer la ligne ?!

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[halaster08]

Bonjour,

Pour supprimer correctement des lignes dans une boucle il faut boucler "à l'envers" (for i = fin to 1 step -1) sinon tu risque de sauter des lignes.
Exemple: d'après un critère les ligne 3 et 4 doivent être supprimer, si tu suprime la ligne 3 la 4 est automatiquement décaler en 3 et passe a travers ta boucle.

Je ne comprends pas ceci: Y = ActiveCell.Select - 1, cellule - 1?

Plutot que supprimer ligne par ligne, il est souvent plus simple et toujours plus rapide de faire un filtre et tout supprimer d'un coup.

[Nebrawk]

Bonjour Marc,

La variable Y correpondrait à l'article se trouvant en dessous du 205632, car cet article possèdant un "3" en colonne 1, je me suis dis que la macro n'effacerait que cette ligne puisque dans le While elle aurait trouvé le 3 tout de suite.

Il faudrait supprimer chaque ligne qui ne possède pas de 3 en colonne 1, je pensais donc que la macro supprimerait la ligne s'il n'y a pas de 3.

En bref, j'ai bidouillé, j'ai pas trouvé

[Marc-L]

En dehors d'un filtre normal ou avancé, sans besoin de boucle - trop lent - j'utiliserais la méthode Find
pour trouver la première ligne de l'article puis toujours via cette méthode la première ligne à partir
de cet article égale à 3, délimitant ainsi le bloc de lignes à supprimer donc en une seule instruction !
Mais selon la présentation initiale pas assez détaillée à mon goût ma préférence est le filtre avancé …

[Nebrawk]

La méthode find m'intéresse mais je ne sais pas l'utiliser.

Pour rappel, je dois supprimer un article parent "205632" qui constitue lui même en sous ensemble 3. Je souhaite supprimer tout les articles appartenants à ce parent. C'est à dire tout ceux qui comporte une nomenclature supérieure à 3 (en colonne 1) après ce même article.
Enfin il faut qu'il arrête de supprimer lorsque il trouve un autre 3, car c'est un autre article parent.

3| 205632 Delete
4| 205700 Delete
4| 205701 Delete
5| 205702 Delete
3 206...

J'espère avoir été plus clair...

[Marc-L]

Le 3 a-t-il réellement une importance ?   Et supprimer tous les articles 205632, non ?

[Nebrawk]

Voir modif précédent commentaire pardon. Chaque article à un numero différent les seuls liens entre eux sont l'appartenance ou non à l'article parent

[BENNASR]

Bonsoir
j'ai pas compris ta requête, un petit capture écran du tableau actuelle et un petit tableau du résultat attendu
avec données fictives ça sera bien attendu

Bonne continuation

[Nebrawk]

Dans cet exemple, supprimer les articles en jaune

[BENNASR]

bonsoir
et pourquoi que les jaunes?? c'est quoi le caractère de sélection?? est ce que c'est parce que les 4 premiers chiffre sont identique??
explique stp

[Marc-L]

Donc via Find recherche dans la deuxième colonne l'article puis à partir de cet article dans la première colonne
recherche de la valeur 3 puis suppression en une unique instruction du bloc de lignes …

En effectuant déjà les recherches et la suppression manuellement après avoir activé l'Enregistreur de macro
une base de code est livrée sur un plateau !   Sans compter l'aide VBA de la méthode Find et son exemple détaillé …