Télécharger

Excel
Codes à barres dans une feuille de calcul

 Standard ou plus

Incorporer et automatiser un code-barres dans un document Excel

Excel 365, 2024, 2021, 2019, 2016, 2013, 2010
Voici une brève description de la manière d'ajouter un code-barres à un document Excel et de le lier au contenu d'une cellule.

Tout d'abord, lancez Excel et créez ou ouvrez un document.

Assurez-vous que vous avez configuré Excel de manière à ce que l'onglet Developer apparaisse. Pour ce faire, accédez aux options Excel en cliquant sur l'onglet Fichier. Vous passez alors à la vue Backstage. Cliquez ensuite sur Options dans le groupe d'onglets à gauche.ActiveBarcode: Barcode, Excel


1


Sous Personnaliser le ruban, activez l'option Développeur sur les onglets principaux, puis fermez la fenêtre d'options.ActiveBarcode: Barcode, Excel


2


Vous pouvez maintenant intégrer l'élément de contrôle ActiveBarcode dans votre document. Sélectionnez l'onglet Developer. Cliquez sur le bouton Insérer de la gamme Contrôles ActiveX, puis sélectionnez Plus de contrôles.ActiveBarcode: Barcode, Excel


3


Une boîte de dialogue apparaît à l'écran:ActiveBarcode: Barcode, Excel


4


Sélectionnez ActiveBarcode et cliquez sur OK. Un code-barres est maintenant créé dans votre document. Il s'agit d'un code-barres EAN-128 standard. Il s'agit du type par défaut. Vous pouvez le remplacer par n'importe quel type de code-barres pris en charge par ActiveBarcode: QR Code, GS1/EAN-128, Data Matrix, GTIN/EAN-13, Code 39, Code 93, GS1-Data Matrix, Code 128, PDF417, DUN-14, EAN-8, EAN-14, EAN-18, ISBN, ITF-14, NVE, PZN8, SCC-14, SSCC-18 ...Vous pouvez maintenant modifier ce code-barres. Vous pouvez changer le type, le texte, les couleurs, etc. Pour ce faire, cliquez avec le bouton droit de la souris à l'intérieur du code-barres. Un menu contextuel s'ouvre: ActiveBarcode: Barcode, Excel


5


Sélectionnez ActiveBarcode Object puis Properties. Le dialogue ActiveBarcode property s'ouvre. Vous pouvez modifier le code-barres comme vous le souhaitez.

Pour ce faire, cliquez sur le bouton Propriétés dans la zone Contrôles:ActiveBarcode: Barcode, Excel


6


Créer un lien entre une cellule et le code-barres : Ouvrez le dialogue des propriétés d'Excel comme décrit ci-dessus. Activez l'objet code-barres en cliquant une fois dessus. Les propriétés de l'objet code-barres s'affichent alors dans la boîte de dialogue des propriétés. Recherchez la propriété nommée LinkedCell. Cette propriété crée un lien entre une cellule et le code-barres:ActiveBarcode: Barcode, Excel


7


Saisissez le nom de la cellule du lien dans cette propriété. C'est tout !

Si vous souhaitez créer un code-barres qui encode les données de plusieurs cellules, vous devez d'abord fusionner ces cellules dans une cellule d'aide. Ensuite, vous devez connecter cette cellule combinée à l'objet code-barres.

Dans l'exemple suivant, le contenu des cellules B3 et B4 est combiné dans la cellule B6. La cellule B6 est liée à l'objet code-barres.ActiveBarcode: Barcode, Excel

Utilisation et automatisation des codes à barres avec VBA dans Excel

Vous pouvez utiliser VisualBasic for Applications (VBA) pour résoudre de nombreux problèmes dans Excel. Nous allons vous montrer comment intégrer, utiliser et supprimer le contrôle ActiveBarcode avec VBA:

Intégrer le contrôle ActiveBarcode dans une feuille :
Dans cet exemple, un contrôle de code-barres sera placé directement au-dessus d'une cellule. Le code-barres semble alors se trouver à l'intérieur d'une cellule.

Nous commençons par lire la taille des cellules :
CurrentCell = "C3"
MyHeight = Range(CurrentCell).Height
MyWidth = Range(CurrentCell).Width
MyTop = Range(CurrentCell).Top
MyLeft = Range(CurrentCell).Left
Veuillez noter qu'une cellule doit avoir une taille minimale pour que le code-barres puisse s'y insérer. Si la cellule est trop petite, une erreur de taille sera affichée. Nous redimensionnons donc la hauteur de la cellule à 30 pixels :
' Enlarge the cell height to 30 pixels
Range(CurrentCell).RowHeight = 30
La fonction suivante créera le contrôle de code-barres directement au-dessus de la cellule :
ActiveSheet.OLEObjects.Add(ClassType:="ACTIVEBARCODE.BarcodeCtrl.1", Link:=False, _
 DisplayAsIcon:=False, Width:=MyWidth , Height:=MyHeight, Top:=MyTop + 2,_
 Left:=MyLeft + 4).Select
Vous pouvez lier directement l'objet code-barres à une cellule :
ActiveSheet.OLEObjects(MyBarcode).LinkedCell = "B7"
Pour faciliter l'accès au contrôle, nous stockons le nom du contrôle dans la variable MyBarcode :
MyBarcode = ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name
Vous pouvez maintenant utiliser les properties et methods de l'objet code-barres comme vous le souhaitez :
' set properties
ActiveSheet.OLEObjects(MyBarcode).Object.Font.Size = 8
ActiveSheet.OLEObjects(MyBarcode).Object.Type = 14 ' Code 128
ActiveSheet.OLEObjects(MyBarcode).Object.Text = Range("C3")
Si vous n'avez plus besoin du contrôle, vous pouvez le supprimer de la feuille :
ActiveSheet.OLEObjects(MyBarcode).Delete
Conseil : s'il est nécessaire que Windows traite les événements à venir (souvent appelé KeepWindowsAlive) au sein d'une macro, vous pouvez le forcer en utilisant la fonction VBA suivante :
DoEvents
Cela peut s'avérer nécessaire, par exemple si le Contrôleur doit se redessiner.