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.