- Reaction score
- 112
- EasyCred
- 3,814
Objectif
Pour générer un code-barres à partir de plusieurs cellules Excel en utilisant VBA, vous pouvez utiliser une police de code-barres comme Code 39 ou Code 128.
Voici une macro qui prend des valeurs à partir de plusieurs cellules, les concatène et génère un code-barres dans une autre cellule.
Étapes à suivre :
1. Téléchargez et installez une police de code-barres :
Pour cet exemple, nous allons utiliser la police Code 39. Vous pouvez en trouver plusieurs disponibles gratuitement en ligne. Assurez-vous de l'installer dans votre système.
2. Créez un nouveau module VBA :
Appuyez sur `ALT + F11` pour ouvrir l'éditeur VBA. Cliquez sur `Insertion` > `Module` pour créer un nouveau module.
3. Collez le code suivant dans le module :
1. Modifiez les références de cellule :
Ajustez `Range("A1")`, `Range("A2")`, `Range("A3")`, et `Range("B1")` pour correspondre aux cellules que vous souhaitez utiliser pour lire les données et afficher le code-barres.
2. Assurez-vous que la police est correctement installée :
Changez le nom de la police dans cette ligne :
Assurez-vous que "IDAutomationC39" correspond à la police de code-barres que vous avez installée.
3. Exécution de la macro :
Fermez l'éditeur VBA, retournez à Excel, puis exécutez la macro `GenererCodeBarre` via `ALT + F8`, sélectionnez la macro et cliquez sur `Exécuter`.
Note :
Le code généré dans la cellule d'affichage doit être suffisamment long pour être reconnu par un scanner de code-barres.
Assurez-vous que la police est sélectionnée et bien configurée pour éviter tout problème de visualisation du code-barres.
EnjoyCoding
Pour générer un code-barres à partir de plusieurs cellules Excel en utilisant VBA, vous pouvez utiliser une police de code-barres comme Code 39 ou Code 128.
Voici une macro qui prend des valeurs à partir de plusieurs cellules, les concatène et génère un code-barres dans une autre cellule.
Étapes à suivre :
1. Téléchargez et installez une police de code-barres :
Pour cet exemple, nous allons utiliser la police Code 39. Vous pouvez en trouver plusieurs disponibles gratuitement en ligne. Assurez-vous de l'installer dans votre système.
2. Créez un nouveau module VBA :
Appuyez sur `ALT + F11` pour ouvrir l'éditeur VBA. Cliquez sur `Insertion` > `Module` pour créer un nouveau module.
3. Collez le code suivant dans le module :
Code:
Sub GenererCodeBarre()
Dim cell1 As String
Dim cell2 As String
Dim cell3 As String
Dim codeBarre As String
Dim outputCell As Range
' Spécifiez les cellules que vous souhaitez lire
cell1 = Range("A1").Value ' Première cellule
cell2 = Range("A2").Value ' Deuxième cellule
cell3 = Range("A3").Value ' Troisième cellule
' Concaténez les cellules avec un séparateur, par exemple un tiret
codeBarre = cell1 & "-" & cell2 & "-" & cell3
' Spécifiez la cellule de sortie où le code-barres sera généré
Set outputCell = Range("B1") ' Cellule où le code-barres sera affiché
' Préparez le code-barres en ajoutant les caractères nécessaires pour Code 39
outputCell.Value = "" & codeBarre & ""
' Appliquez la police de code-barres à la cellule de sortie
outputCell.Font.Name = "IDAutomationC39" ' Remplacez par le nom de votre police de code-barres
' Ajustez la taille de la police si nécessaire
outputCell.Font.Size = 24
End Sub1. Modifiez les références de cellule :
Ajustez `Range("A1")`, `Range("A2")`, `Range("A3")`, et `Range("B1")` pour correspondre aux cellules que vous souhaitez utiliser pour lire les données et afficher le code-barres.
2. Assurez-vous que la police est correctement installée :
Changez le nom de la police dans cette ligne :
Code:
outputCell.Font.Name = "IDAutomationC39"Assurez-vous que "IDAutomationC39" correspond à la police de code-barres que vous avez installée.
3. Exécution de la macro :
Fermez l'éditeur VBA, retournez à Excel, puis exécutez la macro `GenererCodeBarre` via `ALT + F8`, sélectionnez la macro et cliquez sur `Exécuter`.
Note :
Le code généré dans la cellule d'affichage doit être suffisamment long pour être reconnu par un scanner de code-barres.
Assurez-vous que la police est sélectionnée et bien configurée pour éviter tout problème de visualisation du code-barres.
EnjoyCoding
