petit codage vba

Bonjour, j'ai beosin d'une petite aide sur vba. j'ai besoin de crée un code article unique pour des pieces données . je m'explique, je veux que la personne qui utilise cette molinette rentre dans une cellule une designation puis qu'elle genere son code grace a un bouton et que celui ci ainsi que la designation s'eregistrer sur une ligne sur une autre feuille . merci

Bonsoir,

Pour un code aléatoire, teste ce qui suit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Sub Test()   MsgBox Code(20)   End Sub   Function Code(taille)   Dim Chaine As String Dim Num As Integer   Randomize   Do   Num = Int(122 * Rnd) + 1   Select Case Num Case 48 To 57, 65 To 90, 97 To 122 Chaine = Chaine + Chr(Num) End Select   Loop Until Len(Chaine) > taille   Code = Chaine   End Function

---

Hervé.

Salut
Le plus simple et aussi le plus sur pour éviter d'avoir des doublon, est à mon avis d'utiliser un simple numéro de type Long.
Lors de la création d'un nouveau matériel, tu regardes sur la colonne où se trouvent tes codes produits, tu recherches la plus haute valeur avec la fonction Max à laquelle tu rajoutes 1.

Pour ce qui est de la réalisation via du code vba, tu trouveras la fonction Max dans WorksheetFunction.


++
Qwaz