Microsoft 365 Supprimer tous les ID entre () de nombreuses cases

chris

XLDnaute Barbatruc

• 12 Juin 2020

• #2

Bonjour

Manuellement par cherche et remplace : une fois (
puis une fois )
et prendre remplacer tout à chaque fois

Sinon précise davantage le contexte

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Juin 2020

• #3

Bonjour Xtothej, Chris,
Un essai en PJ avec cette petite macro à adapter à votre fichier :

VB:

Sub Nettoie()
N = Application.CountIf(Range("A:A"), "*")
For L = 2 To N + 1
    Tablo = Split(Cells(L, 1), "(")
    Cells(L, 1) = Tablo(0)
Next L
End Sub

 

Pièces jointes

• Exemples.xlsm

  18.1 KB · Affichages: 6

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Juin 2020

• #4

ou encore plus simple :

VB:

Sub Nettoie()
For Each c In Range("A2:A21")
    c.Value = Split(c.Value, "(")
Next
End Sub

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 12 Juin 2020

• #5

Re à tous

On n'a pas compris la même chose

Si on veut supprimer tous les ID entre ( )

Cherche et remplace (*) par rien sur a colonne marche très bien en 2 secondes chrono, lol

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Juin 2020

• #6

Oups, j'ai compris supprimer les () avec ce qu'il y a dedans.
Supprimer ( et ) ne m'a même pas traversé l'esprit, c'est quand même le b-a-ba.
Bof, pas grave, il y a votre solution.😉

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 13 Juin 2020

• #7

Re

On ne sait pas et comme le demandeur n'est pas revenu...

Il aura l’embarras du choix...

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Juin 2020

• #8

Bonjour Chris,
Ca arrive.
J'ai compris où était mon erreur, c'était dans le titre "Supprimer tous les ID entre () "
Dans trajet (409160366) l'ID est 409160366, et je l'ai supprimé.
C'est toujours dommage de ne pas avoir la réponse. Ainsi va la vie.

 

Vote positif 0 Vote négatif