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.

sup mot répéter

Discussion dans 'Forum Excel' démarrée par maval, 10 Janvier 2019.

  1. maval

    maval XLDnaute Barbatruc

    Inscrit depuis le :
    11 Mai 2012
    Messages :
    2073
    "J'aime" reçus :
    6
    Bonjour

    J'ai un code pour supprimer mot class="st11" mon problème et que je veut changer tous les mots qui ont
    Class="01", Class="12", Class="13", ect....

    Mon code:
    Code (Text):
    Sub SupprimerMot()
    Dim Cel As Range, Plage As Range
    Dim Mot As String
        Set Plage = Range("i5:i200") ' à adapter à la plage à parcourir.
        Mot = "class=""st12" 'adapter au mot à rechercher et à supprimer
        'Pas nécessaire si le plage est petite
        Application.ScreenUpdating = False
        For Each Cel In Plage
            If Cel Like "*" & Mot & "*" Then
                Cel = Replace(Cel, Mot, "")
                'Pour enlever le double espace qui en résulte..
                Cel = Replace(Cel, "  ", " ")
            End If
        Next Cel
        Application.ScreenUpdating = True
    End Sub
    Je vous remercie

    Max
     
  2. Chargement...

    Discussions similaires - sup mot répéter Forum Date
    suppression de plusieurs lignes contenant un même mot Forum Excel 7 Janvier 2019
    Suite fil "RECHERCHE MOTS CLES" : Fonction de Dranreb (supprimer redondance) Forum Excel 27 Octobre 2018
    XL 2016 Comment supprimer toutes les lignes contenant au moins un des mots Forum Excel 12 Décembre 2017
    XL 2007 [ Résolu ] Décaler une ligne. ,et supprimer le mot #VALEUR! Forum Excel 14 Novembre 2017
    XL 2016 Comment supprimer des mots en double à l'intérieur d'une cellule en masse Forum Excel 15 Octobre 2017

  3. vgendron

    vgendron XLDnaute Barbatruc

    Inscrit depuis le :
    24 Février 2009
    Messages :
    5051
    "J'aime" reçus :
    515
    Utilise:
    Excel 2007 (PC)
    Hello
    Suffit d'adapter un peu ton code... depuis le temps.. tu devrais savoir quand meme.. non?
    et toujours pas de fichier exemple...

    Code (Visual Basic):

    Sub SupprimerMot()
    Dim Cel As Range, Plage As Range
    Dim listeMot(1 To 4, 1 To 1) As Variant 'on définit le tablo de 4 liges
    'Dim listeMot() As Variant 'on laisse la taille NON définie si on va chercher la liste dans une feuille
    Application.ScreenUpdating = False
    'définir la liste des Mots à supprimer
    'ou par lecture d'une zone spécifique dans le fichier?
    listeMot(1, 1) = "class=""st12"
    listeMot(2, 1) = "class=""st13"
    listeMot(3, 1) = "class=""st14"
    listeMot(4, 1) = "class=""st01"
    ''si on va chercher dans une feuille : ex feuille 2 dans la colonne A
    'With Sheets("Feuil2")
    '    fin = .Range("A" & .Rows.Count).End(xlUp).Row
    '    listeMot = .Range("A1:A" & fin).Value
    'End With
    Set Plage = Range("i5:i200") ' à adapter à la plage à parcourir.
    For i = LBound(listeMot, 1) To UBound(listeMot, 1) 'pour chaque mot de la liste
       
        Mot = listeMot(i, 1) 'adapter au mot à rechercher et à supprimer
       
        For Each Cel In Plage
            If Cel Like "*" & Mot & "*" Then
                Cel = Replace(Cel, Mot, "")
                'Pour enlever le double espace qui en résulte..
                Cel = Replace(Cel, "  ", " ")
            End If
        Next Cel
    Next i
        Application.ScreenUpdating = True
    End Sub
     
     
  4. maval

    maval XLDnaute Barbatruc

    Inscrit depuis le :
    11 Mai 2012
    Messages :
    2073
    "J'aime" reçus :
    6
    Bonjour vgendron,

    Je te remercie

    Max
     

Partager cette page