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.

[philppe27]

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

[unparia]

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 :

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é :

) 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.

[philppe27]

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

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

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

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é

[unparia]

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 :

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

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 :

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

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

[philppe27]

Merci je suis vraiment très impressionné