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

Résolu

ludobalu Messages postés 286 Statut Membre -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention - 31 oct. 2012 à 13:52

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 !

Afficher la suite

A voir également:

[VBA] Traduire ma condition ? (contenir exactement un seul "0" )
Remettre a 0 un pc - Guide
Comment traduire une page internet - Guide
Traduire photo - Guide
0 facebook - Guide
Code ascii de 0 - Guide

2 réponses

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

en VBA
```
Dim test As Boolean
test = (Len(tontexte) - Len(Replace(tontexte, 0, "")) = 1) 
```
0
Réponse 2 / 2
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
1. michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320
  
  Rappel: proposition en VBA donc VB?
  
  tontexte=rst_card.Fields("i_Card")
  If test = (Len(tontexte) - Len(Replace(tontexte, 0, "")) = 1) =true then
  
  0

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

2 réponses

Discussions similaires

Newsletters