Comment supprimer des crochets en saisie excel

xuonra Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   -
bonjour
j ai besoin de scanner des code-barre pour les utiliser sur un fichier excel avec recherche - V
le probleme lorsque je les scann a la douchette, apparait de chauqe coté des chiffres du gencod des crochets [ et ] comment pis je faire pour :
- soit qu il s n apparaisse pas
- soit pouvoir les supprimer en une seule fois (en effet j ai quelques milliers d articles a scanner !)
merci par avance
A voir également:

3 réponses

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour

soit pouvoir les supprimer en une seule fois
pas tout à fait, mais en deux fois
Edition/Remplacer
dans la fenêtre rechercher mettre [
dans la fenêtre remplacer par ne rien mettre
puis Remplacer tout
et
recommercer pour le crochet ]

Cdlmnt
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour

avec une fonction personnalisée
Function enleve_crochets(ByRef texto As String) As String
Dim reg As Object
Dim extraction As Object

Set reg = CreateObject("vbscript.regexp")
reg.Global = True
reg.Pattern = "([^][])"

Set extraction = reg.Execute(texto)
For Each digit In extraction
enleve_crochets = enleve_crochets & (digit.Value)
Next digit

Set extraction = Nothing
Set reg = Nothing
End Function

à placer dans une colonne à coté

si tu ne veux pas d'une colonne "à coté" fais signe
0
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Bonjour à tous,

Une autre solution, en laissant les crochets mais en modifiant la formule de recherche avec le code entre crochets en A1 :
=RECHERCHEV(SUBSTITUE(SUBSTITUE(A1;"[";"");"]";"");...


Dans ce cas la recherche du code se fait en alphabétique. si ton code est numérique tu modifies ainsi :
=RECHERCHEV(CNUM(SUBSTITUE(SUBSTITUE(A2;"[";"");"]";""));...
0