Discussion :

[DAOSOCAM]

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

[Theze]

Bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[Qwazerty]

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