Générateur d'ID de 10 chiffres commençant par 9

[jbdry]

Bonjour à tous,

Mon patron me demande un petit fichier à faire mais je ne maîtrise pas du tout les macros voici mon problème:

Je dois créer un fichier capable de :

une case à renseigner sur le nombre d'ID à créer
une case avec le choix d'un texte

Le scénario : exemple

dans la case ID : je décide de mettre 10 000 ----> donc une création de 10 000 ID
dans la case texte : j'écris test1

Résultat : Dans un nouvelle onglet j'ai une liste avec 10 000 ID et le titre de l'onglet à changé par le nom que j'ai renseigné dans la case texte :

Ma contrainte : Pas de doublons, Uniquement un générateur de 10 chiffres pas moins pas plus et pour finir commençant par 9

Voila mon problème pensez vous que techniquement cela est réalisable HELP ME
jbdry
Nouveau venu

Messages: 1
Inscription: il y a 19 minutes
Version Excel: Microsoft Office Excel 2007 FR

 

[jbdry]

Re : Générateur d'ID de 10 chiffres commençant par 9

up please

 

[pierrejean]

Re : Générateur d'ID de 10 chiffres commençant par 9

Bonjour jbdry

Vois si cela te convient

 

[jbdry]

Re : Générateur d'ID de 10 chiffres commençant par 9

Mercii beaucoup c'était exactement ce que je voulais vous venez de faire un heureux bonne journée à vous

 

[Staple1600]

Re : Générateur d'ID de 10 chiffres commençant par 9

Bonsoir à tous

Histoire de ne pas avoir pondu cette petite proc pour rien, je poste puis je vais voir la ponte de pierrejean

Sub a()
Dim nombre&, nomf$, p As Range
nombre = Feuil1.[A1] 'le nombre d'ID à générer
nomf = Feuil1.[A2] 'le nom de la feuille
Application.ScreenUpdating = False
Sheets.Add(after:=Sheets(Sheets.Count)).Name = nomf
With ActiveSheet
    .[A1] = 9000000000#
    Set p = .[A1].Resize(nombre)
    [A1].AutoFill p, 2
End With
End Sub

EDITION: Contrairement au bel ouvrage de pierrejean, je ponds unique quand lui pond unique et aléatoire
Bravo l’artiste