XL 2021 Créer une boucle

gui22

XLDnaute Nouveau
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
 
Solution
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 ....:rolleyes:

Phil69970

XLDnaute Barbatruc
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 ?

1712158304242.png
 

gui22

XLDnaute Nouveau
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

XLDnaute Barbatruc
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 ....:rolleyes:
 

Pièces jointes

  • F73 vierge V1.xlsm
    63.1 KB · Affichages: 4

job75

XLDnaute Barbatruc
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+
 

gui22

XLDnaute Nouveau
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 ....:rolleyes:
Bonjour,
Sa marche super bien je vous remercie de m'avoir aider
Vous êtes super
 

Discussions similaires

Réponses
1
Affichages
263
Réponses
0
Affichages
220

Statistiques des forums

Discussions
313 228
Messages
2 096 383
Membres
106 597
dernier inscrit
hevy75