Autres Créer de A à ZZZZ en boucle

JBARBE

XLDnaute Barbatruc
Bonjour à tous,
J'ai récupéré sur ce forum un vieux fichier me permettant de faire une boucle(s) avec des lettres de A à ZZ !
Peut-on aller au-delà ?
Par exemple jusqu'à ZZZZ et qui aprés le ZZ je pense serait AAA !
Merci à l'avance et bonne journée !
 

Pièces jointes

  • alphabet.xls
    95.5 KB · Affichages: 17

jmfmarques

XLDnaute Accro
Bonjour
J'ignore quel pourrait bien être l'intérêt réel d'une telle démarche, mais regarde ce que fait par exemple ceci (bâclé) :
VB:
For k = 1 To Columns.Count
  Range("A" & k).Value = Split(Columns(k).Address(columnAbsolute:=False), ":")(0)
Next k
 

kiki29

XLDnaute Barbatruc
Salut, sous forme de fonction personnalisée, ceci te laisse de la marge .....
VB:
Option Explicit

Function Num2Lettre(iNum As Long) As String
Dim sStr As String
    Do While iNum > 0
        sStr = Chr$(((iNum - 1) Mod 26) + 65) & sStr
        iNum = (iNum - 1) \ 26
    Loop
    Num2Lettre = sStr
End Function
 

Pièces jointes

  • 1.png
    1.png
    26.3 KB · Affichages: 14
Dernière édition:

JBARBE

XLDnaute Barbatruc
Bonjour
J'ignore quel pourrait bien être l'intérêt réel d'une telle démarche, mais regarde ce que fait par exemple ceci (bâclé) :
Bonjour à tous,
Cette demande m'a été faite en message privé de just be !
Pourquoi, je n'en sait rien !
Mais pour moi cela me semble insurmontable !
Voici la demande :

Bonsoir,
Voilà pour faire simple, vous m'avez été d'une grande aide concernant le topic du lien suivant
Le lien a été supprimé à la demande du demandeur !
Cela dit, un collègue à moi au boulot m'a fait remarqué que les données utilisées n'auraient pas dû l'être pour une raison d'éthique (malgré le fait que les chiffres du fichier Donnees ne veulent rien dire pour quiconque qui les consulte vu qu'ils sont anonymes). J'aimerais donc que vous les changiez avec l'exemple ci-dessous si possible. Je vous en serais entièrement reconnaissant. Encore une fois, mille merci pour votre compréhension.
Identifiant produit
100 A
100 B
101 C
101 D
102 E
102 F
102 G
 
Dernière édition:

dg62

XLDnaute Barbatruc
Bonjour le Fil, bon 1er Mai
AAA.png
 

dysorthographie

XLDnaute Accro
VB:
'****************************************************
'Permet une incrémentation alphabétique de A à ZZ ??
'Paramètres optionnels
'T := texte à incrémenté
'Nb := nombre d'incréments
'C :=Colonne à traiter
'****************************************************
Function Alphabulateur(Optional T As String = "", Optional Nb As Integer = 1, Optional ByVal C As Integer = 1) As String
Dim i As Integer, txt As String
txt = "  " & Trim(T)
For i = 1 To Nb
    If Trim(Mid(txt, Len(txt) - C + 1, 1)) = "Z" Then
         Mid(txt, Len(txt) - C + 1, 1) = "A"
         txt = Alphabulateur(T:=txt, C:=C + 1)
    Else
        If Trim(Mid(txt, Len(txt) - C + 1, 1)) = "" Then
            Mid(txt, Len(txt) - C + 1, 1) = "A"
        Else
             Mid(txt, Len(txt) - C + 1, 1) = Chr(Asc(Mid(txt, Len(txt) - C + 1, 1)) + 1)
        End If
    End If
Next
Alphabulateur = Trim(txt)
End Function

Sub test()
Dim T(1 To 6) As String
    T(1) = Alphabulateur
    T(2) = Alphabulateur(Nb:=50)
    T(3) = Alphabulateur(T:="A")
    T(4) = Alphabulateur(T:="A", Nb:=3)
    T(5) = Alphabulateur(T:="Z")
    T(6) = Alphabulateur(T:="AZZZZ", C:=2)
    Debug.Print T(1), T(2), , T(3), T(4), T(4), T(5), T(6)
End Sub
 

JBARBE

XLDnaute Barbatruc
Re,
Ça demande numérique est un peu flou ! et compte tenu du nombre important de lignes de mon fichier, j'aimerais qu'il apporte plus de précision !
Je vais lui en faire part !
La proposition de modeste est trés bien mais il faudrait que tout soit sur une seule colonne !
Bonne journée !
 

Discussions similaires