Incrementation numero

[patreide]

Bonjour à tous.

Voici mon probleme: je ne savais pas comment créer un compteur, qui s'incremente à chaque impression du document. Mais avec l'aide d'ERIC sur ce forum, victoire j'arrive à faire ce que je souhaite. Après cette premiere 'experience' j'ai souhaité aller un peu plus loin :

L'idée de depart est de créer un document qui comporte un numero incremental (incrementation lors de l'impression), avec en plus un code barres qui correspond au N°.
J'ai donc telecharger un ActiveX control me permettant de générer le code barres en fonction de la valeur d'une cellule, et la aussi pas de probleme ca marche !
Le pb c'est que quand j'integre l'un avec l'autre, l'incrementation du N° dans la cellule est OK mais pas le code barres qui reste à la première valeur.

Merci de votre aide

 

[ERIC S]

Bonjour

Peux-tu être plus précis sur ton activex control

où l'as-tu trouvé, comment fonctionne-t'il ?

Perso j'ai déjà généré des feuille savec code barre dans une vie antérieure, mais c'était une police de caractères (elles sont en grande majorité payantes)

donc je suis intéressé par ce sujet, même si dans l'immédiat je ne peux rien pour toi, sauf peut-être avec plus d'explications car si tu génères un code bon une fois, on doit pouvoir le refaire.

A+

 

[patreide]

Mais c'est toujours ERIC !!!!

Je l'ai trouvé sur www.barcodeTools.com, mais il n'est pas gratuit, tu penses bien. Mais je me contente de la version Demo qui ajoute 'DEMO' à la fin du code.
C'est l'activeX pour des codes DATAMATRIX (code 2D)

Plus de précisions: Lors de l'impression, c'est comme si il n'y avait pas de rafraichissement de l'objet !

A+

 

[ERIC S]

re

et si tu changes le numéro à la main, le code barre change-t'il?

sinon quelles manips dois-tu faire pour qu'il change (menu ou envoi de codes claviers...)?

A+

 

[patreide]

Salut à tous.

Oui ERIC si je modifie le N° à la main, le code change !

A+

 

[ERIC S]

re

je pense que je t'avais proposé le code

range('A1').value= range('A1').value+1

(ce code change A1 sans sélectionner la cellule)

tu peux essayer de la remplacer par

range('A1').select
activecell.value=activecell.value+1
range('A2').select

pour voir si cela change quelque chose

A+

 

[patreide]

Merci ERIC,

Je vais essayer ce que tu me proposes, mais sans trop y croire.
Ce que je ne comprends pas c'est que j'ai applique la même méthode pour affecter la valeur de la case B1 à mon code barre avec le code suivant:
DataMatrixCtrl1.DataToEncode = Range('B1').Value

Quand je fais le test en pas a pas ca marche, mais plus en mode normal !!!!

J'y comprends rien !

 

[ERIC S]

Bonjour

donc pour modifier le contenu tu utilises une ligne de code

DataMatrixCtrl1.DataToEncode = Range('B1').Value

où est placéecette ligne (module? feuille? macro appelée par quoi?...)

A+

 

[patreide]

Elle est placé dans le code associé au bouton.
(c'est le code que tu m'a donné il y a quelque jour):

Private Sub CommandButton1_Click()
Dim exemplaire As Single
Dim code
'nombre d'exemplaires
exemplaires = InputBox('Nombre d'exemplaires à imprimer', 'IMPRESSION FORMULAIRE')
' si annulé ou pas de réponse, sortie
If exemplaires = '' Then MsgBox ('abandon procédure'): Exit Sub
' si non numérique
If Not IsNumeric(exemplaires) Then MsgBox ('abandon procédure'): Exit Sub
' si inférieur à 1
If exemplaires < 1 Then MsgBox ('abandon procédure'): Exit Sub
' boucle pour incrémenter à chaque impression

For i = 1 To exemplaires
'incrément du numéro
Range('B1').Value = Range('B1').Value + 1
DataMatrixCtrl1.DataToEncode = Range('B1').Value
' imprimer
ActiveSheet.PrintOut
Next i

End Sub

 

[ERIC S]

re

si cela marche en mode pas à pas et pas en normal

fais un essai en mettant un affichage de message juste avant imprimer

msgbox ('ok pour continuer')

cela permettra de voir s'il n'y a pas un pb de temporisation avec ton datatoencode

A+

 

[patreide]

Pas d'amelioration.

le code change a l'ecran mais pas lors de l'impression

 

[ERIC S]

re

le code change à l'écran ?

déjà changé lors de l'apparition du message ou changé après l'impression?

A+

je peux te proposer de m'envoyer le fichier mais je crains qu'il ne fonctionne pas (sinon pourquoi tu paierais une license?)

eric.seigneur@freesbee.fr

le forum va fermer pour migration donc tu peux me contacter en direct ce sera plus simple si je peux te dépanner d'ici à demain

A+