[VBA] Traduire ma condition ? (contenir exactement un seul "0" )
Résolu/Fermé
ludobalu
Messages postés
276
Date d'inscription
dimanche 18 mai 2008
Statut
Membre
Dernière intervention
13 février 2015
-
31 oct. 2012 à 11:34
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 31 oct. 2012 à 13:52
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 31 oct. 2012 à 13:52
A voir également:
- [VBA] Traduire ma condition ? (contenir exactement un seul "0" )
- Traduire une page web - Guide
- Excel cellule couleur si condition texte - Guide
- Traduire un document word - Guide
- Traduire photo - Guide
- Traduire un pdf volumineux gratuitement - Télécharger - Traduction
2 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
31 oct. 2012 à 12:20
31 oct. 2012 à 12:20
Bonjour
en VBA
en VBA
Dim test As Boolean test = (Len(tontexte) - Len(Replace(tontexte, 0, "")) = 1)
ludobalu
Messages postés
276
Date d'inscription
dimanche 18 mai 2008
Statut
Membre
Dernière intervention
13 février 2015
6
31 oct. 2012 à 12:32
31 oct. 2012 à 12:32
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 :
Aurais-tu une idée ?
Merci beaucoup.
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.
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
31 oct. 2012 à 13:52
31 oct. 2012 à 13:52
Rappel: proposition en VBA donc VB?
tontexte=rst_card.Fields("i_Card")
If test = (Len(tontexte) - Len(Replace(tontexte, 0, "")) = 1) =true then
tontexte=rst_card.Fields("i_Card")
If test = (Len(tontexte) - Len(Replace(tontexte, 0, "")) = 1) =true then