Rajouter un chiffre dans liste sans ajout de ligne

vgendron

XLDnaute Barbatruc

• 10 Mai 2017

• #2

Hello

est ce que ce début de solution (totalement perfectible.. ce n'est qu'un premier jet)
peut satisfaire?

 

Pièces jointes

• Etiquettage test.xlsm

  94.7 KB · Affichages: 38

Vote positif 0 Vote négatif

Merinom

XLDnaute Junior

• 10 Mai 2017

• #3

woooow c'est génial!! Il manquerai peut être prévoir des messages d'erreurs lorsqu'on essaye de couper un tube en "0" morceaux ou couper un tube qui n'existe pas ou dans un lot qui n'existe pas. Et un autre petit truc, en fait je préfère que le tube père soit renommer 1-1 et non pas 1-0 puis 1-1.

Merci beaucoup vgendron, tu gères !!!!!

 

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 10 Mai 2017

• #4

Bonjour,
Dans ce style là

Code à mettre dans la feuille concernée

Code:

'Suivant une partie de code de JOB 75
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A:CV]) Is Nothing Or Target.Address <> ActiveCell.Address Then Exit Sub
Dim mem
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error Resume Next
Target.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.formula = "=IF(ISNUMBER(R[-1]C),R[-1]C&CHAR(97),SUBSTITUTE(R[-1]C,RIGHT(R[-1]C,1),CHAR(CODE(RIGHT(R[-1]C,1))+1)))"
mem = Target
Application.Undo
Cells.Insert Shift:=xlDown - 1, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.formula = "=IF(ISNUMBER(R[-1]C),R[-1]C&CHAR(97),SUBSTITUTE(R[-1]C,RIGHT(R[-1]C,1),CHAR(CODE(RIGHT(R[-1]C,1))+1)))"
Application.EnableEvents = True
End Sub

Edit : Bonjour vgendron, pas rafraîchie. Ta solution est nettement meilleurs.

 

Pièces jointes

• Etiquettage test (Piga25) .xlsm

  92.3 KB · Affichages: 27

Dernière édition: 10 Mai 2017

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 10 Mai 2017

• #5

Bon.. voici une version qui me plait plus à titre perso
quand je disais que c'était une version préliminaire

ici. le formulaire s'ouvre
tu sélectionnes le numéro de lot
automatiquement, la liste des tubes dispos se met à jour
tu sélectionnes et mets le nombre de troncons
et tu tronconnes

 

Pièces jointes

• Etiquettage test.xlsm

  97.6 KB · Affichages: 42

Vote positif 0 Vote négatif

Merinom

XLDnaute Junior

• 11 Mai 2017

• #6

Bonjour vgendron et piga25, merci beaucoup pour votre aide. La macro est super ! Je voulais savoir si , comme je l'avais dit à mon dernier post, c'est possible de prévoir des messages d'erreurs comme quand on essaye de couper un tube en "0" ou en "1" morceau : renvoyer un MsgBox disant que c'est pas possible. Et dernier petit truc j'aimerai bien que le tube père soit renommer X-1 et non pas X-0 .

Merciii !!!

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 11 Mai 2017

• #7

Hello

avec le message et la numérotation qui commence à 1

avec aussi correction d'un bug lorsque tu sélectionnes un numéro de lot qui ne contient qu'un seul tube (ex des lots 5 à 100)

pour la suite. on pourrait empecher de sélectionner un tube déjà tronconné. juste en filtrant la liste.
Pour l'instant, si tu sélectionnes un tube déjà tronconné. il ne se passera rien..

 

Pièces jointes

• Etiquettage test.xlsm

  98.9 KB · Affichages: 34

Vote positif 0 Vote négatif

Merinom

XLDnaute Junior

• 11 Mai 2017

• #8

C'est génial !! merci !! Par contre j'ai remarqué un petit soucis lorsque je change le N° du lot, par exemple, pour une commande il peu avoir que 2 lots 616652 et 616653, et la macro ne prend pas en compte le changement Aussi après avoir tronçonné, le format de la cellule du tube tronçonné change en mode Date il affiche donc 01- janvier par exemple


Merci à nouveau ! Tu gères !!

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 11 Mai 2017

• #9

Avec le filtre dont je parlais..

par contre. j'ai pas compris ton souci de numéro de lot..
et pour le format date, il me semble que si tu passes tout en format Texte avant de lancer la macro, ca doit etre bon..

 

Pièces jointes

• Etiquettage test 2.xlsm

  99.5 KB · Affichages: 26

Vote positif 0 Vote négatif

Merinom

XLDnaute Junior

• 11 Mai 2017

• #10

Je m'explique, la numérotation des lots 1 à 100 est théorique, en fait une commande peut parfaitement avoir que 2 lots ( 616652 et 616653 par exemple) et ta macro elle ne lit pas le N° de lot sur la cellule sinon que les lots sont prédéfinit dans la macro si je ne me trompe pas. L'idéal serait que lorsque je lance la macro, celle-ci "lit" les numéros de lots dans la Feuille Excel (ligne 3). Un lot peut en effet avoir jusqu'à 6 chiffres.

Merci vgendron!

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 11 Mai 2017

• #11

ok compris
voici version corrigée

 

Pièces jointes

• Etiquettage test 2.xlsm

  99.4 KB · Affichages: 32

Vote positif 0 Vote négatif

Merinom

XLDnaute Junior

• 11 Mai 2017

• #12

Re bonjour et re merci pour ton temps, j'ai essayer la nouvelle version mais il y a un probleme. En fait la macro elle lit bien le N° de lot mais :
- Une erreur de dépassement apparait lorsque j'introduit un N° de lot supérieur à 16000 et parfois une erreur 1004 "Erreur définie par l'application ou l'objet" et renvoi à la ligne If Cells(6, colonne) = "" Then
- J'ai essayé en renommant le lot de la colonne 1 "1000" et elle lit bien mais je crois que la macro lit les valeurs de la colonne 1000 car aucun tube apparait lorsque ce lot est sélectionné.


Merci pour ton aide vgendron

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 11 Mai 2017

• #13

Re
Oui, effectivement.. j'étais parti sur le fait que les lots étaient numérotés de 1 à 100.. et que du coup.. le numéro du lot était aussi le numéro de la colonne..
voici version corrigée.

Regarde le code (Alt + F11 pour ouvrir l'éditeur vba) et les commentaires associés.. tu devrais comprendre comment ca fonctionne

 

Pièces jointes

• Etiquettage test 3.xlsm

  100.1 KB · Affichages: 29

Vote positif 0 Vote négatif

Merinom

XLDnaute Junior

• 11 Mai 2017

• #14

ok ca marche nickel ! Aussi j'ai réussit à résoudre le probleme d'erreur de dépassement, en fait tu avais stocké la variable NumLot = CInt(Me.CBNumLot.Value) comme un entier, donc elle devait être entre -32768 et 32767. J'ai renommé alors la variable comme variable Long c'est tout (j'ai enfin réussit à faire quelque chose tout seul )

Je voulais te faire une toute dernière pétition, il se trouve qu'il y a des tubes qui peuvent être numérote selon un format Lot-1, Lot-2, .. pour éviter des doublons entres lots .. ( c'est compliqué tout ca!), donc si il y a un lot 616652, le 1ere tube serait 616652-1 et celui-ci peut être coupé et il serait renommé 616652-1/1 et 616652-1/2. Donc ceci reviens au fait de pouvoir re-couper un tube déjà coupé et ajouter un ../1.

Merci pour ta patience vgendron!

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 11 Mai 2017

• #15

he he.. sais pas pourquoi. mais je m'y attendais
donc voici la rev 4
par contre, la modif que tu as faite pour autoriser des numéros plus longs (Entier - long), je te laisse la refaire, parce que je sais pas ce que tu as fait

et pour anticiper la prochaine demande
il va falloir que je trouve comment recharger le combo "NumTube" juste après un fractionnement, histoire que les nouveaux tubes apparaissent aussitot sans avoir a selectionner un nouveau numéro de lot

 

Pièces jointes

• Etiquettage test 4.xlsm

  101.2 KB · Affichages: 29

Vote positif 0 Vote négatif