Salut,

Le code qui suit est en VB6 mais tu peux l'adapter.

Private Function GetNextChaine(StrChaine As String) As String 

'Tabelau contenant les code ascii des trois caracteres
Dim AscC(0 To 2) As Integer 
'Variable permettant de savoir si l 'on doit arreter la boucle
Dim StopBoucle As Boolean 
'Variable de boucle
Dim i As Integer 
     'Pour etre sur de travailler avec des majuscules
    StrChaine = Ucase(StrChaine)
    For i = 1 To 3 
        'Recuperation des codes ascii des trois caractere
        AscC(i - 1) = Asc(Mid(StrChaine, i, 1)) 
    Next 

    'Boucle en comencant du dernier code
    For i = 2 To 0 Step -1 
        'Si on doit arreter la boucle alors on sort
        If StopBoucle Then Exit For 
        'On ajoute 1 au code ascii (lettre suivante)
        AscC(i) = AscC(i) + 1 
        'Si le code obtenu est 91 (asc("Z") + 1)
        If AscC(i) > vbKeyZ Then 
            'Le code redeviens 65 (asc("A"))
            AscC(i) = vbKeyA 
        Else 
            'Sinon on arrete la boucle car aucune autre
            'operation ne doit etre faite
            StopBoucle = True 
        End If 
    Next 

    GetNextChaine = vbNullString 

    For i = 0 To 2 
        'Reforme la chaie de sortie
        GetNextChaine = GetNextChaine & Chr(AscC(i)) 
    Next 
End Function 

 

Coloration syntaxique automatique [AFCK]
       

@+, Julien
Pensez: