Supprimer des lignes par raport au info de la colonne B

[CG2000]

Avec une utilisation de excel 2003 j'importe un très grand nombre de données et ce sur plusieurs lignes. Ce fichier est composée de 10 colonnes (de A à J).
Ce que je cherche à obtenir est le résultat suivant: je veux supprimer toutes les lignes de ce fichier excel qui comporte la lettre X présente dans la colonne B.
Est-ce possible. Merci par avance de votre aide.

 

[GIBI]

Re : Supprimer des lignes par raport au info de la colonne B

Bonjour,

si tu n'as pas un besoin d'automatisation, le plus rapide est de faire Données/filtre automatique puis sur la colonne B de filtrer sur la valeur X, et de supprimer ligne affichées (sélectionner les lignes et supprimer).
Tu affiches tout et le tour est joué

Par macro si tu y tiens (attention quand on supprime mieux vaut partir de la fin de la liste

Sub supprimer()
Dim NbLigne As Long, L As Long

NbLigne = Cells(65536, 1).End(xlUp).Row

For L = NbLigne To 2 Step -1
If Cells(L, 2).Value = "X" Then '
Rows(L).Delete
End If
Next

End Sub



GIBI

 

[Dull]

Re : Supprimer des lignes par raport au info de la colonne B

Salut CG2000 et Bienvenu, GIBI, le Forum

Je te conseil, en premier lieu, de lire la Lien supprimé, qui te permettra d'avoir des réponses beaucoup plus rapidement.

pour ton soucis essaye ces lignes de codes dans un module

Option Explicit
Dim C As Range
Sub Supprime_X()
For Each C In Sheets("Feuil1").Range("B1:B" & Range("B65000").End(xlUp).Row)
    If InStr(1, C, "X") > 0 Then C.EntireRow.Delete
Next C
End Sub

Bonne Journée

 

[CG2000]

Re : Supprimer des lignes par raport au info de la colonne B

Merci pour l'ensemble des solutions. Je vais toutes les essayer et vous informerais de mon choix.
Merci infiniment pour votre service.
Sympa.

 

[CG2000]

Re : Supprimer des lignes par raport au info de la colonne B

🙂Mercis à nouveau,

Pour supprimer des lignes par raport au info de la colonne B

Code:

Option Explicit
Dim C As Range
Sub Supprime_X()
For Each C In Sheets("Feuil1").Range("B1:B" & Range("B65000").End(xlUp).Row)
If InStr(1, C, "X") > 0 Then C.EntireRow.Delete
Next C
End Sub

Le résultat est parfait.🙂🙂

 

[CG2000]

Colorier la police des lignes par raport au info de la colonne B

😕Très basic avec l'utilisation de Excel mais progressant grace à vous tous et ce forum, je vous soliccite de nouveau pour la raison suivante :

Dans le mème principe que toutes les lignes d'un fichier excel qui comporte la lettre X présente dans la colonne B, il ne me faut plus supprimées les lignes mais que les polices soit écrites / colorisées en rouge ou autre couleur.
Merci par avance de votre aide.

 

[jeanpierre]

Re : Colorier la police des lignes par raport au info de la colonne B

Bonjour CG2000, Dull, GIBI, le forum,

Avec une Mise en forme conditionnelle.

Tu selectionnes ta plage et dans Format/Mise en forme conditionnelle, choisir La formule est et tu colles ceci :

=$B1="X" et dans Format, tu choisis ta couleur de police.

Bon dilmanche.

Jean-Pierre

 

[CG2000]

Re : Supprimer des lignes par raport au info de la colonne B

je souhaite qu'une macro effectue l'ensemble de ma mise en page.
La première partie de cette macro est :
Supression de lignes parmi (5000 lignes d'écritures) avec la macro ci dessus qui répond parfaitement au résultat rechercher et rapidité. A l'issu de cette sélection (deuxième partie de la macro que je cherche à faire) je pensais qu'il était possible de rechercher et prendre toutes les lignes dont B1 comporte un texte à rechercher par exemple CG2000 et que la macro puisse teinter la police en rouge l'ensemble de la ligne correspondante.

Le fichier Excel est destiné pour plusieurs utilisateurs et pour certains plus basic que moi, la macro dans ce cas ne demande à personne de rien faire la mise en page ce fait tout seul ; Excel est très puissant et honètement me laisse perplexe et baba en observant et prenant connaissance de ces multitudes d'infos du forum.

🙂 Merci(s) très fortement.

 

[vbacrumble]

Re : Supprimer des lignes par raport au info de la colonne B

Bjr à tous


Pour supprimer en utilisant le filtre automatique

Ici suppression des cellules contenant X puis coloration des cellules contenant CG2000

Sub supprimeligneXetcolorier()
With Range(Range("B1"), Range("B65536").End(xlUp))
    .AutoFilter Field:=1, Criteria1:="=*X*"
Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _
Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    .AutoFilter Field:=1, Criteria1:="=*CG2000*"
Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _
Rows.Count - 1).SpecialCells(xlCellTypeVisible).Font.ColorIndex = 3
End With
ActiveSheet.AutoFilterMode = False
End Sub

A+

 

[CG2000]

Re : Supprimer des lignes par raport au info de la colonne B

Merci à Tous, pour l'ensemble de vos bonnes et rapides réponses.

Grandiose, vbacrumble. Pour coloriser avec macro ta réponse est exellente.
Merci 🙂