Enchainement d'un code contenant lettres et chiffres.

[TH3ROOKIE]

Bonjour,

j'ai besoin d'avoir les 3 premiers caractères des codes postaux canadiens, mais je ne veux pas me tapper 6760 codes à la main dans excel. Y'a t'il moyen de le faire mais qu'en indiquant que le premier code postal.

Ex, j'entre A0A dans en A1, donc A2 me retourn A0B, A3 me donne A0C, A4 - A0D et ainsi de suite jusqu'a Z9Z

Merci pour l'aide

Tommy

 

[kiki29]

Re : Enchainement d'un code contenant lettres et chiffres.

Jour Bon, vite fait , la complete : à tester et adapter

 

[kiki29]

Re : Enchainement d'un code contenant lettres et chiffres.

Re Remplacer Combi par Combi2
Les lettres DFIOQU ne seraient pas utilisées ( à cause reconnaissance optique caractères)
Chaine sLettresChiffres à modifier en conséquence

Private Sub Combi2(ByVal Nb As Long, ByVal sLettresChiffres As String, Optional ByVal sRep As String = "")
Dim j As Long, sTmp As String, L As Byte
    L = Len(sLettresChiffres)
    If Nb = 0 Then
        If Not (IsNumeric(sRep)) Then
            If Not (IsNumeric(Mid(sRep, 1, 1))) And IsNumeric(Mid(sRep, 2, 1)) And Not (IsNumeric(Mid(sRep, 3, 1))) Then
                i = i + 1
                Cells(i, 1) = sRep
            End If
        End If
    Else
        For j = 1 To L
            sTmp = sRep & Mid(sLettresChiffres, j, 1)
            Combi2 Nb - 1, sLettresChiffres, sTmp
        Next j
    End If
End Sub