Sujet Précédent Sujet Suivant

Suppression ligne sous condition (VRAI/FAUX)

Résolu/Fermé
Cifer Messages postés 4 Date d'inscription mercredi 24 juillet 2013 Statut Membre Dernière intervention 29 juillet 2013 - 24 juil. 2013 à 22:07
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 29 juil. 2013 à 22:18
Bonsoir,

Je souhaiterai pouvoir effacer des lignes entières si dans la colonne H la réponse est FAUX.
La colonne H affiche le résultat de la formule suivante =NB.SI('Liste 2'!$A$2:$A$1127;'Feuil3 (4)'!D2)>0
Pouvez-vous m'indiquer comment créer une macro permettant de réaliser cela.

En vous remerciant.

PS : Je débute tout doucement sur VBA, merci de votre compréhension
A voir également:

3 réponses

Réponse 1 / 3
Cifer Messages postés 4 Date d'inscription mercredi 24 juillet 2013 Statut Membre Dernière intervention 29 juillet 2013 1
Modifié par Cifer le 25/07/2013 à 18:58
Bonjour,
Merci pour la proposition, mais cela ne fonctionne pas. Toutes les lignes sont supprimées...
1
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
25 juil. 2013 à 21:36
C'est bien le but recherché: supprimer toutes les ligne contenant FAUX dans la colonne H ?
0
Cifer > Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023
25 juil. 2013 à 22:00
En effet c'est le but rechercher mais cela a également supprimer les lignes VRAi
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
25 juil. 2013 à 22:11
mets ton fichier sur cjoint et copies le lien dans ton prochain message :
https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers#q=cjoint&cur=2&url=%2F
0
Cifer Messages postés 4 Date d'inscription mercredi 24 juillet 2013 Statut Membre Dernière intervention 29 juillet 2013 1
Modifié par Cifer le 29/07/2013 à 20:13
Bonsoir, désolée d'avoir mis du temps à répondre...
J'ai pris le temps de retester votre macro et elle fonctionne, c'est moi qui avait mal fait les choses...
Merci encore en tout cas !
Bonne soirée
0
Réponse 2 / 3
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
Modifié par Patrice33740 le 24/07/2013 à 23:27
Bonjour,

Par exemple : 
Option Explicit
Sub T()
Dim w As Worksheet
Dim r As Range
Dim c As Range
Dim s As Range
    Set w = ActiveSheet
    Set r = Intersect(w.Columns("H"), w.UsedRange)
    For Each c In r.Cells
      If c.Value = False Then
        If s Is Nothing Then
          Set s = c
        Else
          Set s = Union(s, c)
        End If
      End If
    Next
    If Not s Is Nothing Then s.EntireRow.Delete
End Sub

Cordialement
Patrice
0
Réponse 3 / 3
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
29 juil. 2013 à 22:18
De rien, au plaisir de te relire sur le Forum
0

Discussions similaires

Afficher toutes les lignes masquées excel
livlarsen -
esicom -

26 réponses