Autres Créer de A à ZZZZ en boucle

[JBARBE]

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 !

 

[jmfmarques]

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é) :

For k = 1 To Columns.Count
  Range("A" & k).Value = Split(Columns(k).Address(columnAbsolute:=False), ":")(0)
Next k

 

[kiki29]

Salut, sous forme de fonction personnalisée, ceci te laisse de la marge .....

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

 

[JBARBE]

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

 

[JBARBE]

bonjour


FAUX
CAR CA voudrais dire que A est bien après Z dans l'ordre des colonnes

Bonjour patricktoulon,
Alors qu'est-ce que l'on peut mettre à l'aide d'une macro comme lettre aprés ZZ !
Bonne journée !

 

[jmfmarques]

Bonjour patricktoulon,
Alors qu'est-ce que l'on peut mettre à l'aide d'une macro comme lettre aprés ZZ !
Bonne journée !

sois rassuré, JBARBE, c'est bien AAA qui vient juste après ZZ (on est en base 26, là). 😉

 

[kiki29]

Re, JBARBE : voir pièce jointe ici

 

[dg62]

Bonjour le Fil, bon 1er Mai

 

[JBARBE]

Re, JBARBE : voir pièce jointe ici

Re,
Merci kiki29, ça marche !
reste à savoir comment procéder pour sa demande numérique !
100 A
100 B
101 C
101 D
102 E
102 F
102 G
Bonne journée à tous et bon 1er Mai !

 

[Modeste geedee]

Bonsour®
sans boucle, sans macro
limité à 16384 valeurs différentes (de A à XFD)

 

[dysorthographie]

'****************************************************
'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]

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 !

 

[JBARBE]

Re,
J'ai cette proposition de kiki29 et la mienne !
reste à l'adapter sur mon fichier initial si ça convient !
Bonne journée et merci à tous
dysorthographie
Modeste geedee
kiki29
jmfmarques
et la gentillesse de
dg62