Générateur de code

Bonjour à tous

Je cherche (comme le titre l'indique) à générer un code aléatoire à 6 chiffres mais sans doublon. Je m'explique au cas où.

J'ai un tableau qui gère un stock de pièces mécaniques et d’appareils électriques.

Chaque pièce du tableau, déjà établi, possède un code article à 6 chiffres en colonne J.

Si dans le futur je viens à avoir une nouvelle pièce qui n'est pas déjà référencée, je veux pouvoir générer un code à 6 chiffres pour cette pièce mais qui n’existe pas dans le stock déjà établi, en appuyant sur un bouton pour lancé la macro.

(Je précise aussi que certaine ligne non pas de code, comme la graisse ou autre produit, il y a donc des cellule vide dans la colonne J.

Merci à tous ceux qui prendront du temps pour m’aider.

Bonjour Sciuto, le forum,

Un début de réponse : générer un code aléatoire

Sub nombreAleatoire()  'génère un nombre entre 1 et 999999
    Randomize 'Initialisation du générateur de nombres aléatoires
    MsgBox Int((999999 * Rnd) + 1)
End Sub

Dans cet exemple, le nombre est généré dans un MsgBox...

Cordialement,

Re,

Nouvelle version