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
Raymond [mvp]
Bonsoir.
pour cet exemple précis de 0/1, tu peux faire par exemple: T étant le string contenant la valeur Dim nombre As Integer Dim Ix As Integer For Ix = 1 To Len(T) nombre = nombre + Mid(T, Ix, 1) Next Ix MsgBox nombre
on peut passer aussi dans une boucle par InStr de "1" dans T qui sera beaucoup plus rapide et conviendra pour tous les caractères. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://www.mpfa.info/ pour débuter sur le forum. l'abonnement TechNet ! http://www.microsoft.com/france/technet/presentation/cd/default.mspx
"Luc de Kin" a écrit dans le message de news:
Bonsoir,
Existe-t-il une fonction particuliere pour compter des caracteres identiques dans un string ?
Par exemple, combien y-a-t-il de 1 dans 111110000100111 ?
Merci deja et bonne soiree a tous !
Luc
Bonsoir.
pour cet exemple précis de 0/1, tu peux faire par exemple:
T étant le string contenant la valeur
Dim nombre As Integer
Dim Ix As Integer
For Ix = 1 To Len(T)
nombre = nombre + Mid(T, Ix, 1)
Next Ix
MsgBox nombre
on peut passer aussi dans une boucle par InStr de "1" dans T qui sera
beaucoup plus rapide et conviendra pour tous les caractères.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
l'abonnement TechNet !
http://www.microsoft.com/france/technet/presentation/cd/default.mspx
"Luc de Kin" <LucdeKin@discussions.microsoft.com> a écrit dans le message de
news: B33A223B-1067-4187-AD39-5A6CA4B75937@microsoft.com...
Bonsoir,
Existe-t-il une fonction particuliere pour compter des caracteres
identiques
dans un string ?
Par exemple, combien y-a-t-il de 1 dans 111110000100111 ?
pour cet exemple précis de 0/1, tu peux faire par exemple: T étant le string contenant la valeur Dim nombre As Integer Dim Ix As Integer For Ix = 1 To Len(T) nombre = nombre + Mid(T, Ix, 1) Next Ix MsgBox nombre
on peut passer aussi dans une boucle par InStr de "1" dans T qui sera beaucoup plus rapide et conviendra pour tous les caractères. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://www.mpfa.info/ pour débuter sur le forum. l'abonnement TechNet ! http://www.microsoft.com/france/technet/presentation/cd/default.mspx
"Luc de Kin" a écrit dans le message de news:
Bonsoir,
Existe-t-il une fonction particuliere pour compter des caracteres identiques dans un string ?
Par exemple, combien y-a-t-il de 1 dans 111110000100111 ?
Merci deja et bonne soiree a tous !
Luc
3stone
Salut,
"Luc de Kin" | Existe-t-il une fonction particuliere pour compter des caracteres identiques | dans un string ? | | Par exemple, combien y-a-t-il de 1 dans 111110000100111 ?
"Luc de Kin"
| Existe-t-il une fonction particuliere pour compter des caracteres identiques
| dans un string ?
|
| Par exemple, combien y-a-t-il de 1 dans 111110000100111 ?
"Luc de Kin" | Existe-t-il une fonction particuliere pour compter des caracteres identiques | dans un string ? | | Par exemple, combien y-a-t-il de 1 dans 111110000100111 ?
