Discussion :

[philppe27]

Bonsoir à tous,

J'ai écrit dans une fonction le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Mid(v, i, 1) = Chr(41) Then i = i - 2 Else i = i - 1

mais cela ne fonctionne pas.
Je cherche à créer une condition si le caractère dans une chaîne est égal à ) soit Chr(41).
Merci de votre aide

[unparia]

Bonjour
que contient v ?
Que contient i ?
comment v et i ont-elles été déclarées et initialisées ?

Et si i est variable dans une boucle For ... to ... Next, montre donc également cette boucle.

(j'ai égaré ma boule de cristal ;

EDIT : et

mais cela ne fonctionne pas.

n'a aucun sens précis ...

[philppe27]

J'utilise while i > 0
Je cherche à connaitre la position de ) dans une chaine de caractère dans une cellule
merci d'avance

[unparia]

1) répétons-nous donc (je ne le ferai plus)

que contient v ?
Que contient i ?
comment v et i ont-elles été déclarées et initialisées ?

2)

mais cela ne fonctionne pas.
n'a aucun sens précis ...

Et maintenant : une boucle while -->> montre cette boucle

[philppe27]

v est une chaine de caractères, i est le nbre de caractères de la chaine
pas de declaration
la fonction ne renvoie pas la position de )

[philppe27]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function posnd2(cellule As Range, N As Long)
'Position du Niéme caractère numérique
'd'une chaîne contenue dans une cellule.
'N: Entier positif (obligatoire)
v = cellule.Value
i = Len(v)
While i > 0
    If IsNumeric(Mid(v, i, 1)) Then
        k = k + 1
        If k = N Then
            posnd = i
            i = 0
        End If
    End If
    If Mid(v, i, 1) = Chr(41) Then i = i - 2 Else i = i - 1
Wend
If posnd = 0 Then posnd = "Pas de " & N & " ième chiffre."
End Function

[unparia]

Je vois que tu as "répondu" à chacune de mes demandes (réitérées, de surcroît)
Hé bien bye et bonne chance.