Bonjour,

pour un fichier de tracking, j'aurais besoin d'une commande pour exécuter automatiquement une série d'action.

Concrètement, j'ai un code barre que je scanne avec une douchette dans une cellule, mais je bosse sur un système anglais, et donc le "1" c'est une "&", le "2" un "é" etc. car la douchette ne fonctionne qu'avec un qwerty. Ne pouvant décemment pas bosser en QWERTY, je voudrais qu'une fois scanné, les caractères soient remplacés automatiquement, pour passer de "CD)àçà&)ààé_" à "CD-0901-0028" sans appuyer sur un bouton.

voilà mon code actuel, le pbl c qu'il plante à chaque utilisation et ça tourne en boucle :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
 
        If Target.Address = "$C$5" Then
            Cells(5, 3) = Replace(Cells(5, 3), "&", "1")
            Cells(5, 3) = Replace(Cells(5, 3), "é", "2")
            Cells(5, 3) = Replace(Cells(5, 3), """", "3")
            Cells(5, 3) = Replace(Cells(5, 3), "'", "4")
            Cells(5, 3) = Replace(Cells(5, 3), "(", "5")
            Cells(5, 3) = Replace(Cells(5, 3), "-", "6")
            Cells(5, 3) = Replace(Cells(5, 3), "è", "7")
            Cells(5, 3) = Replace(Cells(5, 3), "_", "8")
            Cells(5, 3) = Replace(Cells(5, 3), "ç", "9")
            Cells(5, 3) = Replace(Cells(5, 3), "à", "0")
            Cells(5, 3) = Replace(Cells(5, 3), ")", "-")
        End If
End Sub
Merci d'avance,
Phil....