1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

XL 2016 RESOLU suppression phrase

Discussion dans 'Forum Excel' démarrée par MASSJIPE, 8 Février 2019.

  1. MASSJIPE

    MASSJIPE XLDnaute Impliqué

    Inscrit depuis le :
    15 Février 2008
    Messages :
    525
    "J'aime" reçus :
    1
    Habite à:
    Lambres lez douai
    Utilise:
    Excel 2010 (PC)
    Bonjour le forum
    Je voudrais supprimer les lignes complète de ces deux phrases par VBA
    fonctionnement incomplet-vitre mobile porte AVG
    fonctionnement incomplet-vitre mobile porte AVD
    Merci
     
  2. Chargement...

    Discussions similaires - suppression phrase Forum Date
    suppression de doublon dans une phrase Forum Excel 31 Octobre 2009
    XL 2016 Suppression de doublons en VBA et sous conditions Forum Excel Samedi à 07:41
    Problème suite ajout d'une ligne et suppression d'une ligne Forum Excel 11 Février 2019
    XL 2007 Suppression image Forum Excel 31 Janvier 2019
    XL 2010 Suppression de ligne sous condition de date et heure dans cellule Forum Excel 30 Janvier 2019

  3. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    26301
    "J'aime" reçus :
    2311
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Bonjour MASSJIPE,

    Voici 2 solutions :
    Code (Text):
    Sub Suppr1()
    Dim a, e, c As Range
    a = Array("fonctionnement incomplet-vitre mobile porte AVG", _
        "fonctionnement incomplet-vitre mobile porte AVD")
    For Each e In a
        Do
            Set c = Cells.Find(e, , xlValues, xlPart)
            If c Is Nothing Then Exit Do Else c.EntireRow.Delete
        Loop
    Next
    End Sub
    Code (Text):
    Sub Suppr2()
    Application.ScreenUpdating = False
    Cells.Replace "*fonctionnement incomplet-vitre mobile porte AVG*", "#N/A"
    Cells.Replace "*fonctionnement incomplet-vitre mobile porte AVD*", "#N/A"
    On Error Resume Next 'si aucune SpecialCell
    Cells.SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete
    End Sub
    A+
     
    Dernière édition: 8 Février 2019
    arthour973 aime votre message.
  4. MJ13

    MJ13 XLDnaute Barbatruc

    Inscrit depuis le :
    23 Mars 2005
    Messages :
    8632
    "J'aime" reçus :
    518
    Utilise:
    Excel 2016 (PC)
    Bonjour à tous

    Suivant ce que je veux faire j'utilise un de ces codes:

    Oups, je me suis trompé de post. :)

    Code (Visual Basic):
    Sub Ferme_Et_Sauve_Juste_ce_Fichier()
    'Ferme excel si seul ce fichier est ouvert
    Dim w As Window
    For Each w In Windows
    If w.Caption = ThisWorkbook.Name Then GoTo suite
        'Workbooks(w.Caption).Close True
    suite:
    Next w
    ThisWorkbook.Save
    If Workbooks.Count = 1 Then  Application.EnableEvents = False: Application.Quit
    End Sub

    Sub Ferme_Tout_ET_Sauve()
    Dim w As Window
    For Each w In Windows
    If w.Caption = ThisWorkbook.Name Then GoTo suite
        Workbooks(w.Caption).Close True
    suite:
    Next w
    ThisWorkbook.Save
    Application.EnableEvents = False
    Application.Quit
    End Sub

    Sub Ferme_Tout_Rend_Visible_Et_Sauve()
    Dim w As Window
    For Each w In Windows
    If w.Visible = False Then w.Visible = True
    If w.Caption = ThisWorkbook.Name Then GoTo suite
        Workbooks(w.Caption).Close True
    suite:
    Next w
    ThisWorkbook.Save
    Application.EnableEvents = False
    Application.Quit
    End Sub

    Sub Ferme_Tout_Sans_Sauver()
    Dim w As Window
    For Each w In Windows
    If w.Caption = ThisWorkbook.Name Then GoTo suite
        Workbooks(w.Caption).Close False
    suite:
    Next w
    ThisWorkbook.Close 0
    End Sub
     
    Dernière édition: 8 Février 2019
    arthour973 aime votre message.
  5. MASSJIPE

    MASSJIPE XLDnaute Impliqué

    Inscrit depuis le :
    15 Février 2008
    Messages :
    525
    "J'aime" reçus :
    1
    Habite à:
    Lambres lez douai
    Utilise:
    Excel 2010 (PC)
    Bonjour Job75
    J'ai prit le code deux qui est instantané
    Merci
     
  6. MASSJIPE

    MASSJIPE XLDnaute Impliqué

    Inscrit depuis le :
    15 Février 2008
    Messages :
    525
    "J'aime" reçus :
    1
    Habite à:
    Lambres lez douai
    Utilise:
    Excel 2010 (PC)
    Bonjour Job
    Je revient sur le 2° code par contre il garde la ligne #N/A et voudrai qui supprime la ligne par contre pour le premier code il supprime les lignes mais c'est long plus de 5mn en fonction du Nb de ligne
    merci
     

Partager cette page