Bonjour,je cherche à incrémenter mes codes mais il me semble que jais des probléme pour une partie de ma chaine
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
        ' a c'est une variable qui récupére la valeur converti
        Dim a As Integer
        Dim separateur As Char = "_"
        Dim cod As String = "CC_001"
        If cod.Contains("_") Then
            Dim m() As String
            m = cod.Split(separateur)
            m(1) = cod(1)
            a = CType(m(1), Integer)
        End If
je n'arrive pa a récupéré la partie 001 de la chaine pour le convertire.
pour ajouter 1 a chaque fois que le reponse est vrais
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
if reponse=Vrai
cod = ("CC_" & (a + 1).ToString)
end if
Merçi