Comment générer des codes QR dans Excel étape par étape (sans programmes externes)

Avez-vous besoin de générer Codes QR directement depuis Excel Et vous ne savez pas par où commencer ? Pas d'inquiétude, créer ces codes est plus simple qu'il n'y paraît, et vous pouvez le faire sans installer de programmes externes ni vous compliquer la vie. Il existe plusieurs façons d'y parvenir, des fonctions personnalisées aux macros et aux modules complémentaires.

Dans cet article, nous expliquons Comment générer des codes QR dans Excel étape par étape, avec des instructions simples applicables à toute version moderne d'Excel. Si vous préférez automatiser des tâches ou simplement gagner du temps, ce tutoriel est fait pour vous.

Qu'est-ce qu'un code QR et à quoi sert-il dans Excel ?

Les Codes QR Ce sont des représentations graphiques permettant de stocker des données telles que du texte, des liens, des chiffres, des e-mails, etc. Une fois numérisées avec un téléphone portable, leur contenu s'affiche automatiquement. Leur intégration dans Excel permet de partager rapidement des informations telles que des liens vers des documents, des formulaires, des fiches clients, des contacts ou toute autre donnée pertinente.

Méthode 1 : Créer des codes QR avec une fonction personnalisée dans VBA

La première option consiste à utiliser une fonction personnalisée écrite en VBA. Facile à implémenter, elle permet de générer des codes QR directement à partir d'une cellule.

Tout d’abord, activez l’onglet Développeur

1. Faites un clic droit sur le ruban et sélectionnez «Personnaliser le ruban ».
2. Cochez la case "Programmeur" Ou "promoteur ».
3. Haz clic en Accepter.

Ensuite, créez la fonction personnalisée

1. Dans l'onglet Développeur, ouvrez Visual Basic.
2. Insérez un nouveau module.
3. Collez le code suivant :

Function CrearQR(texto As String, tamano As Integer) As Variant
    Dim url As String
    Dim celda As Range
    Dim nombreImagen As String
    Dim img As Shape

    On Error GoTo ErrorHandler

    If Trim(texto) = "" Then
        CrearQR = CVErr(xlErrValue)
        Exit Function
    End If

    Set celda = Application.Caller.Cells(1, 1)
    nombreImagen = "QR_" & celda.Address(False, False)

    On Error Resume Next
    celda.Worksheet.Shapes(nombreImagen).Delete
    On Error GoTo 0

    url = "https://api.qrserver.com/v1/create-qr-code/?size=" & tamano & "x" & tamano & "&data=" & WorksheetFunction.EncodeURL(texto)

    With celda.Worksheet.Pictures.Insert(url)
        .ShapeRange.LockAspectRatio = msoFalse
        .Height = tamano
        .Width = tamano
        .Top = celda.Top
        .Left = celda.Left
        .Name = nombreImagen
    End With

    CrearQR = "QR generado"
    Exit Function

ErrorHandler:
    CrearQR = CVErr(xlErrValue)
End Function

Comment utiliser la fonction dans Excel

1. Dans n'importe quelle cellule, écrivez : =CrearQR(A1;150) pour générer le QR en fonction du contenu de la cellule A1.
2. Cliquez Entrer et vous verrez votre QR code apparaître sur la feuille.
3. Vous pouvez faire glisser cette formule vers le bas ou sur le côté pour la dupliquer dans d'autres cellules.

Supprimer les codes QR générés

1. Aller à Accueil > Rechercher et sélectionner > Accéder à Spécial.
2. sélectionner Objets.
3. Cliquez Supprimer pour supprimer tous les codes QR insérés visuellement.

Méthode 2 : utiliser une macro pour générer plusieurs codes QR

Si vous préférez automatiser davantage, vous pouvez utiliser une macro qui s'applique en masse à une plage de cellules. C'est idéal si vous avez une longue liste et souhaitez convertir rapidement la colonne entière en codes QR.

Insérer cette macro dans un module

Sub GenerarQrCode(rango As Range, tamaño As Integer)
    Dim urlQR As String, celda As Range, textoCodigo As String
    Dim img As Picture
    Dim nombreQR As String

    For Each celda In rango
        textoCodigo = Trim(celda.Value)
        If textoCodigo <> "" Then
            urlQR = "https://api.qrserver.com/v1/create-qr-code/?size=" & tamaño & "x" & tamaño & "&data=" & WorksheetFunction.EncodeURL(textoCodigo)
            nombreQR = "QR_" & celda.Address(False, False)
            On Error Resume Next
            celda.Worksheet.Pictures(nombreQR).Delete
            On Error GoTo 0
            Set img = celda.Worksheet.Pictures.Insert(urlQR)
            With img
                .ShapeRange.LockAspectRatio = msoFalse
                .Name = nombreQR
                .Left = celda.Left + 2
                .Top = celda.Top + 2
                .Height = tamaño
                .Width = tamaño
            End With
        End If
    Next celda
End Sub

Sub EjecutarGenerarQrCode()
    Dim rango As Range
    Set rango = Selection
    Dim tamaño As Variant
    tamaño = InputBox("Por favor, introduce el tamaño del código QR (ej. 150):", "Tamaño del código QR", 150)
    If Not IsNumeric(tamaño) Or tamaño <= 0 Then
        MsgBox "Tamaño inválido. Por favor ingresa un número mayor que cero.", vbExclamation
        Exit Sub
    End If
    GenerarQrCode rango, CInt(tamaño)
End Sub

Pour utiliser la macro

1. Sélectionnez la plage de cellules contenant le texte ou les liens.
2. Exécutez la macro «Exécuter GenerateQrCode ».
3. Saisissez la taille souhaitée pour les codes QR (par exemple 150).

Important: Enregistrez le fichier sous .xlsm pour que les macros fonctionnent correctement.

Méthode 3 : utiliser les modules complémentaires Excel officiels

Si vous n'êtes pas un adepte du code ou des macros, pas d'inquiétude. Vous pouvez également opter pour une solution beaucoup plus simple : utiliser un module complémentaire externe pour Excel.

Étapes pour installer le plugin

1. Depuis Excel, accédez à Insérer > Compléments > Obtenir des compléments.
2. Tapez « QR » dans le moteur de recherche et sélectionnez-en un avec une bonne note (recommandé : icône rouge).
3. Haz clic en ajouter et alors Continuer.

Générer un QR avec le plugin

1. Sélectionnez les cellules qui contiennent les données à convertir.
2. Ouvrez le plugin et définissez la taille du code QR souhaitée (par exemple, 100 × 100 px).
3. Cliquez Générer.

Cette méthode est idéale si vous ne voulez pas jouer avec le code ou si vous travaillez dans des environnements professionnels où les macros sont bloquées.

Pourquoi utiliser des codes QR dans Excel ?

• Automatisation des processus : Scannez et accédez directement aux informations sans copier/coller de liens.
• Facilité de partage des données : des dossiers des employés aux liens vers des tableaux de bord ou des formulaires en ligne.
• Compatible avec les appareils mobiles : toute smartphone vous pouvez scanner le code et accéder au contenu.

Il existe de nombreuses façons de créer des codes QR dans Excel, adaptées à différents styles de travail. Que vous utilisiez du code VBA, des macros en masse ou des compléments visuels, vous trouverez toujours une solution accessible. Toutes les solutions présentées sont gratuites, efficaces et compatibles avec les versions récentes d'Excel. Un peu de pratique suffit donc pour maîtriser cet outil, de plus en plus utile dans les bureaux, les écoles, la logistique et bien d'autres secteurs.