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