XL 2021 Créer une boucle

gui22 · 3 Avril 2024

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 · 3 Avril 2024

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

Phil69970 · 3 Avril 2024

TooFatBoy à dit:
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 · 3 Avril 2024

Phil69970 à dit:
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 · 3 Avril 2024

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 · 3 Avril 2024

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

job75 · 3 Avril 2024

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 :

VB:

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 · 3 Avril 2024

job75 à dit:
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 · 4 Avril 2024

Phil69970 à dit:
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

XL 2021 Créer une boucle

gui22

XLDnaute Nouveau

Phil69970

Phil69970

XLDnaute Barbatruc

gui22

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

gui22

XLDnaute Nouveau

Discussions similaires