Suite alphanumerique
Bonjour,
Je souhaiterai insérer une suite dans mon tableau, mais impossible pour moi.
La suite se decomposerai comme cela : 6-AA, 6-AB,6-AC....6-BA,6-BB,6-BC....
Comment arriver à ce résultat ??? Merci par avance de votre aide
Je souhaiterai insérer une suite dans mon tableau, mais impossible pour moi.
La suite se decomposerai comme cela : 6-AA, 6-AB,6-AC....6-BA,6-BB,6-BC....
Comment arriver à ce résultat ??? Merci par avance de votre aide
3 réponses
-
Bonjour Hili,
Fichier Excel 2007 : https://mon-partage.fr/f/ZLQKT13p/
À l'ouverture, Feuil1 est entièrement vide ; Ctrl e =>
ta suite alphanumérique va de A1 à A676.
Merci de me dire si ça te convient ; tu peux me demander
une adaptation éventuelle, par exemple : remplissage en
ligne plutôt qu'en colonne.
Si ton problème est réglé, merci d'aller en haut de page
pour cliquer sur le lien « Marquer comme résolu ».
-
-
@HiliFichier Excel 2007 modifié : https://mon-partage.fr/f/fuwlw8sk/
Ctrl e => travail fait : de 1-AA à 6-ZZ (sur 4 056 lignes) -
@fredComment avais vous fait je n'ai pas Excel chez moi simplement au bureau . Merci
-
@Hili
J'ai créé une macro VBA ; fais Alt F11 pour la voir ; je mets ci-dessous une copie
de ce code VBA ; ce sera plus facile pour toi de copier / coller la macro Essai()
dans un module de ton classeur.
Option Explicit Sub Essai() Application.ScreenUpdating = False Dim chn As String, c0 As Byte, c1 As Byte, c2 As Byte, lig As Long Range("A:A").ClearContents: c0 = 49: c1 = 65: c2 = 64 Do c2 = c2 + 1 chn = Chr$(c0) & "-" & Chr$(c1) & Chr$(c2) lig = lig + 1: Cells(lig, 1) = chn If c2 = 90 Then c1 = c1 + 1: c2 = 64 If c1 = 91 Then c0 = c0 + 1: c1 = 65: c2 = 64 End If End If Loop Until chn = "6-ZZ" End Sub
Fais de nouveau Alt F11 pour retourner sur la feuille Excel ; si ton problème
est réglé, merci de passer le sujet en résolu. Cordialement.
-
-
Bonjour
Je ne sais pas si j'ai bien compris
http://www.cjoint.com/c/GGduDJ7tAbB
Cdlmnt -
ContributeurBonjour,
autre proposition par formule. Tu peux démarrer ta série à la valeur voulue, et passage au nombre suivant à x-ZZ (limité à 9, sinon il faudra compliquer un peu).
Par exemple 6-ZX en B2, mettre en B3 :=GAUCHE(B2;1)+(DROITE(B2;2)="ZZ")&"-"&GAUCHE(STXT(ADRESSE(1;COLONNE(DECALER(INDIRECT(DROITE(B2;2)&"1");;1));;1);2;3);2)
à tirer vers le bas.
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci-
Bravo eriiic, c'est vraiment très fort ! tu as fait l'équivalent de mon code VBA
en juste une formule, qui de plus n'est pas trop longue ! chapeau !!!
C'est donc seulement pour un exemple de programmation VBA que je laisse
mon propre code VBA ; mais si tu préfères le supprimer, pas de problème !
@Hili : même si mon code VBA fait le travail attendu, oublie-le et prends
plutôt la formule d'eriiic ; c'est beaucoup plus simple !
-
-
