Discussion :

[Décibel]

Bonjour,

Comment incrémenter de 1 une suite de lettre.
Exemple, je fais du lettrage de compte, j'ai un lettrage déjà utlisé qui est "AAAB", je voudrais avoir, avec un code VB : "AAAC"

Merci

[Arkham46]

slt,

c'est vite fait mais ça a l'air de fonctionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Function IncString(ByVal pString As String) As String
    Dim lLen As Integer
    Dim lChar As String
    lLen = Len(pString)
    Do
        lChar = Mid(pString, lLen, 1)
        If StrComp(lChar, "z", vbTextCompare) <> 0 Then
            Mid(pString, lLen, 1) = Chr(Asc(lChar) + 1)
            IncString = pString
            Exit Do
        Else
            Mid(pString, lLen, 1) = IIf(lChar = "z", "a", "A")
        End If
        lLen = lLen - 1
        If lLen = 0 Then
            IncString = pString
            Exit Do
        End If
    Loop
End Function

incString("AAAB") renvoie AAAC
incString("AAAZ") renvoie AABA
incString("AAzZ") renvoie ABaA
incString("ZZZZ") renvoie AAAA
....

[Décibel]

Merci ça marche !!