XL 2010 [RESOLU] Supprimer nombre de caractères variable d'une chaine

cp4 · 20 Octobre 2021

Bonjour,

Un peu perdu, je fais appel à votre aide.
Je voudrai parcourir par exemple la colonne A pour supprimer les signes > et < et ce qui s'y trouve entre les 2 signes.
exemple:
INITIAL------------------------------------------------------------ESCOMPTE
1. What is an array<#L_1>--------------------------------------> 1. What is an array
5.3.4 Declare the content<#L5.3.4> ---------------------------> 5.3.4 Declare the content

J'ai commencé ainsi mon code mais je bloque à cause du nombre variable de caractères à supprimer.

VB:

Sub supprimer_finChaine()
    With ActiveSheet
        For i = 1 To .UsedRange.Rows.Count
         .Cells(i,1)=?
        Next i
    End With
End Sub

Avec mes remerciements anticipés.

laurent950 · 20 Octobre 2021

Bonjour @cp4

VB:

Sub supprimer_finChaine()
    With ActiveSheet
        For i = 1 To .UsedRange.Rows.Count
            .Cells(i, 1) = Split(.Cells(i, 1), "<")(0)
        Next i
    End With
End Sub

JHA · 20 Octobre 2021

Bonjour à tous,

La fonction gauche ne suffit pas?

VB:

=GAUCHE(A1;CHERCHE("<";A1)-1)

JHA

cp4 · 20 Octobre 2021

JHA à dit:
Bonjour à tous,

La fonction gauche ne suffit pas?

VB:

=GAUCHE(A1;CHERCHE("<";A1)-1)

JHA

Bonjour JHA,

Merci beaucoup pour la formule. C'est déjà un bon début pour moi.
En fait, j'aurais préféré un code vba.

En tout cas encore merci.

edit: J'ai trouvé une solution

VB:

Sub supprimer_finChaine()
    With ActiveSheet
        For i = 9 To .UsedRange.Rows.Count
If .Cells(i, 1) <> "" And InStr(.Cells(i, 1), "<") <> 0 Then .Cells(i, 9) = Left(.Cells(i, 1), InStr(.Cells(i, 1), "<") - 1)
        Next i
    End With
    MsgBox "terminé!"
End Sub

laurent950 · 20 Octobre 2021

Bonjour @cp4

VB:

Sub supprimer_finChaine()
    With ActiveSheet
        For i = 1 To .UsedRange.Rows.Count
            .Cells(i, 1) = Split(.Cells(i, 1), "<")(0)
        Next i
    End With
End Sub

cp4 · 20 Octobre 2021

laurent950 à dit:

Bonjour @cp4

VB:

Sub supprimer_finChaine()
    With ActiveSheet
        For i = 1 To .UsedRange.Rows.Count
            .Cells(i, 1) = Split(.Cells(i, 1), "<")(0)
        Next i
    End With
End Sub

Bonsoir Laurent950,

Content de te croiser. Je connais la fonction split mais je t'avoue que je ne me doutais pas que ça ferait l'affaire.
Merci infiniment. J'ai apporté une modification car il y des cellules vides.

VB:

Sub supprimer_finChaine()
    With ActiveSheet
        For i = 1 To .UsedRange.Rows.Count
            If .Cells(i, 1) <> "" Then .Cells(i, 1) = Split(.Cells(i, 1), "<")(0)
        Next i
    End With
End Sub

Toute ma gratitude.

Bonne soirée.

laurent950 · 20 Octobre 2021

Bonsoir @cp4

Content aussi de vous croiser ici, l'astuce c'est que cela transforme en Tableau un split.

Vous pouvez regarder cela @cp4 c'est intéressant
Poste #3

XL 2016 - VBA Supprimer/Extraire/Séparer des valeurs avant/après caractères spéciaux

Bonjour, Je cherche une macro VBA pour Supprimer dans une colonne les caractères avant un caractère spécial et après un autre. Le résultat pour ce faire dans la colonne directement ou dans la colonne suivante. Exemple : XXX_YYY - Exemple A Solution YYY Merci, Martin

www.excel-downloads.com

Laurent

job75 · 21 Octobre 2021

Bonjour cp4, le forum,

Avec Replace c'est plus simple et plus rapide :

VB:

Sub Sup()
ActiveSheet.UsedRange.Columns(1).Replace "<*", "", xlPart
End Sub

Testé sur 100 000 cellules, chez moi sur Excel 2019 :

- macro du post #4 => 3,8 secondes

- cette macro => 1,3 seconde.

A+

job75 · 21 Octobre 2021

Cela dit avec un tableau VBA c'est toujours plus rapide :

VB:

Sub Sup()
Dim tablo, i&, x$
With ActiveSheet.UsedRange.Columns(1)
    tablo = .Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
    For i = 1 To UBound(tablo)
        x = tablo(i, 1) & "<"
        tablo(i, 1) = Left(x, InStr(x, "<") - 1)
    Next
    .Value = tablo
End With
End Sub

=> 0,17 seconde sur 100 000 cellules.

cp4 · 21 Octobre 2021

job75 à dit:
Bonjour cp4, le forum,

Avec Replace c'est plus simple et plus rapide :

VB:

Sub Sup() ActiveSheet.UsedRange.Columns(1).Replace "<*", "", xlPart End Sub

Testé sur 100 000 cellules, chez moi sur Excel 2019 :

- macro du post #4 => 3,8 secondes

- cette macro => 1,3 seconde.

A+

Bonjour Job75,

Très efficace ton code. Fonctionne parfaitement bien et rapide.

Merci beaucoup.

cp4 · 21 Octobre 2021

job75 à dit:
Cela dit avec un tableau VBA c'est toujours plus rapide :

VB:

Sub Sup() Dim tablo, i&, x$ With ActiveSheet.UsedRange.Columns(1) tablo = .Resize(, 2) 'matrice, plus rapide, au moins 2 éléments For i = 1 To UBound(tablo) x = tablo(i, 1) & "<" tablo(i, 1) = Left(x, InStr(x, "<") - 1) Next .Value = tablo End With End Sub

=> 0,17 seconde sur 100 000 cellules.

Rebonjour,

Merci beaucoup. Le code plante car il y a des cellules vides. Mais en adaptant le code, je sais que ton code sera aussi efficace que le précédent.
En fait j'ai enregistré une page web (tuto Array) au format txt que j'ai ensuite ouvert avec Excel. D'où le présence des cellules vides.

En tout merci beaucoup. Tes codes sont au top.

Bonne journée

job75 · 21 Octobre 2021

cp4 à dit:
Merci beaucoup. Le code plante car il y a des cellules vides.

Non pas d'accord car j'utilise x = tablo(i, 1) & "<" qui va bien sur toute cellule, vide ou non vide.

Sauf bien sûr celles qui contiennent une valeur d'erreur, ce sont celles-là qui font planter.

cp4 · 21 Octobre 2021

job75 à dit:
Non pas d'accord car j'utilise x = tablo(i, 1) & "<" qui va bien sur toute cellule, vide ou non vide.

Sauf bien sûr celles qui contiennent une valeur d'erreur, ce sont celles-là qui font planter.

Bonsoir Job75,

, confus. En effet, tu as raison le code ne plante pas sur les cellules vides.
Il y avait en fait dans une cellule une formule avec #NOM.
Désolé, pour ma réponse tardive et ma précipitation dans la conclusion.

1000 Mercis.

XL 2010 [RESOLU] Supprimer nombre de caractères variable d'une chaine

cp4

XLDnaute Barbatruc

laurent950

JHA

XLDnaute Barbatruc

Pièces jointes

cp4

XLDnaute Barbatruc

laurent950

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

laurent950

XLDnaute Barbatruc

XL 2016 - VBA Supprimer/Extraire/Séparer des valeurs avant/après caractères spéciaux

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Discussions similaires