Supprimer le dernier chiffre d'une zone de texte

bonsoir à tous et à toutes

J'ai récupérer un code vba pour rechercher une valeur sur feuil excel.

Sur une zone de texte je vais scanner un code barre de 13 chiffre, mais je veux afficher que 12.

c pour ça je veux ajouter une ligne d'un code pour supprimer le dernier chiffre droit.

j'ai essayer avec ce code ça n'a pas marché?!

MaChaine=Left(Chaine,len(Chaine)-1)

je veux l'insérer sur le code suivant:

Sub Rechercher()
Dim Sh As Worksheet
Dim c As Range
Dim Nom As String, firstAddress As String
Nom = InputBox("Nom à chercher dans toutes les feuilles", "Rechercher")
If Nom <> "" Then
    For i = 2 To 6
    Set Sh = Worksheets(i)
        Set c = Sh.Cells.Find(Nom, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            Sh.Activate
            c.Select
            firstAddress = c.Address
            Do
                MsgBox Sh.Name & "!" & c.Address
                Set c = Sh.Cells.FindNext(c)
                c.Select
            Loop While Not c Is Nothing And c.Address <> firstAddress
            Set c = Nothing
        End If
    Next i
End If
End Sub

Merci d'avance pour votre aide.

Bonjour,

As-tu essayé :

maChaine=Left(maChaine,12)

En espèrant que cela t'aide

Merci James007

sur quelle ligne je dois l'ajouter

Bonjour,

Impossible de te répondre ...

Je ne vois nulle part où tu utiliserais la variable maChaine ... !!!

Salut

Sur une zone de texte je vais scanner un code barre de 13 chiffre, mais je veux afficher que 12.

je veux ajouter un code vba même si j'ai 13 chiffre sur la zone de texte le code annule le de dernier chiffre puis exécuter la recherche.

voir fichier ci joint

Merci pour l'aide.

dreamsodfa a écrit :

Sur une zone de texte je vais scanner un code barre de 13 chiffre, mais je veux afficher que 12.

je veux ajouter un code vba même si j'ai 13 chiffre sur la zone de texte le code annule le de dernier chiffre puis exécuter la recherche.

ou est la zone de texte ?

est ce que c'est un TextBox sur un Userform ?

Bonjour i20100

Oui c'est un TextBox sur un Userform

merci

dreamsodfa a écrit :

Oui c'est un TextBox sur un Userform

à tester,

re,

en utilisant le scan tu pourrais enlever le bouton "Chercher" (et son code)

et utiliser la macro suivante

Private Sub TextBox1_Change()
Dim v As String
v = Left(Me.TextBox1, 12)
If v <> "" Then
    Call Rechercher(v)
End If
End Sub

Merci pour vous tous & toutes