macro de suppression de texte

[_papa]

Bonjour,
Petit problème technique que je suis incapable de surmonter. Les plus pointus d'entre vous sauront peut-être me répondre.

Dans une colonne, je possède les données ci-dessous :
A540*(1)
A721*(11)
A741*(10)
A751*(2)
CITY*(12)
CROSSLINE*(12)
MINIVAN*(1)
ROADLINE*(7)
SCOOTY*(1)

Je cherche à supprimer systématiquement les parenthèses ainsi que les valeurs qui s'y trouvent à l'intérieur.
Comment dois-je procéder pour cela sans avoir à le faire manuellement pour chaque ligne ?

Merci d'avance
Cordialement

 

[gimli]

Re : macro de suppression de texte

Bonjour,

j'espère avoir bien compris ta requète, si c'est le cas essaye ceci :

Function RetirerParenthèsesEtContenu()
RowCount = Cells(Cells.Rows.Count, "NomColonne").End(xlUp).Row
For r = RowCount To 2 Step -1
Range("NomColonne" & r).Select
verif = ActiveCell.Value
verif1 = Left(verif, 1)
If verif1 = "(" Then
Rows(r).Delete 'EDIT: cette ligne de code fera supprimer la ligne, ce n'est pas ce que tu veux, il faudra la modifier.
End If
Next r

End Function

je ne suis pas sûr, mais tu peux essayer 😱

 

[Dull]

Re : macro de suppression de texte

Salut _papa, le Forum

Par Formule

=GAUCHE(A1;TROUVE("*";A1;1)-1)

A incrémenter vers le Bas

EDITION: Re Gimli

Bonne Journée

 

[_papa]

Re : macro de suppression de texte

Merci de votre réponse mais lorsque je vais dans "fonction", il n'y en a aucune qui s'appelle "retirer".

 

[Habitude]

Re : macro de suppression de texte

Tu sélectionne ta colonne

Données
Convertir
Délimité
Dans séparateur tu tappe Autres et tu met *

 

[_papa]

Re : macro de suppression de texte

Salut _papa, le Forum

Par Formule

=GAUCHE(A1;TROUVE("*";A1;1)-1)

A incrémenter vers le Bas

EDITION: Re Gimli

Bonne Journée

Merci, mais dans quelle cellule dois-je saisir cette formule ?

 

[gimli]

Re : macro de suppression de texte

Re, (décidément Dull on se croise souvent ^^)

c'est normal que tu ne la vois pas puisque ce n'est pas une fonction "intégrée" à Excel, c'est une fonction que tu crées toi-même 😉
mais comme je l'ai précisé je ne pense pas qu'elle réponde à tes attentes, du moins pas complêtement .

 

[Dull]

Re : macro de suppression de texte

Re le Fil, Salut Habitude

J'ai remis le Fichier pour plus de compréhension ICI

Bonne Journée

 

[_papa]

Re : macro de suppression de texte

Tu sélectionne ta colonne

Données
Convertir
Délimité
Dans séparateur tu tappe Autres et tu met *

J'ai essayé cette technique, mais je n'ai pas de fenêtre "séparateur" dans données/convertir/délimité.
(je suis sur Excel 2007)

 

[_papa]

Re : macro de suppression de texte

Re, (décidément Dull on se croise souvent ^^)

c'est normal que tu ne la vois pas puisque ce n'est pas une fonction "intégrée" à Excel, c'est une fonction que tu crées toi-même 😉
mais comme je l'ai précisé je ne pense pas qu'elle réponde à tes attentes, du moins pas complêtement .

D'accord, mais dans ce cas, si je la crée moi-même, où dois-je la saisir ?
Comment fait-on pour créer une fonction ?

 

[gimli]

Re : macro de suppression de texte

Tout d'abord tu fais ALT+F11, tu arriveras dans la page de code. Ensuite, si tu veux que ce que tu souhaite supprimer soit supprimé dès l'ouverture du fichier, tu place le code de ta fonction dans ThisWorkbook (sur la gauche dans le menu code 😉 ). ensuite sauvegarde , quitte et relance ton fichier, ou alors fais un déboguage 🙂

 

[Dull]

Re : macro de suppression de texte

Re le Fil

Regardes le Fichier Ici

Bonne Journée

 

[_papa]

Re : macro de suppression de texte

Re le Fil

Regardes le Fichier Ici

Bonne Journée

Merci de votre aide et du fichier, mais ça ne fonctionne toujours pas.
Comme vous le voyez sur le fichier en pj, j'ai bien reporter votre formule sur les cellules inférieures mais j'ai un message d'erreur.

 

[Dull]

Re : macro de suppression de texte

Re le Fil

Remplace la Formule en B1 par Celle-ci et incrémente vers le Bas

=GAUCHE(A1;TROUVE("(";A1;1)-2)

Bonne Journée

 

[_papa]

Re : macro de suppression de texte

Re le Fil

Remplace la Formule en B1 par Celle-ci et incrémente vers le Bas

=GAUCHE(A1;TROUVE("(";A1;1)-2)

Bonne Journée

Cette fois, oui, ça fonctionne. Merci Dull.
Bonne soirée