Suite alphanumerique

Fermé

Hili - 3 juil. 2017 à 21:42
ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 - 4 juil. 2017 à 14:46

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

A voir également:

Suite alphanumérique
Code alphanumérique - Guide
6 caractère alphanumérique exemple - Forum Réseaux sociaux
CODE ALPHANUMERIQUE ✓ - Forum Handicap / Accessibilté
Mot de passe alphanumérique c'est quoi ? ✓ - Forum Bureautique
Mot de passe en caracteres alphanumérique ✓ - Forum Graphisme

3 réponses

Réponse 1 / 3

fred
3 juil. 2017 à 22:18

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 ».

Hili
3 juil. 2017 à 22:24

Je dois continuer une suite le tableur c arrêté à 5-ZZ je souhaiterais repartir sur 6-AA 6-AB 6-AC.... 6-BA 6-BB 6-BC mais je ne c pas du tout comment faire

fred > Hili
3 juil. 2017 à 22:52

Fichier Excel 2007 modifié : https://mon-partage.fr/f/fuwlw8sk/
Ctrl e => travail fait : de 1-AA à 6-ZZ (sur 4 056 lignes)

Hili > fred
3 juil. 2017 à 22:59

Comment avais vous fait je n'ai pas Excel chez moi simplement au bureau . Merci

fred > Hili
3 juil. 2017 à 23:09

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.

Réponse 2 / 3

ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 423
3 juil. 2017 à 22:30

Bonjour

Je ne sais pas si j'ai bien compris
http://www.cjoint.com/c/GGduDJ7tAbB

Cdlmnt

Hili
3 juil. 2017 à 22:47

Je n'arrive pas à ouvrir le fichier pouvez m'indiquer la marche à suivre ?

ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 423
Modifié le 4 juil. 2017 à 15:00

Fe bonjour à tous

Pour que tu aies les 3 solutions (au cas où tu n'aurais pas réussi à lire le fichier)
En supposant que tu commences en ligne 2
="6-" & CAR(65+ENT((LIGNE()-2)/26))&CAR(64+MOD(LIGNE()-2;26)+1)
Formule à tirer vers le bas

Cdlmnt

Réponse 3 / 3

eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 239
Modifié le 3 juil. 2017 à 23:59

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 :

=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

fred
4 juil. 2017 à 00:50

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 !

eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 239
4 juil. 2017 à 01:19

Pas de raison de supprimer ton code, mieux vaut 3 propositions que 0 ;-)
Et puis ça lui donnera peut-être envie de découvrir vba

Discussions similaires