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

[xtothej]

Bonjour,

Je souhaiterais supprimer toutes les parenthèses avec un nombre dedans correspondant à des ID. Sachant que tous les nombres sont différents, il y a t'il un moyen de pouvoir supprimer ou de remplacer par un caractère vide toutes ces parenthèses ?

Évidemment, j'ai des centaines de lignes, et je souhaiterais le faire automatiquement d'un seul coup.

Merci beaucoup pour votre aide.

 

[chris]

Bonjour

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

Sinon précise davantage le contexte

 

[sylvanu]

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

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

 

[sylvanu]

ou encore plus simple :

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

 

[chris]

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

 

[sylvanu]

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.

 

[chris]

Re

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

Il aura l’embarras du choix...

 

[sylvanu]

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.