Bonjour, j'aimerais écrire une fonction en VBA qui me permet de compter un entié

Fermé
pousgo1 - 5 nov. 2021 à 16:16
yg_be Messages postés 21303 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mars 2023 - 5 nov. 2021 à 17:59
Bonjour,

J'aimerais écrire une fonction en VBA qui me permet de compter le nombre d'entier inférieures ou égal à n comportant au moins une fois le chiffre donné b.

Dim b As Byte
Dim n As Integer
Dim Nbre As Byte
'Dim Sum As Integer

Dim U As Integer
Dim R As Byte

Dim Cpt As Byte

b = 3
n = 31

For Cpt = 0 To n

U = Cpt
While U > 0
R = U Mod 10
If R = b Then
Nbre = Nbre + 1
End If
U = U \ 10

Wend

Next
MsgBox Nbre

J'ai cette fonction mais elle ne m'envoie pas e résultat attendue.
Configuration: Windows / Edge 95.0.1020.40
A voir également:

1 réponse

yg_be Messages postés 21303 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mars 2023 1 326
5 nov. 2021 à 17:59
bonjour, quel résultat obtiens-tu?
merci d'utiliser les balises de code quand tu partages du code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
(le VBA est du basic)
0