Création code alphanumérique

Bonjour,

J'aimerais créer un code alphanumérique aléatoire de 6 caractères en y intégrant le numéro du mois en cours.
Exemple : I2A1CV(Aujourd'hui le 21/12/2021)

Les lettres quant à elles devraient être aléatoires.

Il s'agit ici d'avoir un code tout en connaissant la date du mois.

Merci à vous pour votre aide

Bonjour Le suricate, le forum,

Un essai ...avec un code basique....il y a peut-être moyen de faire plus simple....

Cordialement,

bonjour

un essai

Merci beaucoup pour vos réponses !

Je ne suis pas à l'aise avec le codage VBA j'avoue @xorsankukai

Est-il possible d'intégrer ta formule avec le fichier ci-joint @tulipe4? (Il s'agit d'un fichier Excel avec les dates de l'année 2022 : Onglet Calendrier)

Bonjour…

=CAR(ALEA.ENTRE.BORNES(65;90))&CAR(ALEA.ENTRE.BORNES(65;90))&G1&CAR(ALEA.ENTRE.BORNES(65;90))&DROITE(JOUR(A1);1)&CAR(ALEA.ENTRE.BORNES(65;90))

Dans l’exemple donné, le VBA calcule avec la formule mais ne l’écrit pas !

Un autre code sans la formule à rallonge, pour une vingtaine de lignes*

Sub Macro1()
  Dim t As String, x As Byte, y As Byte, A(4) As String, n As Byte, u As Byte
  For u = 1 To 20
    x = Left(Day(Date), 1): y = Right(Day(Date), 1)
    For n = 1 To 4: A(n) = Chr(Application.RandBetween(65, 90)): Next
    Cells(u + 1, 5) = A(1) & A(2) & x & A(3) & y & A(4)
Next
End Sub

*sinon la première boucle devient inutile

Nota : les chiffres sont toujours à la même place, sinon c’est une autre histoire ... plus longue à inventer, n’est-ce pas xorsankukai ?

Oups oublié(e ?) : salut Tulipe

Re,

@Ordonc: Salut

ARGHHHH!!!! Tu es déconcertant de facilité !

Moi qui était fier de ma trouvaille....., tant pis , je poste quand même, je n'aurai pas bossé pour rien,

Cordialement,

Bonjour,

C'est parfait, vos fichiers me seront grandement utile

Merci beaucoup à vous deux !!