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

Résolu
ludobalu Messages postés 276 Date d'inscription   Statut Membre Dernière intervention   -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
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

Réponse 1 / 2
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour

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

0
Réponse 2 / 2
ludobalu Messages postés 276 Date d'inscription   Statut Membre Dernière intervention   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 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Rappel: proposition en VBA donc VB?

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

Discussions similaires

Un seul de mes écouteurs marche. Que faire ?
VM_417 -
vali54 -

4 réponses
Quel pilote pour ACPI\INT33A0 *INT33A0
MrMeeTron -
cheeta -

19 réponses
faire afficher "0" à la place de #N/A
sunray2000 -
Nono -

7 réponses
écrire un zéro barré
jaja -
Aurélie19 -

8 réponses