XL 2021 Créer une boucle

[gui22]

Bonjour à tous,

J'aurais besoin d'aide concernant une macro, j'aimerais que cette macro cherche toutes les valeurs "xx" dans la colonne A et qu'elle supprime la ligne entièrement.
J'ai essayé de faire une macro qui marche mais qui supprime une ligne par une ligne à chaque fois que j'appuie sur le bouton.
Je ne peux pas partager mon formulaire car il est confidentiel désolé.
Voici le code :

Dim cell As Range

For Each cell In Range("A1:A150")
If cell.Value = "zz" Then
cell.EntireRow.Delete
End If
Next cell
End Sub

 

[Phil69970]

Pour ça il faut peut-être utiliser le filtrage.

L'idée est bonne mais vu qu'il y a des lignes vides (lignes 24,36,55 etc...) je ne pense pas que cela va fonctionner directement
Je regarde comment contourner le pb

De plus c'est quoi ceci ? ==> A quoi cela sert ?

 

[gui22]

L'idée est bonne mais vu qu'il y a des lignes vides (lignes 24,36,55 etc...) je ne pense pas que cela va fonctionner directement
Je regarde comment contourner le pb

De plus c'est quoi ceci ?

Regarde la pièce jointe 1194210

Ceux sont des bloques de lignes qui forme des partie que mes collègues ajoutent en fonction de leurs besoins.
Les lettres comme "bb" servent de balise d'ajout avec cette macro :
Sheets("Données").Select
Rows("27:35").Select
Selection.Copy
Sheets("F73").Select
ActiveSheet.Cells(1, 1).Select
While ActiveCell.Offset(1, 0).Value <> "88"
ActiveCell.Offset(1, 0).Select
Wend
Selection.EntireRow.Insert Shift:=xlDown
Sheets("Début").Select

Cette macro me permet d'ajouter différentes parties au document
Je ne sais pas si c'est très clair...

 

[Phil69970]

Re
Je te propose ce fichier

J'ai mis en jaune (Tu peux les enlever) pour que cela soit plus visuel la colonne ou tu mets les "x" pour suppression
Donc en
1) tu mets les X
2) Tu appuies sur le bouton suppressions lignes
Et c'est fini

Je regarde pour rationaliser le reste du code qui est pas terrible.....
Nota :
J'ai enlevé la protection de la feuille "Données"
Comme quoi les protections sur excel ne durent que le temps de les mettre ....

 

[TooFatBoy]

Il ne faut pas cocher #13 comme étant la solution car ce n'est qu'une idée d'axe de recherche.

 

[job75]

Bonjour gui22, Phil69970, TooFatBoy,

Il n'est pas nécessaire d'utiliser le filtre automatique.

Avec cette solution on remplace la lettre "x" par une valeur d'erreur que l'on supprime :

Sub Supr()
Application.ScreenUpdating = False
With Sheets("F73").Columns(1)
    .Replace "x", "#N/A", xlWhole, MatchCase:=False
    On Error Resume Next 'si aucune SpecialCell
    .SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete 'supprime les lignes contenant #N/A
End With
End Sub

A+

 

[TooFatBoy]

Il n'est pas nécessaire d'utiliser le filtre automatique.

Avec cette solution on remplace la lettre "x" par une valeur d'erreur que l'on supprime

Le principe reste le même : utiliser SpecialCells, mais c'est infiniment plus simple à mettre en place qu'un filtrage.

Merci pour cette astuce.

 

[gui22]

Re
Je te propose ce fichier

J'ai mis en jaune (Tu peux les enlever) pour que cela soit plus visuel la colonne ou tu mets les "x" pour suppression
Donc en
1) tu mets les X
2) Tu appuies sur le bouton suppressions lignes
Et c'est fini

Je regarde pour rationaliser le reste du code qui est pas terrible.....
Nota :
J'ai enlevé la protection de la feuille "Données"
Comme quoi les protections sur excel ne durent que le temps de les mettre ....

Bonjour,
Sa marche super bien je vous remercie de m'avoir aider
Vous êtes super