[Resolu] Suite Alphanumerique VBA ou fonctions Excel

[arthur203]

Hello le forum,

J'aimerai pouvoir creer une suite alphanumerique, via excel ou VBA, de "A7XXX" :

- ou A7 ne change pas d'une ligne a l'autre
- ou les deux premiers X sont des lettres de A a Z
- et le 3eme "X" un chiffre de 0 a 9

comme ci-dessous:

[A1] = "A7AA0"
[A2] = "A7AA1"
[A10]= "A7AA9"
[A11]= "A7AB0"
.....
Ainsi de suite.

Merci par avance !!

 

[pierrejean]

Re : Suite Alphanumerique VBA ou fonctions Excel

Bonjour Arthur

Vois si cela te convient

 

[eriiic]

Re : Suite Alphanumerique VBA ou fonctions Excel

Bonjour à tous,

Ah, avec un temps de retard comme d'hab...
Je ne teste pas la fin. Après A7ZZ9 tu auras A7[A0

bon, je vais voir la proposition de pierrejean
eric

edit: ma proposition ne remplit que la plage sélectionnée, la série commence au n° saisi en 1ère cellule.

 

[Matheop]

Re : Suite Alphanumerique VBA ou fonctions Excel

Hello arthur203, pierrejean (et eriiiic)..

Je propose la macro suivante, elle fait le même boulot - je l'espère - que le fichier de pierrejean :

Sub incrementation()
    Dim lettreColonne(150)
    Dim lettreColonneBIS(10)
    
    For x = 0 To 150
        lettreColonne(x) = Mid(Sheets(1).Cells(1, 27).Offset(0, x).Address, 2, 2)
    Next x
    
    For x = 0 To 10
        lettreColonneBIS(x) = x
    Next x
    
    temp = 0
    
    For x = 0 To 150
        For j = 0 To 10
            Sheets(1).Cells(temp + j + 1, 1).Value = "A7" & lettreColonne(x) & lettreColonneBIS(j)
        Next j
        temp = temp + 10
    Next x

End Sub

edit : non.. en fait rien..

 

[Dugenou]

Re : Suite Alphanumerique VBA ou fonctions Excel

Bonjour à Tous,
J'espère seulement ne pas être le dernier ! j'ai mis un temps certain à trouver la méthode
par formule : à placer en ligne1 et recopier vers le bas :

="A7"&CAR(65+MOD(ENT((LIGNE()-1)/260)+260;260))&CAR(65+MOD(ENT((LIGNE()-1)/10)+26;26))&MOD(LIGNE()-1;10)

Edit : je me console en étant le premier par formule. Bravo Pierrejean : simplicité, concision : je comprends le code !!

 

[arthur203]

Re : Suite Alphanumerique VBA ou fonctions Excel

Merci a tous pour vos solutions ! Un grand merci a Pierrejean toujours d'une grande efficacite !

Bonne journee !

 

[pierrejean]

Re : [Resolu] Suite Alphanumerique VBA ou fonctions Excel

Re

@ Dugenou:

Tues meilleur que moi : Je n'ai pas compris ta formule !!!!

 

[Dugenou]

Re : [Resolu] Suite Alphanumerique VBA ou fonctions Excel

Justement PierreJean : c'est toi le meilleur puisque ton code est accessible à un simple mortel !

 

[pierrejean]

Re : [Resolu] Suite Alphanumerique VBA ou fonctions Excel

Re

Je suis moins qu'un simple mortel puisque je ne comprends pas ta formule et serais donc bien incapable d'en pondre une de ce style

 

[Modeste geedee]

Re : Suite Alphanumerique VBA ou fonctions Excel

Bonsour®

J'espère seulement ne pas être le dernier !
méthode par formule : à placer en ligne1 et recopier vers le bas :

="A7"&CAR(65+MOD(ENT((LIGNE()-1)/260)+260;260))&CAR(65+MOD(ENT((LIGNE()-1)/10)+26;26))&MOD(LIGNE()-1;10)

Edit : je me console en étant le premier par formule.

parait-il quelqu'un a dit : les derniers seront les premiers ...
Serais-je donc le PouPou des formulistes ?

une formule trouvant le suivant de A7aan

="A7"&STXT(Alpha;TROUVE(STXT(A1;3;1);Alpha)+(DROITE(A1;2)="Z9");1)&STXT(Alpha;TROUVE(STXT(A1;4;1);Alpha)+(DROITE(A1)="9");1)&MOD((DROITE(A1)+1);10)

utilisant une chaine nommée Alpha : "ABCDEFGHIJKLMNOPQRSTUVWXYZA" <===important le dernier A !
permettant de cycler après A7ZZ9 ==> A7AA0