> Tous les forums > Forum Bureautique
 Supprimer entre croche [ggg] coches inclusesSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Gorfous
  Posté le 27/05/2016 @ 20:45 
Aller en bas de la page 
Petit astucien

Bonsoir chers amis,

Pouvez-vous m'indiquer comment, dans un texte, supprimer tout ce qui est entre croche, croches incluses, en rouge ci-dessous

Ex. : [poubelle]

Se trouve de façon aléatoire dans un texte.

En vous remerciant.



Modifié par Gorfous le 28/05/2016 11:09
Publicité
Gorfous
 Posté le 28/05/2016 à 07:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Je reviens vers vous avec cet exemple pour supprimer tout ce qui est en rouge

[C]Des sommets[G], le tor[D]rent descend[G],
Sur tout [C]son parcours[G], il ré[D]pand la fraîch[G]eur.
[C]Dans les pra[G]iries et [D]dans les val[G]lées,
La [C]source dé[G]borde, la ri[D]vière est i[G]ci.

c'est toujours ente [ et ] [] y compris

En vous remerciant par avance

Scapo
 Posté le 28/05/2016 à 09:09 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
ferrand
 Posté le 28/05/2016 à 09:27 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Tu colles la fonction personnalisée ci-dessous dans un module standard :

Function EPURERENTRE(tx As String, c1 As String, c2 As String)
Dim T, i%
Application.Volatile
T = Split(Replace(tx, c1, c2), c2)
For i = 1 To UBound(T) Step 2
T(i) = ""
Next i
EPURERENTRE = Replace(Join(T, c2), c2, "")
End Function

Dans ta feuille tu l'utilises comme toute autre fonction d'Excel. Tu tapes par exemple la formule suivante :

=EPURERENTRE(A1;"[";"]")

Si ton texte à épurer est en A1. Les arguments de la fonction sont : le texte à épurer, le premier caractère délimitant les parties à enlever, le second caractère délimitant les parties à enlever ; la fonction renvoie le texte après élimination des parties entre les deux caractères indiqués, caractères délimiteurs compris.

Cordialement.

gilbert_rgi
 Posté le 28/05/2016 à 10:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Sur quel logiciel travaillez vous ????

salutations

Gorfous a écrit :

Je reviens vers vous avec cet exemple pour supprimer tout ce qui est en rouge

[C]Des sommets[G], le tor[D]rent descend[G],
Sur tout [C]son parcours[G], il ré[D]pand la fraîch[G]eur.
[C]Dans les pra[G]iries et [D]dans les val[G]lées,
La [C]source dé[G]borde, la ri[D]vière est i[G]ci.

c'est toujours ente [ et ] [] y compris

En vous remerciant par avance



Modifié par gilbert_rgi le 28/05/2016 10:48
ferrand
 Posté le 28/05/2016 à 10:56 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Salut Gilbert

Le sujet étant entré dans la catégorie Excel, j'ai répondu en conséquence...

Cordialement.

caroll ingien
 Posté le 28/05/2016 à 11:01 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Le sujet étant entré dans la catégorie Excel,

Ah bon !!

bye

Gorfous
 Posté le 28/05/2016 à 11:10 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour à vous tous,

Désolé pour mon erreur, il s'agit de word et non d'excel,

Lui
 Posté le 28/05/2016 à 11:46 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

En attendant plus simple

Dans Word, copier le texte
Ouvrir excel le coller dans une cellule, faire Ctrl+h
Dans rechercher écrire [*]
Dans remplacer laisser vide
Cliquer sur remplacer tout

Copier le texte épuré et le coller dans Word, refaire la mise en forme si besoin


Publicité
Gabrilou
 Posté le 28/05/2016 à 16:18 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

  • Faire une copie de sécurité de ton document avant de faire des tests

  • Dans un premier temps, remplace tous les crochets par des dièses #

  • Copie la macro ci-dessous de la façon suivante :

  • Dans ton nouveau fichier Word, appuyer simultanément sur les touches Alt-F11

  • Colle la macro.

  • Exécute la macro

Sub crochets()
'
' crochets Macro
' Macro enregistrée le 24/02/2009 par MANESSE
'
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " "
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

----

Source : http://www.proz.com/forum/french/129656-manipulation_word_rechercher_remplacer.html



Modifié par Gabrilou le 28/05/2016 16:18
Gorfous
 Posté le 28/05/2016 à 21:56 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir, et tous mes remerciements à chacun chacune de vous pour votre intéressement à ma demande ainsi que pour les liens que vous avez proposés.

Après essai, j'ai retenu ce code dont je remercie l'auteur ici.

Sub supprimerEntreCrochets()

' Macro crochets enregistrée le 15/03/2009 par MANESSE

Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

With Selection.Find
.Text = "\[[!\[]@\]"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
End With

Selection.Find.Execute Replace:=wdReplaceAll
End Sub


Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
899,99 €PC portable 15.6 pouces Lenovo (Core i5, 8 Go de RAM, 512 Go SSD, GTX 1650 4 Go) à 899,99 €
Valable jusqu'au 08 Mai

Cdiscount fait une promotion sur le PC portable 15.6 pouces pouces Lenovo Ideapad 3 15ARH05 qui passe à 899,99 € alors qu'on le trouve ailleurs autour de 1100 €. Ce portable dispose d'un écran de 15.6 pouces FullHD (1920x1080), d'un processeur AMD Ryzen 7 4800H, de 16 Go de RAM, d'un SSD de 512 Go, d'une d'une carte graphique dédiée GeForce GTX 1650 TI 4 Go, du WiFi et du Bluetooth. L'ordinateur est livré sans OS. Vous pouvez installer Windows 10.


> Voir l'offre
219,99 €Asus Chromebook 11,6 pouces (Celeron N3350, 4 Go de RAM, SSD 32 Go , Chrome OS) à 219,99 €
Valable jusqu'au 07 Mai

Cdiscount fait une promotion sur l'ordinateur portable Asus Chromebook 11,6 pouces C223NA-GJ0010 qu'il propose à 219,99 € seulement alors qu'on le trouve ailleurs à partir de 309 €. Il possède un processeur Intel Celeron N3350, 4 Go de RAM, un écran HD (1366x768), 32 Go de stockage SSD eMMC (extensible par USB) et ne pèse qu'1 kg. Cet ordinateur portable fonctionne sous Chrome OS conçu spécifiquement pour l'usage du Web et de ses applications. Notez que vous pouvez facilement remplacer ChromeOS par Linux


> Voir l'offre
75,99 €Boîtier Fractal Design Define Mini C à 75,99 €
Valable jusqu'au 10 Mai

RueDuCommerce propose actuellement l'excellent boîter moyen tour Fractal Design Define Mini C à 75,99 € alors qu'on le trouve ailleurs à plus de 99 €. Le boitier PC Define Mini C est une plateforme conçue pour délivrer la l'une des meilleures performances de refroidissement et de silence.


> Voir l'offre

Sujets relatifs
word: supprimer les espaces entre les pages
[Liens entre classeurs XL]
Graphique automatique entre 2 cellules prédéfinies
Supprimer photos sur tablette
EML impossible a renommer/supprimer
Supprimer les bulles dans un texte
Supprimer des décimales avec Libre Office Calc
macro supprimer des lignes ne contenant pas un critère
Supprimer le 1er mot dans une liste
Supprimer une liaison
Plus de sujets relatifs à Supprimer entre croche [ggg] coches incluses
 > Tous les forums > Forum Bureautique