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]

Bonjour @gui22

Je ne peux pas partager mon formulaire car il est confidentiel désolé.

Rien ne t’empêche de fournir un fichier représentatif

C'est quoi représentatif ?

- représentatif, même organisation des lignes et des colonnes, mêmes libellés, même nom des TS, mêmes noms de feuilles...
- anonymisé, pas de données personnelles réelles tels nom, n° sécu, adresse ... remplacé par Nom1, Nom2 etc ....
- simplifié, une quinzaine de lignes reproduisant l'ensemble des différents cas envisageables (Avec le résultat souhaité éventuellement)

Si cela fonctionne sur le fichier fourni et pas sur le vrai fichier c'est qu'il n'est en rien représentatif ou que tu n'as pas su transposer ce qui devrait être un simple copier coller du code.

A croire que personne ne sait anonymiser un fichier avec une dizaine ou vingtaine de lignes pour le rendre compatible avec le RGPD et reflétant la structure et le nom des onglets du fichier original !!!

Bonne lecture

 

[gui22]

Excusez-moi je ne penserais pas que sa soit si problématique et j'ai peu de temps pour refaire le document en l'anonymisant.

 

[Phil69970]

Re

@gui22

et j'ai peu de temps pour refaire le document en l'anonymisant.

Donc c'est à nous d'inventer ce que tu décris si bien et que tu as sous les yeux !!!

Faire une copie de ton document prends 3 s et l'anonymiser quelques minutes
Pour rappel c'est toi le demandeur pas nous .

 

[TooFatBoy]

Bonjour,

Juste une remarque : dans ta macro du poste #1, il n'est pas logique d'aller de A1 à A150 puisque tu supprimes des lignes. Il serait plus logique d'aller de A150 à A1.

 

[gui22]

Re

@gui22



Donc c'est à nous d'inventer ce que tu décris si bien et que tu as sous les yeux !!!

Faire une copie de ton document prends 3 s et l'anonymiser quelques minutes
Pour rappel c'est toi le demandeur pas nous .

Ok merci de ton commentaire

 

[gui22]

Bonjour,

Juste une remarque : dans ta macro du poste #1, il n'est pas logique d'aller de A1 à A150 puisque tu supprimes des lignes. Il serait plus logique d'aller de A150 à A1.

D'accord je ne m'y connais pas du tout cela changerai beaucoup de choses ?

 

[Phil69970]

Re

Ce qui changerait beaucoup de choses c'est d'avoir un fichier mais j'ai pas l'impression que nous l'aurons un jour !

Et vraisemblablement que tu aurais déjà eu une réponse fonctionnelle.

 

[gui22]

Voici le document j'ai pu le changer j'aimerais trouver la macro qui me permettrait de mettre une lettre qui me servira de repéres dans la colonne A et qui supprimera toutes les lignes

 

[TooFatBoy]

cela changerai beaucoup de choses ?

Non, mais ce serait juste plus logique : ça éviterait de tester des lignes qui n'existent plus.

 

[Phil69970]

@gui22

Donc si je comprends bien si j'ai par exemple une croix sur la ligne 8 feuille F73

Alors la macro doit supprimer la ligne 8 de la feuille F73

Est ce bien cela que tu veux ?

 

[gui22]

@gui22

Donc si je comprends bien si j'ai par exemple une croix sur la ligne 8 feuille F73
Regarde la pièce jointe 1194208

Alors la macro doit supprimer la ligne 8 de la feuille F73

Est ce bien cela que tu veux ?

oui c'est exactement sa j'arrive a faire ligne par ligne seulement j'arrive pas à toutes les supprimés d'un coup

 

[TooFatBoy]

j'arrive pas à toutes les supprimés d'un coup

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

 

[gui22]

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

Ok je vais m'informer sur le filtrage je connaissais pas
Merci de m'avoir aiguillé

 

[TooFatBoy]

Ok je vais m'informer sur le filtrage je connaissais pas
Merci de m'avoir aiguillé

Attends de savoir ce que l'excellent Phil69970 en pense, pour savoir si c'est une bonne piste ou pas.