Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion jbdry
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

jbdry

Guest
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
 

Pièces jointes

  • exemple.JPG
    10.8 KB · Affichages: 62
  • exemple.JPG
    10.8 KB · Affichages: 68
  • exemple.JPG
    10.8 KB · Affichages: 67
Trier par date Trier par votes
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 😉
Code: 
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 😉
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

A
  • Question Question
Récupération de 4 cellules sur X fichiers xls
Réponses
1
Affichages
37 K
anthooooony
A
M
[REF] Wiki 1 de MichelXld (Généralités Excel)
Réponses
6
Affichages
60 K
Le_Phénomène
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
47 K
MichelXld
M
M
[REF] Wiki Page 8 de MichelXld
Réponses
0
Affichages
39 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…