) dans une condition d'une fonction

Bonsoir à tous,

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

Code:

---

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

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

Citation:

---

mais cela ne fonctionne pas.

---

n'a aucun sens précis ...

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

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

Citation:

---

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

---

2)

Citation:

---

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

---

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

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 )

Code:

---

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

---

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

Une petite question à mon tour "unparia" tu es un expert éminent de quoi ?:aie:

Citation:

---

Une petite question à mon tour "unparia" tu es un expert éminent de quoi ?

---

de l'analyse des demandes d'aide ...
Je vois que tu as fini par poster ton code pendant que je te répondais.
Et comme (voir ma phrase juste au-dessus), j'analyse les demandes, je ne comprends pas cette énorme fossé entre
1) ta demande originelle :

Citation:

---

Je cherche à créer une condition si le caractère dans une chaine est égal à ) soit Chr(41)

---

confortée par le titre que tu as donné :

Citation:

---

) dans une condition d'une fonction

---

et le code que tu montres maintenant, qui me parait être la recherche/exercice du nième caractère numérique présent dans une chaîne de caractères !
Etrange, n'est-il pas ?

A moins que tu ne cherches à déterminer la position du premier ")" apparaissant après le dernier caractère numérique ?
Allez -->> je vais t'aider, mais tu vas faire l'effort (tu as un clavier) d'exposer clairement et précisément les tenants et aboutissants.

oui je vois tu es quelqu'un qui ne peut pas répondre à une question simple. Tu as besoin d'un marteau pilon pour enfoncer un clou (au cas où...) ou bien de remonter à l'origine du monde :D

Ma question est simple :
Est-ce que la ligne de commande :

Code:

---

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

---

est correcte en terme de syntaxe dans une fonction ou bien y-a-t-il une erreur sur la partie = Chr(41) sensée représenter le caractère ) ?

Merci d'avance pour ton efficacité

Citation:

---

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

---

correcte ? Ben oui, elle l'est (dans la mesure ou i ne devient jamais < 0)
Et ")" a bien 41 pour valeur ascii.
Ton mécanisme, par contre ... (je préfère me taire)
Bon -->> débrouille toi avec ce que je vais bâcler là --->>

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

public function posnd2(cellule as range, N as long) as string dim k as integer, nb as integer with cellule if not .text like worksheetfunction.rept("*#", N) & "*)*" then posnd2 = "pas de " & N & "ième chiffre ou pas de "")"" après le " & N & "ième chiffre": exit function else for k = 1 To len(.text) if isnumeric(mid(.text, k, 1)) then nb = nb + 1 if nb = N then exit For Next posnd2 = "position du ) suivant le " & N & "ième caractère : " & cstr(inStr(k, .text, ")")) end If end with end function

---

à tester/appeler par exemple ainsi :

Code:

---

msgbox posnd2(range("A1"), 2)

---

et ne me demande pas d'explications (moi, je ne fais qu'enfoncer des clous et code un peu au hasard,).
Bonne chance

Merci je suis vraiment très impressionné 8O