Salut;
je voi que tu a fait une erreur ; j'ai ecrit b=b+c et non b=a+b
et moi aussi j'ai fait une ereur il faut initialiser "b" chaque fois
don le code devient :
Private Sub Command1_Click()
Dim a As String ' chaine de caractères source par exemple "ABC"
Dim b As String ' chaine de caractères detination donc b = "BCD"
Dim c As String ' variable intermediare
Dim d As Integer ' variable intermediare
Dim i As Integer ' por la boucle 1
Dim j As Integer ' por la boucle 2
a = "ABC"
For j = 1 To 2 'nb est le nombre c'est combien de
b = "" ' initialisation de b ici
For i = 1 To Len(a)
c = Left(a, i)
c = Right(c, 1)
d = Asc(c) 'Asc est une fonction qui renvoi le code ascci
d = d + 1 'on l'incrimente
c = Chr(d) 'Chr est la fonction inverse de Asc b b + c ' ici b b+c et non b = a+c
Next i
' b résultats intermédiaire ici tu peut l'afficher
Print b 'AFFICHER
a = b
Next j
End Sub
et je suis sure qu'il mareche tres bien;
cordialement, a+
Dim a As String 'chaine de caractères source par exemple "ABC"
Dim b As String 'chaine de caractères detination donc b = "BCD"
Dim c As String ' variable intermediare
Dim d As Byte ' variable intermediare
Dim i as byte
b = ""
a = "ABCDEF"
For i = 1 To Len(a)
c = Left(a, i)
c = Right(c, 1)
d = Asc(c) 'Asc est une fonction qui renvoi le code ascci
d = d + 1 'on l'incrimente
c = Chr(d) 'Chr est la fonction inverse de Asc
b = b + c
Next i
N’hésiter pas a poser tes questions si tu n’a pas compris ça…
a+
enfaite mon projet
le client saisie un mots et un nombre (le nombre c'est combien de fois ca doit incrementer)
par exemple il tabe "ABC" et le nombre 2
enfaite mon projet
le client saisie un mots et un nombre (le nombre c'est combien de fois ca doit incrementer)
par exemple il tabe "ABC" et le nombre 2
Donc on va faire une simple modification , avec deux boucle imbriquée :
<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
Dim a As String ' chaine de caractères source par exemple "ABC"
Dim b As String ' chaine de caractères detination donc b = "BCD"
Dim c As String ' variable intermediare
Dim d As Byte ' variable intermediare
Dim i as byte ' por la boucle 1
dim j as byte ' por la boucle 2
b = ""
a = "ABCDEF"
for j = 1 to nb ‘nb est le nombre c'est combien de fois ca doit incrementer)
For i = 1 To Len(a)
c = Left(a, i)
c = Right(c, 1)
d = Asc(c) 'Asc est une fonction qui renvoi le code ascci
d = d + 1 'on l'incrimente
c = Chr(d) 'Chr est la fonction inverse de Asc
b = b + c
Next i
‘ b résultats intermédiaire ici tu peut l’afficher
a = b
Next j
Et en fin le résultat final est dans ‘b’, tu peu afficher les résultats intermédiaire
Ou bien si tu n’a pas intéresser par les résultats intermédiaire
Donc met ‘ d d + nb’ au lieu de ‘d d + <?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" /??><st1:metricconverter w:st="on" productid="1’">1’</st1:metricconverter> dans le premier code.
