Tout d'abord, merci à LSteph et à JLuc qui m'ont bien aidé hier. J'ai
enfin réussi à faire ce que je voulais grâce aux éléments qu'ils m'ont
apporté.
Mais comme je veux pas les laisser sur cette victoire ;-), j'ai laissé
ici http://cjoint.com/?kgtHPs5KhP une autre énigme à résoudre. Tout est
expliqué dedans.
Bonne soirée à tous et encore merci pour votre aide :-)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LSteph
Bonsoir Aka, Sauf erreur, ou omission dans ton énoncé, pour le cas2 il ya 5 car 5 zéros se suivent. Voici pour le cas1 et qui répond à l'énoncé et donne bien 7:
Function tserie(mystr As String) As Integer Dim last As String, chi As String Dim cpt As Integer For i = 1 To Len(mystr) chi = Mid(mystr, i, 1) cpt = cpt + 1 If Not chi = last Then cpt = 1 last = chi Else If cpt > tserie Then tserie = cpt last = chi End If Next
End Function
'lSteph "Aka" a écrit dans le message de news:
Bonsoir à tous,
Tout d'abord, merci à LSteph et à JLuc qui m'ont bien aidé hier. J'ai enfin réussi à faire ce que je voulais grâce aux éléments qu'ils m'ont apporté.
Mais comme je veux pas les laisser sur cette victoire ;-), j'ai laissé ici http://cjoint.com/?kgtHPs5KhP une autre énigme à résoudre. Tout est expliqué dedans.
Bonne soirée à tous et encore merci pour votre aide :-)
Bonsoir Aka,
Sauf erreur, ou omission dans ton énoncé, pour le cas2 il ya 5 car 5 zéros
se suivent.
Voici pour le cas1 et qui répond à l'énoncé et donne bien 7:
Function tserie(mystr As String) As Integer
Dim last As String, chi As String
Dim cpt As Integer
For i = 1 To Len(mystr)
chi = Mid(mystr, i, 1)
cpt = cpt + 1
If Not chi = last Then
cpt = 1
last = chi
Else
If cpt > tserie Then tserie = cpt
last = chi
End If
Next
End Function
'lSteph
"Aka" <akacio@free.fr> a écrit dans le message de news:
uOYQ7xpyFHA.3860@TK2MSFTNGP09.phx.gbl...
Bonsoir à tous,
Tout d'abord, merci à LSteph et à JLuc qui m'ont bien aidé hier. J'ai
enfin réussi à faire ce que je voulais grâce aux éléments qu'ils m'ont
apporté.
Mais comme je veux pas les laisser sur cette victoire ;-), j'ai laissé ici
http://cjoint.com/?kgtHPs5KhP une autre énigme à résoudre. Tout est
expliqué dedans.
Bonne soirée à tous et encore merci pour votre aide :-)
Bonsoir Aka, Sauf erreur, ou omission dans ton énoncé, pour le cas2 il ya 5 car 5 zéros se suivent. Voici pour le cas1 et qui répond à l'énoncé et donne bien 7:
Function tserie(mystr As String) As Integer Dim last As String, chi As String Dim cpt As Integer For i = 1 To Len(mystr) chi = Mid(mystr, i, 1) cpt = cpt + 1 If Not chi = last Then cpt = 1 last = chi Else If cpt > tserie Then tserie = cpt last = chi End If Next
End Function
'lSteph "Aka" a écrit dans le message de news:
Bonsoir à tous,
Tout d'abord, merci à LSteph et à JLuc qui m'ont bien aidé hier. J'ai enfin réussi à faire ce que je voulais grâce aux éléments qu'ils m'ont apporté.
Mais comme je veux pas les laisser sur cette victoire ;-), j'ai laissé ici http://cjoint.com/?kgtHPs5KhP une autre énigme à résoudre. Tout est expliqué dedans.
Bonne soirée à tous et encore merci pour votre aide :-)
Aka
Bonsoir Aka, Sauf erreur, ou omission dans ton énoncé, pour le cas2 il ya 5 car 5 zéros se suivent.
Ok mais en fait on détermine au départ le caractère que l'on cherche et on ignore les autres. Dans mon cas, je cherche juste les séries de "1".
Voici pour le cas1 et qui répond ā l'énoncé et donne bien 7:
Function tserie(mystr As String) As Integer Dim last As String, chi As String Dim cpt As Integer For i = 1 To Len(mystr) chi = Mid(mystr, i, 1) cpt = cpt + 1 If Not chi = last Then cpt = 1 last = chi Else If cpt > tserie Then tserie = cpt last = chi End If Next
End Function
'lSteph "Aka" a écrit dans le message de news:
Bonsoir ā tous,
Tout d'abord, merci ā LSteph et ā JLuc qui m'ont bien aidé hier. J'ai enfin réussi ā faire ce que je voulais grâce aux éléments qu'ils m'ont apporté.
Mais comme je veux pas les laisser sur cette victoire ;-), j'ai laissé ici http://cjoint.com/?kgtHPs5KhP une autre énigme ā résoudre. Tout est expliqué dedans.
Bonne soirée ā tous et encore merci pour votre aide :-)
Bonsoir Aka,
Sauf erreur, ou omission dans ton énoncé, pour le cas2 il ya 5 car 5 zéros
se suivent.
Ok mais en fait on détermine au départ le caractère que l'on cherche et
on ignore les autres. Dans mon cas, je cherche juste les séries de "1".
Voici pour le cas1 et qui répond ā l'énoncé et donne bien 7:
Function tserie(mystr As String) As Integer
Dim last As String, chi As String
Dim cpt As Integer
For i = 1 To Len(mystr)
chi = Mid(mystr, i, 1)
cpt = cpt + 1
If Not chi = last Then
cpt = 1
last = chi
Else
If cpt > tserie Then tserie = cpt
last = chi
End If
Next
End Function
'lSteph
"Aka" <akacio@free.fr> a écrit dans le message de news:
uOYQ7xpyFHA.3860@TK2MSFTNGP09.phx.gbl...
Bonsoir ā tous,
Tout d'abord, merci ā LSteph et ā JLuc qui m'ont bien aidé hier. J'ai
enfin réussi ā faire ce que je voulais grâce aux éléments qu'ils m'ont
apporté.
Mais comme je veux pas les laisser sur cette victoire ;-), j'ai laissé ici
http://cjoint.com/?kgtHPs5KhP une autre énigme ā résoudre. Tout est
expliqué dedans.
Bonne soirée ā tous et encore merci pour votre aide :-)
Bonsoir Aka, Sauf erreur, ou omission dans ton énoncé, pour le cas2 il ya 5 car 5 zéros se suivent.
Ok mais en fait on détermine au départ le caractère que l'on cherche et on ignore les autres. Dans mon cas, je cherche juste les séries de "1".
Voici pour le cas1 et qui répond ā l'énoncé et donne bien 7:
Function tserie(mystr As String) As Integer Dim last As String, chi As String Dim cpt As Integer For i = 1 To Len(mystr) chi = Mid(mystr, i, 1) cpt = cpt + 1 If Not chi = last Then cpt = 1 last = chi Else If cpt > tserie Then tserie = cpt last = chi End If Next
End Function
'lSteph "Aka" a écrit dans le message de news:
Bonsoir ā tous,
Tout d'abord, merci ā LSteph et ā JLuc qui m'ont bien aidé hier. J'ai enfin réussi ā faire ce que je voulais grâce aux éléments qu'ils m'ont apporté.
Mais comme je veux pas les laisser sur cette victoire ;-), j'ai laissé ici http://cjoint.com/?kgtHPs5KhP une autre énigme ā résoudre. Tout est expliqué dedans.
Bonne soirée ā tous et encore merci pour votre aide :-)
LSteph
;-) Alors il faut exprimer ce que tu veux correctement dans ton énoncé. Tu dois pouvoir filtrer les 0 dans la boucle, pour le coup je te laisse chercher.
Je vais manger à +.
"Aka" a écrit dans le message de news:
Bonsoir Aka, Sauf erreur, ou omission dans ton énoncé, pour le cas2 il ya 5 car 5 zéros se suivent.
Ok mais en fait on détermine au départ le caractère que l'on cherche et on ignore les autres. Dans mon cas, je cherche juste les séries de "1".
Voici pour le cas1 et qui répond a l'énoncé et donne bien 7:
Function tserie(mystr As String) As Integer Dim last As String, chi As String Dim cpt As Integer For i = 1 To Len(mystr) chi = Mid(mystr, i, 1) cpt = cpt + 1 If Not chi = last Then cpt = 1 last = chi Else If cpt > tserie Then tserie = cpt last = chi End If Next
End Function
'lSteph "Aka" a écrit dans le message de news:
Bonsoir a tous,
Tout d'abord, merci a LSteph et a JLuc qui m'ont bien aidé hier. J'ai enfin réussi a faire ce que je voulais grâce aux éléments qu'ils m'ont apporté.
Mais comme je veux pas les laisser sur cette victoire ;-), j'ai laissé ici http://cjoint.com/?kgtHPs5KhP une autre énigme a résoudre. Tout est expliqué dedans.
Bonne soirée a tous et encore merci pour votre aide :-)
;-)
Alors il faut exprimer ce que tu veux
correctement dans ton énoncé.
Tu dois pouvoir filtrer les 0 dans la boucle,
pour le coup je te laisse chercher.
Je vais manger à +.
"Aka" <akacio@free.fr> a écrit dans le message de news:
u516ttqyFHA.908@tk2msftngp13.phx.gbl...
Bonsoir Aka,
Sauf erreur, ou omission dans ton énoncé, pour le cas2 il ya 5 car 5
zéros se suivent.
Ok mais en fait on détermine au départ le caractère que l'on cherche et on
ignore les autres. Dans mon cas, je cherche juste les séries de "1".
Voici pour le cas1 et qui répond a l'énoncé et donne bien 7:
Function tserie(mystr As String) As Integer
Dim last As String, chi As String
Dim cpt As Integer
For i = 1 To Len(mystr)
chi = Mid(mystr, i, 1)
cpt = cpt + 1
If Not chi = last Then
cpt = 1
last = chi
Else
If cpt > tserie Then tserie = cpt
last = chi
End If
Next
End Function
'lSteph
"Aka" <akacio@free.fr> a écrit dans le message de news:
uOYQ7xpyFHA.3860@TK2MSFTNGP09.phx.gbl...
Bonsoir a tous,
Tout d'abord, merci a LSteph et a JLuc qui m'ont bien aidé hier. J'ai
enfin réussi a faire ce que je voulais grâce aux éléments qu'ils m'ont
apporté.
Mais comme je veux pas les laisser sur cette victoire ;-), j'ai laissé
ici http://cjoint.com/?kgtHPs5KhP une autre énigme a résoudre. Tout est
expliqué dedans.
Bonne soirée a tous et encore merci pour votre aide :-)
;-) Alors il faut exprimer ce que tu veux correctement dans ton énoncé. Tu dois pouvoir filtrer les 0 dans la boucle, pour le coup je te laisse chercher.
Je vais manger à +.
"Aka" a écrit dans le message de news:
Bonsoir Aka, Sauf erreur, ou omission dans ton énoncé, pour le cas2 il ya 5 car 5 zéros se suivent.
Ok mais en fait on détermine au départ le caractère que l'on cherche et on ignore les autres. Dans mon cas, je cherche juste les séries de "1".
Voici pour le cas1 et qui répond a l'énoncé et donne bien 7:
Function tserie(mystr As String) As Integer Dim last As String, chi As String Dim cpt As Integer For i = 1 To Len(mystr) chi = Mid(mystr, i, 1) cpt = cpt + 1 If Not chi = last Then cpt = 1 last = chi Else If cpt > tserie Then tserie = cpt last = chi End If Next
End Function
'lSteph "Aka" a écrit dans le message de news:
Bonsoir a tous,
Tout d'abord, merci a LSteph et a JLuc qui m'ont bien aidé hier. J'ai enfin réussi a faire ce que je voulais grâce aux éléments qu'ils m'ont apporté.
Mais comme je veux pas les laisser sur cette victoire ;-), j'ai laissé ici http://cjoint.com/?kgtHPs5KhP une autre énigme a résoudre. Tout est expliqué dedans.
Bonne soirée a tous et encore merci pour votre aide :-)
LSteph
... Voici donc sans les 0:
Function tserie(mystr As String) As Integer
Dim last As String, chi As String Dim cpt As Integer
For i = 1 To Len(mystr) chi = Mid(mystr, i, 1)
If chi <> 0 Then cpt = cpt + 1 If Not chi = last Then cpt = 1 last = chi Else If cpt > tserie Then tserie = cpt last = chi End If Next
End Function
'lSteph "Aka" a écrit dans le message de news:
Bonsoir Aka, Sauf erreur, ou omission dans ton énoncé, pour le cas2 il ya 5 car 5 zéros se suivent.
Ok mais en fait on détermine au départ le caractère que l'on cherche et on ignore les autres. Dans mon cas, je cherche juste les séries de "1".
Voici pour le cas1 et qui répond a l'énoncé et donne bien 7:
Function tserie(mystr As String) As Integer Dim last As String, chi As String Dim cpt As Integer For i = 1 To Len(mystr) chi = Mid(mystr, i, 1) cpt = cpt + 1 If Not chi = last Then cpt = 1 last = chi Else If cpt > tserie Then tserie = cpt last = chi End If Next
End Function
'lSteph "Aka" a écrit dans le message de news:
Bonsoir a tous,
Tout d'abord, merci a LSteph et a JLuc qui m'ont bien aidé hier. J'ai enfin réussi a faire ce que je voulais grâce aux éléments qu'ils m'ont apporté.
Mais comme je veux pas les laisser sur cette victoire ;-), j'ai laissé ici http://cjoint.com/?kgtHPs5KhP une autre énigme a résoudre. Tout est expliqué dedans.
Bonne soirée a tous et encore merci pour votre aide :-)
...
Voici donc sans les 0:
Function tserie(mystr As String) As Integer
Dim last As String, chi As String
Dim cpt As Integer
For i = 1 To Len(mystr)
chi = Mid(mystr, i, 1)
If chi <> 0 Then cpt = cpt + 1
If Not chi = last Then
cpt = 1
last = chi
Else
If cpt > tserie Then tserie = cpt
last = chi
End If
Next
End Function
'lSteph
"Aka" <akacio@free.fr> a écrit dans le message de news:
u516ttqyFHA.908@tk2msftngp13.phx.gbl...
Bonsoir Aka,
Sauf erreur, ou omission dans ton énoncé, pour le cas2 il ya 5 car 5
zéros se suivent.
Ok mais en fait on détermine au départ le caractère que l'on cherche et on
ignore les autres. Dans mon cas, je cherche juste les séries de "1".
Voici pour le cas1 et qui répond a l'énoncé et donne bien 7:
Function tserie(mystr As String) As Integer
Dim last As String, chi As String
Dim cpt As Integer
For i = 1 To Len(mystr)
chi = Mid(mystr, i, 1)
cpt = cpt + 1
If Not chi = last Then
cpt = 1
last = chi
Else
If cpt > tserie Then tserie = cpt
last = chi
End If
Next
End Function
'lSteph
"Aka" <akacio@free.fr> a écrit dans le message de news:
uOYQ7xpyFHA.3860@TK2MSFTNGP09.phx.gbl...
Bonsoir a tous,
Tout d'abord, merci a LSteph et a JLuc qui m'ont bien aidé hier. J'ai
enfin réussi a faire ce que je voulais grâce aux éléments qu'ils m'ont
apporté.
Mais comme je veux pas les laisser sur cette victoire ;-), j'ai laissé
ici http://cjoint.com/?kgtHPs5KhP une autre énigme a résoudre. Tout est
expliqué dedans.
Bonne soirée a tous et encore merci pour votre aide :-)
Dim last As String, chi As String Dim cpt As Integer
For i = 1 To Len(mystr) chi = Mid(mystr, i, 1)
If chi <> 0 Then cpt = cpt + 1 If Not chi = last Then cpt = 1 last = chi Else If cpt > tserie Then tserie = cpt last = chi End If Next
End Function
'lSteph "Aka" a écrit dans le message de news:
Bonsoir Aka, Sauf erreur, ou omission dans ton énoncé, pour le cas2 il ya 5 car 5 zéros se suivent.
Ok mais en fait on détermine au départ le caractère que l'on cherche et on ignore les autres. Dans mon cas, je cherche juste les séries de "1".
Voici pour le cas1 et qui répond a l'énoncé et donne bien 7:
Function tserie(mystr As String) As Integer Dim last As String, chi As String Dim cpt As Integer For i = 1 To Len(mystr) chi = Mid(mystr, i, 1) cpt = cpt + 1 If Not chi = last Then cpt = 1 last = chi Else If cpt > tserie Then tserie = cpt last = chi End If Next
End Function
'lSteph "Aka" a écrit dans le message de news:
Bonsoir a tous,
Tout d'abord, merci a LSteph et a JLuc qui m'ont bien aidé hier. J'ai enfin réussi a faire ce que je voulais grâce aux éléments qu'ils m'ont apporté.
Mais comme je veux pas les laisser sur cette victoire ;-), j'ai laissé ici http://cjoint.com/?kgtHPs5KhP une autre énigme a résoudre. Tout est expliqué dedans.
Bonne soirée a tous et encore merci pour votre aide :-)
JLuc
Bonjour à toutes à tous et à LSteph qui nous a tapoter de ses petits doigt ce qui suit :
... Voici donc sans les 0:
Function tserie(mystr As String) As Integer
Dim last As String, chi As String Dim cpt As Integer
For i = 1 To Len(mystr) chi = Mid(mystr, i, 1)
If chi <> 0 Then cpt = cpt + 1 If Not chi = last Then cpt = 1 last = chi Else If cpt > tserie Then tserie = cpt last = chi End If Next
End Function
'lSteph "Aka" a écrit dans le message de news:
Bonsoir Aka, Sauf erreur, ou omission dans ton énoncé, pour le cas2 il ya 5 car 5 zéros se suivent.
Ok mais en fait on détermine au départ le caractère que l'on cherche et on ignore les autres. Dans mon cas, je cherche juste les séries de "1".
Voici pour le cas1 et qui répond a l'énoncé et donne bien 7:
Function tserie(mystr As String) As Integer Dim last As String, chi As String Dim cpt As Integer For i = 1 To Len(mystr) chi = Mid(mystr, i, 1) cpt = cpt + 1 If Not chi = last Then cpt = 1 last = chi Else If cpt > tserie Then tserie = cpt last = chi End If Next
End Function
'lSteph "Aka" a écrit dans le message de news:
Bonsoir a tous,
Tout d'abord, merci a LSteph et a JLuc qui m'ont bien aidé hier. J'ai enfin réussi a faire ce que je voulais grâce aux éléments qu'ils m'ont apporté.
Mais comme je veux pas les laisser sur cette victoire ;-), j'ai laissé ici http://cjoint.com/?kgtHPs5KhP une autre énigme a résoudre. Tout est expliqué dedans.
Bonne soirée a tous et encore merci pour votre aide :-)
Je vois que tu as deja repondu avec brio, je viens juste de voir le post car j'etais occupe sur un autre. je regarde pas ta solution et j'essaie demain ;-) j'espere que j'y arriverais :-? Bonne nuit a vous deux JLuc
-- Pour m'ecrire directement :
Tomorrow is another day
Bonjour à toutes à tous et à LSteph qui nous a tapoter de ses petits
doigt ce qui suit :
...
Voici donc sans les 0:
Function tserie(mystr As String) As Integer
Dim last As String, chi As String
Dim cpt As Integer
For i = 1 To Len(mystr)
chi = Mid(mystr, i, 1)
If chi <> 0 Then cpt = cpt + 1
If Not chi = last Then
cpt = 1
last = chi
Else
If cpt > tserie Then tserie = cpt
last = chi
End If
Next
End Function
'lSteph
"Aka" <akacio@free.fr> a écrit dans le message de news:
u516ttqyFHA.908@tk2msftngp13.phx.gbl...
Bonsoir Aka,
Sauf erreur, ou omission dans ton énoncé, pour le cas2 il ya 5 car 5
zéros se suivent.
Ok mais en fait on détermine au départ le caractère que l'on cherche et on
ignore les autres. Dans mon cas, je cherche juste les séries de "1".
Voici pour le cas1 et qui répond a l'énoncé et donne bien 7:
Function tserie(mystr As String) As Integer
Dim last As String, chi As String
Dim cpt As Integer
For i = 1 To Len(mystr)
chi = Mid(mystr, i, 1)
cpt = cpt + 1
If Not chi = last Then
cpt = 1
last = chi
Else
If cpt > tserie Then tserie = cpt
last = chi
End If
Next
End Function
'lSteph
"Aka" <akacio@free.fr> a écrit dans le message de news:
uOYQ7xpyFHA.3860@TK2MSFTNGP09.phx.gbl...
Bonsoir a tous,
Tout d'abord, merci a LSteph et a JLuc qui m'ont bien aidé hier. J'ai
enfin réussi a faire ce que je voulais grâce aux éléments qu'ils m'ont
apporté.
Mais comme je veux pas les laisser sur cette victoire ;-), j'ai laissé ici
http://cjoint.com/?kgtHPs5KhP une autre énigme a résoudre. Tout est
expliqué dedans.
Bonne soirée a tous et encore merci pour votre aide :-)
Je vois que tu as deja repondu avec brio, je viens juste de voir le
post car j'etais occupe sur un autre. je regarde pas ta solution et
j'essaie demain ;-)
j'espere que j'y arriverais :-?
Bonne nuit a vous deux
JLuc
--
Pour m'ecrire directement :
jeanluc.laurent@free.fr
Tomorrow is another day
Bonjour à toutes à tous et à LSteph qui nous a tapoter de ses petits doigt ce qui suit :
... Voici donc sans les 0:
Function tserie(mystr As String) As Integer
Dim last As String, chi As String Dim cpt As Integer
For i = 1 To Len(mystr) chi = Mid(mystr, i, 1)
If chi <> 0 Then cpt = cpt + 1 If Not chi = last Then cpt = 1 last = chi Else If cpt > tserie Then tserie = cpt last = chi End If Next
End Function
'lSteph "Aka" a écrit dans le message de news:
Bonsoir Aka, Sauf erreur, ou omission dans ton énoncé, pour le cas2 il ya 5 car 5 zéros se suivent.
Ok mais en fait on détermine au départ le caractère que l'on cherche et on ignore les autres. Dans mon cas, je cherche juste les séries de "1".
Voici pour le cas1 et qui répond a l'énoncé et donne bien 7:
Function tserie(mystr As String) As Integer Dim last As String, chi As String Dim cpt As Integer For i = 1 To Len(mystr) chi = Mid(mystr, i, 1) cpt = cpt + 1 If Not chi = last Then cpt = 1 last = chi Else If cpt > tserie Then tserie = cpt last = chi End If Next
End Function
'lSteph "Aka" a écrit dans le message de news:
Bonsoir a tous,
Tout d'abord, merci a LSteph et a JLuc qui m'ont bien aidé hier. J'ai enfin réussi a faire ce que je voulais grâce aux éléments qu'ils m'ont apporté.
Mais comme je veux pas les laisser sur cette victoire ;-), j'ai laissé ici http://cjoint.com/?kgtHPs5KhP une autre énigme a résoudre. Tout est expliqué dedans.
Bonne soirée a tous et encore merci pour votre aide :-)
Je vois que tu as deja repondu avec brio, je viens juste de voir le post car j'etais occupe sur un autre. je regarde pas ta solution et j'essaie demain ;-) j'espere que j'y arriverais :-? Bonne nuit a vous deux JLuc
-- Pour m'ecrire directement :
Tomorrow is another day
LSteph
;o) Bonne nuit!
"JLuc" a écrit dans le message de news:
Bonjour à toutes à tous et à LSteph qui nous a tapoter de ses petits doigt ce qui suit :
... Voici donc sans les 0:
Function tserie(mystr As String) As Integer
Dim last As String, chi As String Dim cpt As Integer
For i = 1 To Len(mystr) chi = Mid(mystr, i, 1)
If chi <> 0 Then cpt = cpt + 1 If Not chi = last Then cpt = 1 last = chi Else If cpt > tserie Then tserie = cpt last = chi End If Next
End Function
'lSteph "Aka" a écrit dans le message de news:
Bonsoir Aka, Sauf erreur, ou omission dans ton énoncé, pour le cas2 il ya 5 car 5 zéros se suivent.
Ok mais en fait on détermine au départ le caractère que l'on cherche et on ignore les autres. Dans mon cas, je cherche juste les séries de "1".
Voici pour le cas1 et qui répond a l'énoncé et donne bien 7:
Function tserie(mystr As String) As Integer Dim last As String, chi As String Dim cpt As Integer For i = 1 To Len(mystr) chi = Mid(mystr, i, 1) cpt = cpt + 1 If Not chi = last Then cpt = 1 last = chi Else If cpt > tserie Then tserie = cpt last = chi End If Next
End Function
'lSteph "Aka" a écrit dans le message de news:
Bonsoir a tous,
Tout d'abord, merci a LSteph et a JLuc qui m'ont bien aidé hier. J'ai enfin réussi a faire ce que je voulais grâce aux éléments qu'ils m'ont apporté.
Mais comme je veux pas les laisser sur cette victoire ;-), j'ai laissé ici http://cjoint.com/?kgtHPs5KhP une autre énigme a résoudre. Tout est expliqué dedans.
Bonne soirée a tous et encore merci pour votre aide :-)
Je vois que tu as deja repondu avec brio, je viens juste de voir le post car j'etais occupe sur un autre. je regarde pas ta solution et j'essaie demain ;-) j'espere que j'y arriverais :-? Bonne nuit a vous deux JLuc
-- Pour m'ecrire directement :
Tomorrow is another day
;o)
Bonne nuit!
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.35847d5ae288ab14.40692@free.fr.ns...
Bonjour à toutes à tous et à LSteph qui nous a tapoter de ses petits doigt
ce qui suit :
...
Voici donc sans les 0:
Function tserie(mystr As String) As Integer
Dim last As String, chi As String
Dim cpt As Integer
For i = 1 To Len(mystr)
chi = Mid(mystr, i, 1)
If chi <> 0 Then cpt = cpt + 1
If Not chi = last Then
cpt = 1
last = chi
Else
If cpt > tserie Then tserie = cpt
last = chi
End If
Next
End Function
'lSteph
"Aka" <akacio@free.fr> a écrit dans le message de news:
u516ttqyFHA.908@tk2msftngp13.phx.gbl...
Bonsoir Aka,
Sauf erreur, ou omission dans ton énoncé, pour le cas2 il ya 5 car 5
zéros se suivent.
Ok mais en fait on détermine au départ le caractère que l'on cherche et
on ignore les autres. Dans mon cas, je cherche juste les séries de "1".
Voici pour le cas1 et qui répond a l'énoncé et donne bien 7:
Function tserie(mystr As String) As Integer
Dim last As String, chi As String
Dim cpt As Integer
For i = 1 To Len(mystr)
chi = Mid(mystr, i, 1)
cpt = cpt + 1
If Not chi = last Then
cpt = 1
last = chi
Else
If cpt > tserie Then tserie = cpt
last = chi
End If
Next
End Function
'lSteph
"Aka" <akacio@free.fr> a écrit dans le message de news:
uOYQ7xpyFHA.3860@TK2MSFTNGP09.phx.gbl...
Bonsoir a tous,
Tout d'abord, merci a LSteph et a JLuc qui m'ont bien aidé hier. J'ai
enfin réussi a faire ce que je voulais grâce aux éléments qu'ils m'ont
apporté.
Mais comme je veux pas les laisser sur cette victoire ;-), j'ai laissé
ici http://cjoint.com/?kgtHPs5KhP une autre énigme a résoudre. Tout est
expliqué dedans.
Bonne soirée a tous et encore merci pour votre aide :-)
Je vois que tu as deja repondu avec brio, je viens juste de voir le post
car j'etais occupe sur un autre. je regarde pas ta solution et j'essaie
demain ;-)
j'espere que j'y arriverais :-?
Bonne nuit a vous deux
JLuc
--
Pour m'ecrire directement :
jeanluc.laurent@free.fr
Tomorrow is another day
Bonjour à toutes à tous et à LSteph qui nous a tapoter de ses petits doigt ce qui suit :
... Voici donc sans les 0:
Function tserie(mystr As String) As Integer
Dim last As String, chi As String Dim cpt As Integer
For i = 1 To Len(mystr) chi = Mid(mystr, i, 1)
If chi <> 0 Then cpt = cpt + 1 If Not chi = last Then cpt = 1 last = chi Else If cpt > tserie Then tserie = cpt last = chi End If Next
End Function
'lSteph "Aka" a écrit dans le message de news:
Bonsoir Aka, Sauf erreur, ou omission dans ton énoncé, pour le cas2 il ya 5 car 5 zéros se suivent.
Ok mais en fait on détermine au départ le caractère que l'on cherche et on ignore les autres. Dans mon cas, je cherche juste les séries de "1".
Voici pour le cas1 et qui répond a l'énoncé et donne bien 7:
Function tserie(mystr As String) As Integer Dim last As String, chi As String Dim cpt As Integer For i = 1 To Len(mystr) chi = Mid(mystr, i, 1) cpt = cpt + 1 If Not chi = last Then cpt = 1 last = chi Else If cpt > tserie Then tserie = cpt last = chi End If Next
End Function
'lSteph "Aka" a écrit dans le message de news:
Bonsoir a tous,
Tout d'abord, merci a LSteph et a JLuc qui m'ont bien aidé hier. J'ai enfin réussi a faire ce que je voulais grâce aux éléments qu'ils m'ont apporté.
Mais comme je veux pas les laisser sur cette victoire ;-), j'ai laissé ici http://cjoint.com/?kgtHPs5KhP une autre énigme a résoudre. Tout est expliqué dedans.
Bonne soirée a tous et encore merci pour votre aide :-)
Je vois que tu as deja repondu avec brio, je viens juste de voir le post car j'etais occupe sur un autre. je regarde pas ta solution et j'essaie demain ;-) j'espere que j'y arriverais :-? Bonne nuit a vous deux JLuc
