Comment supprimer des crochets en saisie excel

xuonra Messages postés 1 Statut Membre -  
gbinforme Messages postés 14930 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

3 réponses

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
  2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
  3. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    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