Discussion :

[marsupilami34]

Bonjour à tous,

J'ai trouvé sur différent forum comment généré un QR Code et ca fonctionne plutot pas mal.
Voici le code que j'utilise

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
17
18
19
20
21
22
 
Sub setQR(Rg1 As String, qr As String)
'Updated by Extendoffice 2018/8/22
    Dim xSRg As Range
    Dim xRRg As Range
    Dim xObjOLE As OLEObject
    On Error Resume Next
    'Set xSRg = Range(Rg1)
    'Set xSRg = Application.InputBox("Please select the cell you will create QR code based on", "Kutools for Excel", , , , , , 8)
    'If xSRg Is Nothing Then Exit Sub
    'Set xRRg = Application.InputBox("Select a cell to place the QR code", "Kutools for Excel", , , , , , 8)
    'If xRRg Is Nothing Then Exit Sub
    Set xRRg = Range(Rg1)
    Application.ScreenUpdating = False
    Set xObjOLE = ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.1")
    xObjOLE.Object.Style = 11
    xObjOLE.Object.Value = qr
    ActiveSheet.Shapes.Item(xObjOLE.Name).Copy
    ActiveSheet.Paste xRRg
    xObjOLE.Delete
    Application.ScreenUpdating = True
End Sub

Jutilse cette fonction avec comme paramètre le range (variable Rg1) où je souhaite que mon QR code commence ainsi que le texte que contient mon QR Code (variable qr)

En fait, lorsqu'une cellule de l'excel change, ca appelle la fonction et met à jour mon qr code

Par contre au niveau de l'affichage ca fait un truc bizarre. Lorsque je me modifie successivement mes cellules le QR code se modifie mais ne remplace pas l'ancien. Et pire, il ne met pas par dessus mais en décallé (voir image ci dessous)


En plus de cela, je n'ai pas du tout accès au QR code pour le déplacer ou le supprimer

Sauriez vous résoudre mon problème ?

Par avance merci

Cdlt

Marsup