Vbs fonction chaine
Résolu/Fermé
analog101
tompols
- Messages postés
- 173
- Date d'inscription
- mardi 1 avril 2008
- Statut
- Membre
- Dernière intervention
- 25 février 2020
tompols
- Messages postés
- 1219
- Date d'inscription
- jeudi 29 juillet 2004
- Statut
- Contributeur
- Dernière intervention
- 25 novembre 2013
2 réponses
tompols
6 janv. 2010 à 10:26
- Messages postés
- 1219
- Date d'inscription
- jeudi 29 juillet 2004
- Statut
- Contributeur
- Dernière intervention
- 25 novembre 2013
6 janv. 2010 à 10:26
Bonjour,
regarde ici : https://forums.commentcamarche.net/forum/affich-15699375-vba-saisir-une-valeur-et-afficher-resultat#12
regarde ici : https://forums.commentcamarche.net/forum/affich-15699375-vba-saisir-une-valeur-et-afficher-resultat#12
'la somme des chiffres en position impaire for i = 1 to 11 step 2 somimpair = somimpair + cint(mid(nombre,i,1)) next 'la somme des chiffres en position paire for i = 2 to 12 step 2 sompair = sompair + cint(mid(nombre,i,1)) next