Autres Creer des QR code

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

lyn.daline

XLDnaute Nouveau
Bonjour;
J'ai un souci pour crée des QRcode pour une liste d'employer
j'ai plusieurs colonne tel que le nom ,prénom, fonction, téléphone, adresse, email j'aimerais bien que la dernière colonne c'est pour générer le QR code de toute les colonnes.
merci .
 

Pièces jointes

Trier par date Trier par votes
Bonjour et bienvenue sur le forum,

Avez-vous fait une recherche sur le forum ? Il fourmille de ce genre de question . En haut à droite vous avez un bouton 'Recherche', cliquez dessus, puis mettez les mots clefs QR Code, validez le formulaire de recherche.
Vous verrez il y aura plein de discussion sur le sujet.

En bas de la fenêtre de votre discussion, il y a une section 'Discussion similaires', fouillez là si le bouton 'Rechercher' ne vous convient pas.

Lisez puis essayez quelque chose. En cas de difficulté particulière, revenez avec une question précise -et le début de vos travaux AVEC quelques lignes de données anonymisées !

cordialement
 
Dernière édition:
Vote positif 0 Vote négatif
Roblochon à dit:
Bonjour et bienvenue sur le forum,

Avez-vous fait une recherche sur le forum ? Il fourmille de ce genre de question . En haut à droite vous avez un bouton 'Recherche', cliquez dessus, puis mettez les mots clefs QR Code, validez le formulaire de recherche.
Vous verrez il y aura plein de discussion sur le sujet.

En bas de la fenêtre de votre discussion, il y a une section 'Discussion similaires', fouillez là si le bouton 'Rechercher' ne vous convient pas.

Lisez puis essayez quelque chose. En cas de difficulté particulière, revenez avec une question précise -et le début de vos travaux AVEC quelques lignes de données anonymisées !

cordialement
Cliquez pour agrandir...
merci pour votre réponse;
oui évidemment j'ai fais des recherches sur le forum ; et d'après mes recherches la plus part des réponses sont basées sur la génération de qr code par cellule et moi je veux que ca soit pour tte la ligne (plusieurs colonnes a la fois).
merci;
 
Vote positif 0 Vote négatif
Roblochon; merci beaucoup ça marche très bien ;est ce qu'il ya une possibilité d'enregistrer le contact directement sur le téléphone ; parceque en utilisant le QR code reader il me donne la main juste pour copier mais pas enregistrer le contact tel qu'il est. (je sais pas si vous me comprenez )
 
Vote positif 0 Vote négatif
Bonjour le fil,

[aparté à tendance égotique]
Roblochon à dit:
Bonjour,



Pas bien, non. De toute façon, habitant une zone dite 'blanche' je ne reçois pas les réseaux mobiles et n'ai donc rien pour faire des tests en ce sens.

Cordialement
Cliquez pour agrandir...
C'est une zone plus blanche que blanche (comme disait Michel C.)
Tellement, que vous ne voyez pas quand on vous claque la bise (j'avais un masque homologué)
(voir mon précédent message)
😉
 
Vote positif 0 Vote négatif
Staple1600 à dit:
Bonjour le fil,

[aparté à tendance égotique]

C'est une zone plus blanche que blanche (comme disait Michel C.)
Tellement, que vous ne voyez pas quand on vous claque la bise (j'avais un masque homologué)
(voir mon précédent message)
😉
Cliquez pour agrandir...
Retour de bise après retour de claque l'ami !😀 Désolé d'avoir oublié ! Plus blanche que la zone, ma caboche !
 
Vote positif 0 Vote négatif
Bonjour
Suite à vos discussions j'aurais deux petites questions

J'utilise le QR code de google pour récupérer des données sur le site Pdif zen presse. Le QR code fonctionne très bien et je peux le lire par le biais de codex QR code pour windows 10. Ma question est la suivante Il y a t-il un moyen de récupérer de la data via QR code codex et de faire un transfert via Excel?
Ma deuxième question sur le même site on peut télécharger des fichiers XML. Le problème lorsque le téléchargement est terminé les virgules des données nombres contenus dans le fichier XML sont supprimées. Par exemple 10,23 devient 1023
Si une personne pouvait m'aider
Un grand merci
 
Vote positif 0 Vote négatif
Bonjour,
Mieux vaut tard que jamais !
est ce qu'il ya une possibilité d'enregistrer le contact directement sur le téléphone
Cliquez pour agrandir...
Pour ajouter directement le contact sur le téléphone les données doivent être formatées en VCard!

Modification du code de Roblochon
VB: 
Option Explicit
 
Public sQR As String '--- pour conserver valeur code avant sa modification

Sub QR_LigneActive()
   QRCODE ActiveCell.Row
End Sub

Sub QRCODE(kr As Long)
    Dim T As Variant, oldCell As Range
    Dim sID As String, sLink As String, sPict As Object
    
    ' retenir la cellule active avant changement
    Set oldCell = ActiveCell
    
    With ActiveSheet
        ' S'il y a moins de 5 valeur alors on sort
        If Application.CountA(.Cells(kr, 1).Resize(, 5)) < 5 Then Exit Sub
        '
        ' Tableau des valeurs
        T = Application.Transpose(Application.Transpose(.Cells(kr, 1).Resize(, 5).Value))
        '
        ' Concatener les valeur avec un point-virgule
        sID = Join(T, ";")      '--- 2 = colonne où se trouve le texte à traiter
        '
        ' la ligne suivante ne devrait plus servir
        If sID = "" Or sID = ";;;;" Then Exit Sub    '=== EXIT SUB ===
        sID = VCard
        sID = Replace(sID, "[Nom]", .Cells(kr, "A").Text)
        sID = Replace(sID, "[Prenom]", .Cells(kr, "B").Text)
        sID = Replace(sID, "[Fonction]", .Cells(kr, "C").Text)
        sID = Replace(sID, "[Mobile]", .Cells(kr, "D").Text)
        sID = Replace(sID, "[email]", .Cells(kr, "E").Text)
        '
        ' Supprimer le QR_code s'il existe déjà
            SupprimerQR "QR_" & .Cells(kr, 1) & "_" & .Cells(kr, 2)
      
        sLink = "https://chart.googleapis.com/chart?chs=300x300&cht=qr&chl=" & AssainirURL(sID)
        Debug.Print sLink
        .Cells(kr, 6).Activate
        Set sPict = .Pictures.Insert(sLink)
        With sPict
            .Name = "QR_" & Cells(kr, 1) & "_" & Cells(kr, 2)
            '--- change la taille
            .Width = 60
            .Height = 60
            '--- change la position
            .Left = Cells(kr, "F").Left + 30
            .Top = Cells(kr, "F").Top
            '--- pour info
            Debug.Print .Name & " ajouté", , .Left, .Top
        End With
        oldCell.Activate
        .Cells(kr, 1).RowHeight = 66
        Set sPict = Nothing
    End With
End Sub
Function VCard() As String
VCard = "BEGIN:VCARD" & vbCrLf & _
"VERSION:4.0" & vbCrLf & _
"FN:[Prenom] [Nom]" & vbCrLf & _
"N:[Nom];[Prenom]" & vbCrLf & _
"ROLE:[Fonction]" & vbCrLf & _
"TEL;CELL:[Mobile]" & vbCrLf & _
"EMAIL;INTERNET:[email]" & vbCrLf & _
"UID:" & vbCrLf & _
"END:VCARD"
 End Function
 
Sub ListerShapes()
   Dim shape As Excel.shape
   For Each shape In ActiveSheet.Shapes
      Debug.Print shape.ID, shape.Name
   Next
End Sub
 
Sub SupprimerQR(sCode As String)
   '--- supprime image ayant le même nom,
   '--- mais ne supprime pas image qui se trouverait à la même place avec un autre nom
   '--- chose qui se produit lorsque l'on change le texte du code dans la cellule
   '--- => utiliser Worksheet_SelectionChange() pour détecter le code avant modification
   Dim shape As Excel.shape
   For Each shape In ActiveSheet.Shapes
      If shape.Name = sCode Then
         Debug.Print sCode & " supprimé ID:"; shape.ID
         shape.Delete
      End If
   Next
End Sub
Function AssainirURL(MonURL As String)
'par Excel-Malin.com ( https://excel-malin.com )

On Error GoTo FonctionErreur

Dim URLtemporaire As String

URLtemporaire = MonURL
URLtemporaire = Replace(URLtemporaire, "%", "%25")
URLtemporaire = Replace(URLtemporaire, Chr(10), "%0A")
URLtemporaire = Replace(URLtemporaire, Chr(13), "%0D")
URLtemporaire = Replace(URLtemporaire, ":", "%3A")
URLtemporaire = Replace(URLtemporaire, " ", "%20")
URLtemporaire = Replace(URLtemporaire, """", "%22")
URLtemporaire = Replace(URLtemporaire, "#", "%23")
URLtemporaire = Replace(URLtemporaire, "$", "%24")
URLtemporaire = Replace(URLtemporaire, "&", "%26")
URLtemporaire = Replace(URLtemporaire, "'", "°%27")
URLtemporaire = Replace(URLtemporaire, "(", "%28")
URLtemporaire = Replace(URLtemporaire, ")", "%29")
URLtemporaire = Replace(URLtemporaire, "*", "%2A")
URLtemporaire = Replace(URLtemporaire, "+", "%2B")
URLtemporaire = Replace(URLtemporaire, ",", "%2C")
URLtemporaire = Replace(URLtemporaire, ";", "%3B")
URLtemporaire = Replace(URLtemporaire, "<", "%3C")
URLtemporaire = Replace(URLtemporaire, "=", "%3D")
URLtemporaire = Replace(URLtemporaire, ">", "%3E")
URLtemporaire = Replace(URLtemporaire, "?", "%3F")
URLtemporaire = Replace(URLtemporaire, "@", "%40")
URLtemporaire = Replace(URLtemporaire, "[", "%5B")
URLtemporaire = Replace(URLtemporaire, "]", "%5D")
URLtemporaire = Replace(URLtemporaire, "^", "%5E")
URLtemporaire = Replace(URLtemporaire, "`", "%60")
URLtemporaire = Replace(URLtemporaire, "{", "%7B")
URLtemporaire = Replace(URLtemporaire, "|", "%7C")
URLtemporaire = Replace(URLtemporaire, "}", "%7D")
URLtemporaire = Replace(URLtemporaire, "~", "%7E")
URLtemporaire = Replace(URLtemporaire, "¢", "%C2%A2")
URLtemporaire = Replace(URLtemporaire, "£", "%C2%A3")
URLtemporaire = Replace(URLtemporaire, "¥", "%C2%A5")
URLtemporaire = Replace(URLtemporaire, "|", "%A6")
URLtemporaire = Replace(URLtemporaire, "§", "%C2%A7")
URLtemporaire = Replace(URLtemporaire, "«", "%C2%AB")
URLtemporaire = Replace(URLtemporaire, "¬", "%C2%AC")
URLtemporaire = Replace(URLtemporaire, "¯", "%C2%AF")
URLtemporaire = Replace(URLtemporaire, "º", "%C2%BA")
URLtemporaire = Replace(URLtemporaire, "±", "%C2%B1")
URLtemporaire = Replace(URLtemporaire, "ª", "%C2%AA")
URLtemporaire = Replace(URLtemporaire, ",", "%B4")
URLtemporaire = Replace(URLtemporaire, "µ", "%C2%B5")
URLtemporaire = Replace(URLtemporaire, "»", "%C2%BB")
URLtemporaire = Replace(URLtemporaire, "¼", "%C2%BC")
URLtemporaire = Replace(URLtemporaire, "½", "%C2%BD")
URLtemporaire = Replace(URLtemporaire, "¿", "%C2%BF")
URLtemporaire = Replace(URLtemporaire, "À", "%C3%80")
URLtemporaire = Replace(URLtemporaire, "Á", "%C3%81")
URLtemporaire = Replace(URLtemporaire, "Â", "%C3%82")
URLtemporaire = Replace(URLtemporaire, "Ã", "%C3%83")
URLtemporaire = Replace(URLtemporaire, "Ä", "%C3%84")
URLtemporaire = Replace(URLtemporaire, "Å", "%C3%85")
URLtemporaire = Replace(URLtemporaire, "Æ", "%C3%86")
URLtemporaire = Replace(URLtemporaire, "Ç", "%C3%87")
URLtemporaire = Replace(URLtemporaire, "È", "%C3%88")
URLtemporaire = Replace(URLtemporaire, "É", "%C3%89")
URLtemporaire = Replace(URLtemporaire, "Ê", "%C3%8A")
URLtemporaire = Replace(URLtemporaire, "Ë", "%C3%8B")
URLtemporaire = Replace(URLtemporaire, "Ì", "%C3%8C")
URLtemporaire = Replace(URLtemporaire, "Í", "%C3%8D")
URLtemporaire = Replace(URLtemporaire, "Î", "%C3%8E")
URLtemporaire = Replace(URLtemporaire, "Ï", "%C3%8F")
URLtemporaire = Replace(URLtemporaire, "Ð", "%C3%90")
URLtemporaire = Replace(URLtemporaire, "Ñ", "%C3%91")
URLtemporaire = Replace(URLtemporaire, "Ò", "%C3%92")
URLtemporaire = Replace(URLtemporaire, "Ó", "%C3%93")
URLtemporaire = Replace(URLtemporaire, "Ô", "%C3%94")
URLtemporaire = Replace(URLtemporaire, "Õ", "%C3%95")
URLtemporaire = Replace(URLtemporaire, "Ö", "%C3%96")
URLtemporaire = Replace(URLtemporaire, "Ø", "%C3%98")
URLtemporaire = Replace(URLtemporaire, "Ù", "%C3%99")
URLtemporaire = Replace(URLtemporaire, "Ú", "%C3%9A")
URLtemporaire = Replace(URLtemporaire, "Û", "%C3%9B")
URLtemporaire = Replace(URLtemporaire, "Ü", "%C3%9C")
URLtemporaire = Replace(URLtemporaire, "Ý", "%C3%9D")
URLtemporaire = Replace(URLtemporaire, "Þ", "%C3%9E")
URLtemporaire = Replace(URLtemporaire, "ß", "%C3%9F")
URLtemporaire = Replace(URLtemporaire, "à", "%C3%A0")
URLtemporaire = Replace(URLtemporaire, "á", "%C3%A1")
URLtemporaire = Replace(URLtemporaire, "â", "%C3%A2")
URLtemporaire = Replace(URLtemporaire, "ã", "%C3%A3")
URLtemporaire = Replace(URLtemporaire, "ä", "%C3%A4")
URLtemporaire = Replace(URLtemporaire, "å", "%C3%A5")
URLtemporaire = Replace(URLtemporaire, "æ", "%C3%A6")
URLtemporaire = Replace(URLtemporaire, "ç", "%C3%A7")
URLtemporaire = Replace(URLtemporaire, "è", "%C3%A8")
URLtemporaire = Replace(URLtemporaire, "é", "%C3%A9")
URLtemporaire = Replace(URLtemporaire, "ê", "%C3%AA")
URLtemporaire = Replace(URLtemporaire, "ë", "%C3%AB")
URLtemporaire = Replace(URLtemporaire, "ì", "%C3%AC")
URLtemporaire = Replace(URLtemporaire, "í", "%C3%AD")
URLtemporaire = Replace(URLtemporaire, "î", "%C3%AE")
URLtemporaire = Replace(URLtemporaire, "ï", "%C3%AF")
URLtemporaire = Replace(URLtemporaire, "ð", "%C3%B0")
URLtemporaire = Replace(URLtemporaire, "ñ", "%C3%B1")
URLtemporaire = Replace(URLtemporaire, "ò", "%C3%B2")
URLtemporaire = Replace(URLtemporaire, "ó", "%C3%B3")
URLtemporaire = Replace(URLtemporaire, "ô", "%C3%B4")
URLtemporaire = Replace(URLtemporaire, "õ", "%C3%B5")
URLtemporaire = Replace(URLtemporaire, "ö", "%C3%B6")
URLtemporaire = Replace(URLtemporaire, "÷", "%C3%B7")
URLtemporaire = Replace(URLtemporaire, "ø", "%C3%B8")
URLtemporaire = Replace(URLtemporaire, "ù", "%C3%B9")
URLtemporaire = Replace(URLtemporaire, "ú", "%C3%BA")
URLtemporaire = Replace(URLtemporaire, "û", "%C3%BB")
URLtemporaire = Replace(URLtemporaire, "ü", "%C3%BC")
URLtemporaire = Replace(URLtemporaire, "ý", "%C3%BD")
URLtemporaire = Replace(URLtemporaire, "þ", "%C3%BE")
URLtemporaire = Replace(URLtemporaire, "ÿ", "%C3%BF")

AssainirURL = URLtemporaire
Exit Function

FonctionErreur:
AssainirURL = CVErr(xlErrValue)

End Function

vCard — Wikipédia

fr.m.wikipedia.org fr.m.wikipedia.org
 
Dernière édition:
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Z
  • Résolu(e)
Microsoft 365 Mise en forme de QRCodes dans un model
Réponses
6
Affichages
356
Zaadox
Z
L
  • Question Question
XL 2021 Kutools QR Code VBA
Réponses
2
Affichages
840
Backhandshot
B
J
  • Résolu(e)
XL 2021 génération de QR code
Réponses
4
Affichages
1 K
JPaul78
J
N
  • Résolu(e)
Microsoft 365 Optimisation tableau avec adresse mail et numéro de téléphone (débutant)
Réponses
4
Affichages
201
JHA
J
S
  • Question Question
Microsoft 365 Trouver les correspondances de mots entre deux listes
2
Réponses
26
Affichages
725
Sylvaing
S
@
  • Question Question
XL pour MAC QR code et incrémentation Excel sur plusieurs étapes
Réponses
0
Affichages
710
@rnaud
@
A
  • Question Question
XL pour MAC Formatage de fichiers de coordonnées
Réponses
10
Affichages
162
agnesd
A
yaka
  • Question Question
Microsoft 365 faire une copie d'un fichier stocké dans un sous sous... sous répertoire
2
Réponses
20
Affichages
619
TooFatBoy
TooFatBoy
B
  • Question Question
XL 2021 Base de données
Réponses
5
Affichages
403
Cousinhub
Cousinhub
E
  • Question Question
XL 2021 Astreintes et gardes médecins
2
Réponses
16
Affichages
362
Rheeem
R
M
  • Question Question
Power Query Fusion Power Query
Réponses
1
Affichages
151
Cousinhub
Cousinhub
B
  • Résolu(e)
XL 2013 Regrouper des listes de noms et prénoms
Réponses
7
Affichages
686
Birobi
B
G
  • Question Question
Microsoft 365 publipostage : problème
Réponses
5
Affichages
276
Hecatonchire
H
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
298
TooFatBoy
TooFatBoy
A
  • Question Question
Microsoft 365 créer un lien vers une cellule dont la ligne est fluctuante
Réponses
3
Affichages
242
AtTheOne
AtTheOne
E
  • Résolu(e)
XL 2019 séparer le nom et le numéro de chambre
2
Réponses
24
Affichages
801
escudo
E
F
  • Question Question
XL 2016 Graphique avoir des blancs en non des valeurs à 0 quand la donnée est vide
Réponses
4
Affichages
164
JHA
J
N
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
907
TooFatBoy
TooFatBoy
D
  • Résolu(e)
Microsoft 365 Remplissage colonne automatique dépendant d'un tableau
Réponses
7
Affichages
724
fanfan38
fanfan38
H
  • Question Question
XL 2013 Saisie sécurisée numéros de téléphone et ajout fonction clic droit de la souris
2
Réponses
21
Affichages
942
Helios77
H
Retour