[VBA] Traduire ma condition ? (contenir exactement un seul "0" )

Résolu
ludobalu Messages postés 286 Statut Membre -  
michel_m Messages postés 18903 Statut Contributeur -
Bonjour,

Je m'explique, je bug complètement sur une condition que je souhaite réaliser, j'aimerais que la condition signifie "contient exactement un seul '0' mais peut contenir d'autres caractères"

Sauriez vous m'aider ?


Merci énormément à vous et bonne journée !
A voir également:

2 réponses

michel_m Messages postés 18903 Statut Contributeur 3 317
 
Bonjour

en VBA
Dim test As Boolean
test = (Len(tontexte) - Len(Replace(tontexte, 0, "")) = 1) 

0
ludobalu Messages postés 286 Statut Membre 6
 
Tout d'abord, merci énormément pour ta réponse.
Seulement, j'ai utiliser cette condition pour un champ d'une table et je ne vois pas comment l'incorporer dans ta réponse, voici ma ligne de code où j'aimerais insérer la condition :

If rst_card.Fields("i_Card") 'contient un "0" (seulement un)' Then


Aurais-tu une idée ?

Merci beaucoup.
0
michel_m Messages postés 18903 Statut Contributeur 3 317
 
Rappel: proposition en VBA donc VB?

tontexte=rst_card.Fields("i_Card")
If test = (Len(tontexte) - Len(Replace(tontexte, 0, "")) = 1) =true then
0