Discussion :

[tibofo]

Bonjour,
J'ai un champ texte dans une table CLIENT. (la table provient d'un import d'un fichier texte d'un autre logiciel)

Le champ se nomme CODETARIF (3 caractères txt)

Mon pb est que je dois le faire évoluer et je ne sais pas comment m'y prendre.

Le code ressemble à ceci dans plusieurs fiches CLIENTS :

100
109
1AB
1FE
1ZZ
...

Bref le code est sur 3 caractères :
le 1er toujours le chiffre 1 (ne changera jamais)
le 2ème les chiffres de 0 à 9 puis les lettres de A à Z
le 3ème les chiffres de 0 à 9 puis les lettres de A à Z

Donc si dans une fiche client, je trouve :
100 -- je dois obtenir --> 101
109 -- je dois obtenir --> 110
1AB -- je dois obtenir --> 1AC
1FE -- je dois obtenir --> 1FF
1ZZ -- je dois obtenir --> 100 (ici j'ai fait le tour !)

Savez-vous comment je peux gérer un tel comptage ?

Merci

[Manhexter]

Salutations,

Petite fonction qui je l'espère répondra à ton besoin (J'ai joué sur la table ascii pour l'incrémentation) :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Function GetNextCode(code As String) As String
 
Dim retenue As Integer
Dim car2 As String
Dim car3 As String
 
retenue = 0
 
If code = "1ZZ" Then
    GetNextCode = "100"
    Exit Function
End If
 
If Val(code) >= 100 And Val(code) <= 199 Then
    GetNextCode = CStr(Val(code) + 1)
    Exit Function
Else
    If Asc(Mid(code, 3, 1)) = 57 Then
        car3 = Chr(65)
    ElseIf Asc(Mid(code, 3, 1)) = 90 Then
        car3 = Chr(48)
        retenue = 1
    Else
        car3 = Chr(Asc(Mid(code, 3, 1)) + 1)
    End If
 
    If retenue = 1 Then
        If Asc(Mid(code, 2, 1)) = 57 Then
            car2 = Chr(65)
        Else
            car2 = Chr(Asc(Mid(code, 2, 1)) + 1)
        End If
    Else
        car2 = Mid(code, 2, 1)
    End If
End If
 
GetNextCode = "1" & car2 & car3
 
End Function

Cette fonction suit l'incrémentation suivante :

- De 100 à 199
- De 1A0 (juste après 199) à 1AZ
- De 1B0 (juste après 1AZ) à 1BZ
- ....jusqu'à 1ZZ

[tibofo]

Merci je vais tester ceci ce soir.

En attendant pour ceux qui liraient ce post un jour. Dans la soluce de Manhexter, voici l'explication de fonctions que je ne connaissais pas
(si cela peut aider) :

the Val function accepts a string as input and returns the numbers found in that string

Code :

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

1
2
3
4
5
Val("10 Main Street")  	'would return 10
Val("34 10 Main Street") 	'would return 3410
Val("  34 10 Main Street") 	'would return 3410
Val("  34 - 10 Main Street") 	'would return 34
Val("075") 	'would return 75

the CStr function converts a value to a string.

Code :

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

1
2
Dim LValue As String
LValue = CStr(8)

The LValue variable would now contain the string value of "8"

La fonction ASC
Permet de récupérer la valeur d'un caractère dans un jeu de caractères.
VB6-VBA

Code :

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

1
2
MsgBox Asc("a") 'Renvoie 97
MsgBox Asc("A") 'renvoie 65

La fonction CHR
Permet de récupérer un caractère en fonction de sa valeur dans un jeu de caractères.
VB6-VBA

Code :

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

1
2
MsgBox Chr(97) 'renvoie a
MsgBox Chr(65) 'renvoie A

[Manhexter]

Oui, désolé je n'avais pas vraiment le temps de commenter le code car j'ai fait ça assez rapidement pendant le boulot . Si mon chef savait ça

[pathieco]

J'ai besoin d'incrémenter un compteur alphabétique de AAA à ZZZ, comment faire?