pb de conditions

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : pb de conditions

toutoun88

J'ai un petit probleme de condition, voila mon script:
If (pos1 = Application.WorksheetFunction.Find(".", truc, 1)) Then

Ce que je veux c'est que si un point existe dans la chaine truc, alors il me met sa position dans pos1.
ça marche en C, mais ça veut pas marcher en VB. Comment faire?

Publicité

cvb

Comment ça ? Tu veux rechercher un point "." dans une chaine ? mettre ensuite son emplacement ? rien de plus simple...

La recette elle est pas compliqué :
- une boucles
- le code ASCII
- une condition
- une variable

Code :

dim i as integer
dim nb_caractere as integer 'nombre de caractère dans la chaine
dim char_retour as string 'caractère retourné
dim char_position
nb = len("chaine de caractère" )
for i = 1 to nb
char_retour = mid("chaine de caractère",i,1)
if char_retour = "." then
char_position = i
end if
next i

Voilà, en trés gros ton code ! Tu vérifi, simplement la fonction "mid" à partir de l'aide de VB. C'est une fonction qui permet de connaître la position d'un caractère dans une chaine.

Ensuite, si tu as plusieurs points, tu peux faire un tableaux dynamique et l'intégrer dans la condition...

Message édité par cvb le 25-04-2003 à 20:18:43

MagicBuzz

cvb a écrit :

Code :

dim i as integer
dim nb_caractere as integer 'nombre de caractère dans la chaine
dim char_retour as string 'caractère retourné
dim char_position
nb = len("chaine de caractère" )
for i = 1 to nb
char_retour = mid("chaine de caractère",i,1)
if char_retour = "." then
char_position = i
end if
next i

euh... t'as pas trouvé plus compliqué ? :lol:

pour retrouver l'index d'un caractères dans une chaine, c'est :

pos = inStr(lachaine, lachaineàtrouver)

Ca retourne l'index de lachauneàtrouver, ou -1 si elle n'est pas trouvée.

D'ailleurs, c'est inStr que tu as décrit dans ton explication.

Mid, ça retourne la sous-chaine de l'ongueur y en partant de l'index x

str = Mid(lachaine, x, y)

Message édité par MagicBuzz le 27-04-2003 à 03:46:06

cvb

MagicBuzz a écrit :

moi ? :whistle: non ! c'est une méthode lourde, mais qui marche...

toutoun88

@MagicBuzz

Merci, ça marche inStr. Mais j'ai encore un petit probleme, voila mon code:

If (InStr(formule, "." ) <> -1) Then
...
End If

Le probleme est que quelque soit la chaine, qu'il y ai un "." ou pas, le programme execute ce qu'il y a dans la boucle. Alors que normalement, si la chaine ne contient pas de point, la fonction inStr retourne -1 comme tu me la dis, et donc ne devrait pas rentrer dans la boucle.

T'es sur que inStr retourne -1 si la chaine n'est pas trouvée?

toutoun88

@ MagicBuzz

Non, c'est bon, j'ai trouvé, inStr retourne 0 si la chaine n'est pas trouvée.

Merci

MagicBuzz

Arf, oui, c'est vrai, c'est 0, puisque ça commence à 1

toutoun88

@MagicBuzz

Et oui, c'est pas du C!

FORUM HardWare.fr

Programmation

VB/VBA/VBS

pb de conditions

Sujets relatifs
[ACCESS] données d'un état visible avec conditions ?	[ASP] Conditions if imbriquées???
comment faire un IF ( ){ } avec plusieurs conditions?	Les conditions ! Existe , Existe pas ? TOUS ?
rediriger selon des conditions?	SQL des conditions dans une vue, c possible !?
[ACCESS] Aide sur les conditions dans les macros	Excel : Comment mettre plusieurs conditions dans une formule ?
peut on faire des conditions sur la taille des fichiers avec un batch
Plus de sujets relatifs à : pb de conditions

Page générée en 0.053 secondes