Discussion :

[Troutchu]

Bonjour,
J'ai un fichier de 70 000 lignes environ de la colonne A à la colonne AG, mais, avant d'appliquer vos méthodes, j'ai copié 20 ligne et 5 colonnes dans un nouveau fichier...
Donc voici :
en Colonne B j'ai une valeur VRAI ou FAUX
Si la valeur est = VRAI alors je souhaite supprimer TOUTE ligne
si la valeur est = FAUX, je la conserve.
et ce sur l'ensemble de mon tableau...
J'ai bien essayer quelques astuces VBA, mais rien à faire j'y arrive pas, je suis sous Office 2013
Merci d'avance de votre aide.

[Kimy_Ire]

Bonjour Troutchu,

Voici un petit code rapide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Sub suppr_ligne()
Dim oCell
 
With Worksheets("Feuil2")
    For Each oCell In Range(.Range("B1"), .Range("B1").End(xlDown))
        If oCell Then
            oCell.EntireRow.Delete
        End If
    Next oCell
End With
 
End Sub

N'hésite pas à revenir vers moi !

Cordialement,
Kimy

[antonysansh]

Une autre solution très sympas et sans VB peut se faire via l'inspection de document :

• Tu commences par filtrer sur uniquement les lignes que tu veux garder.
• Fichier -> Vérifier la présence de problèmes -> Inspecter le document
• Cocher juste la case Lignes et colonnes cachées (pour gain de temps) -> Inspecter
• Un message va indiquer le nombre de lignes masquées et tu peux ensuite choisir de les supprimer

Le tour est joué

Ce n'est pas automatique mais la manip est très rapide.

[Marc-L]

Bonjour,

pour un traitement rapide (manuellement comme par code) :

• trier les lignes sur la colonne B
• filtrer la colonne B sur VRAI
• supprimer les lignes filtrées …

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[Troutchu]

Bonjour,

pour un traitement rapide (manuellement comme par code) :

• trier les lignes sur la colonne B
• filtrer la colonne B sur VRAI
• supprimer les lignes filtrées …

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

Merci, déjà essayé, mais sur 70000 lignes dont 35000 envion remplissent la condition la selection manuelle est compliquée ensuite la machine rame et excel ne répond plus...

[antonysansh]

Tes Faux et Vrai sont-ils calculés ? Dépendent-ils d'autres lignes ?

Si oui, tu ne peux pas supprimer sans avoir de #REF.
Tu dois d'abord enlever les formules (Copier / Coller valeur sur ta colonne B)

Ensuite tu utilises l'inspecteur de Document

[Troutchu]

Une autre solution très sympas et sans VB peut se faire via l'inspection de document :

• Tu commences par filtrer sur uniquement les lignes que tu veux garder.
• Fichier -> Vérifier la présence de problèmes -> Inspecter le document
• Cocher juste la case Lignes et colonnes cachées (pour gain de temps) -> Inspecter
• Un message va indiquer le nombre de lignes masquées et tu peux ensuite choisir de les supprimer

Le tour est joué

Ce n'est pas automatique mais la manip est très rapide.

C'est parti sur l'ensemble de la selection...le PC Chauffe ca fait déjà 10min...J'attends le résultat et vous tiens informé, merci, la manip est simple en effet

Tes Faux et Vrai sont-ils calculés ? Dépendent-ils d'autres lignes ?

Si oui, tu ne peux pas supprimer sans avoir de #REF.
Tu dois d'abord enlever les formules (Copier / Coller valeur sur ta colonne B)

Ensuite tu utilises l'inspecteur de Document

oui c'est calculé mais ensuite je supprimerai cette colonne une fois les lignes supprimées.

[Marc-L]

La sélection est pourtant facile et si la colonne est bien triée, la suppression est rapide,
en tout cas bien plus qu'une boucle supprimant ligne par ligne !

Autre voie manuellement comme par code :

• créer une nouvelle feuille de calculs
• depuis cette nouvelle feuille, utiliser un filtre avancé copiant les lignes avec le critère FAUX sur la colonne B
• supprimer la feuille source …


_____________________________________________________________________________________________________
La meilleure façon de ne pas avancer est de suivre une idée fixe. (Jacques Prévert)

[Troutchu]

Merci

j'ai modifié pour élargir la selection jusqu'en ligne 20...ca passe pas, je joint le fichier pour que l'échange soit plus simple.