Générateur de codes avec critères

phlaurent55

Nous a quittés en 2020

Repose en paix

• 29 Avril 2013

• #2

Re : Générateur de codes avec critères

Bonjour badjoke, et bienvenue sur le forum

voir essai en pièce jointe
il est nécessaire d'activer les macros à l'ouverture du fichier

à+
Philippe

 

Pièces jointes

• 111.xlsm

  16.8 KB · Affichages: 40
• 111.xlsm

  16.8 KB · Affichages: 44
• 111.xlsm

  16.8 KB · Affichages: 50

Dernière édition: 29 Avril 2013

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 29 Avril 2013

• #3

Re : Générateur de codes avec critères

Bonjour Badjoke et bienvenu, bonjour le forum,

Comprendre, je pense qu'on a compris (même moi takawoar)... Mais sans base de départ je vois mal comment on va pouvoir t'aider. Puisque tu es nouveau parmi nous, tu devrais commencer par lire la Lien supprimé du forum qui te donne tous les bons plans pour obtenir de l'aide rapidement.

[Édition]
Bonjour Philippe on s'est croisé...

 

Vote positif 0 Vote négatif

B

badjoke

Guest

• 29 Avril 2013

• #4

Re : Générateur de codes avec critères

Bonjour,

Merci pour votre aide, je vais potasser tout ça pour voir si je peux sortir une ébauche 🙂

Merci Phil, Mais quand j'ai D13P001 Je ne peux pas avoir D13S001, le numéro doit suivre quelque soit le critère P ou S

Mais je vais essayer de faire quelque chose avec les tutos et tout et revenir vers vous par la suite 🙂

Merci 😉

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 29 Avril 2013

• #5

Re : Générateur de codes avec critères

Bonjour à tous,

Comment savoir si il s'agit d'un S ou d'un P ?

A+ à tous

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 29 Avril 2013

• #6

Re : Générateur de codes avec critères

Bonjour à tous,

Un essai avec une InputBox (et le code de Philippe) pour le choix du code

A+ à tous

 

Pièces jointes

• JC Numérotation automatique DblClick.xlsm

  23.2 KB · Affichages: 27

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 30 Avril 2013

• #7

Re : Générateur de codes avec critères

Re,bonjour

Salut Jean-Claude, Robert

JCGL à dit:

Bonjour à tous,

Un essai avec une InputBox (et le code de Philippe) pour le choix du code

A+ à tous

Cliquez pour agrandir...

un mix du remix en pièce jointe
avec utilisation d'un USF (plus souple et plus rapide que l'InputBox)



à+
Philippe

 

Pièces jointes

• 111.xlsm

  17.1 KB · Affichages: 27
• 111.xlsm

  17.1 KB · Affichages: 31
• 111.xlsm

  17.1 KB · Affichages: 32

Dernière édition: 30 Avril 2013

Vote positif 0 Vote négatif

B

badjoke

Guest

• 2 Mai 2013

• #8

Re : Générateur de codes avec critères

Bonjour tout le monde !

Super le petit mix ! C'est possible de rajouter plusieurs choix ? Après le clic droit, pouvoir cocher plusieurs cases exemple :

-D13 ou D14
-S OU P

Merci beaucoup vous êtes super 🙂

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 2 Mai 2013

• #9

Re : Générateur de codes avec critères

Bonjour à tous,

Sur la base du fichier de phlaurent55 mais avec des cases à cocher et :

VB:

Private Sub CheckBox1_Click()
If CheckBox1 = True Then CheckBox2 = False
End Sub

Private Sub CheckBox2_Click()
If CheckBox2 = True Then CheckBox1 = False
End Sub

Private Sub CheckBox3_Click()
If CheckBox3 = True Then CheckBox4 = False
End Sub

Private Sub CheckBox4_Click()
If CheckBox4 = True Then CheckBox3 = False
End Sub

Private Sub CommandButton1_Click()
If Cells(2, 1) = "" Then
Cells(2, 1) = IIf(CheckBox3 = True, "D13", "D14") & IIf(CheckBox1 = True, "P", "S") & Format(1, "0000")
Unload Me
Exit Sub
End If
DerL = Cells(65535, 1).End(xlUp).Row + 1
DerN = Right(Cells(DerL - 1, 1), 4) * 1 + 1
Cells(DerL, 1) = IIf(CheckBox3 = True, "D13", "D14") & IIf(CheckBox1 = True, "P", "S") & Format(DerN, "0000")
Unload Me
End Sub

A+ à tous

 

Pièces jointes

• JC Incrémentation.xlsm

  21.6 KB · Affichages: 23

Vote positif 0 Vote négatif