A voir également:
- Suite alphanumérique
- Clavier alphanumérique iphone - Guide
- Code alphanumérique exemple - Guide
- Identifiant alphanumérique ✓ - Forum Windows
- Pseudo alphanumérique - Forum Windows
- 6 caractère alphanumérique exemple ✓ - Forum Bureautique
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 ».
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 ».
Bonjour,
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 :
à 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
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 !
Ctrl e => travail fait : de 1-AA à 6-ZZ (sur 4 056 lignes)
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 SubFais 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.