Discussion :

[modus57]

Bonjour.

Je n’arrive pas a extraire les caractères « (A2;'[Adhérents.xls]BD Adhérents!$A:$A; » :

de la chaîne suivante
« RECHERCHE(A2;'[Adhérents.xls]BD Adhérents!$A:$A;'[Adhérents.xls]BD Adhérents!$D:$D) »

ou de la chaîne
« SI(A2=0;"";RECHERCHE(A2;'[Clients.xls]BD CLIENTS'!$A:$A;'[Clients.xls]BD CLIENTS'!$D:$D)) ».

Après plusieurs recherches sur les forums, j’ai essayé le code suivant, mais ça ne fonctionne pas

Code :

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

1
2
3
4
 
For Each c In ActiveSheet.UsedRange.SpecialCells(xlFormulas)
    Mid(c.Formula, InStrRev(c.Formula, "(") , InStrRev(c.Formula, ","))
Next

Une erreur de syntaxe sans doute.

Pourriez-vous m’aider SVP, je ne trouve pas de solution.

Merci d’avance.

[Qwazerty]

Salut
Pourrais tu expliquer ce que tu cherches a réaliser exactement, il existe peut être une méthode "conventionnelle" pour le faire.

++
Qwaz

[mercatog]

Pour uniquement répondre à ta question et sur les exemples donnés

Code :

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

1
2
3
4
Dim c As Range
For Each c In ActiveSheet.UsedRange.SpecialCells(xlFormulas)
   MsgBox Mid(c.Formula, InStrRev(c.Formula, "(") + 1, InStrRev(c.Formula, ",") - InStrRev(c.Formula, "("))
Next c

[modus57]

Bonsoir mercatog

Cela fonctionne nickel chrome, mais j'aimerai une petite explication sur le principe.

Je plane un peu.

Merci

[mercatog]

Code :

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

a=InStrRev(c.Formula, "(")  'la position du dernier (

Code :

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

b=InStrRev(c.Formula, ",")  'la position du dernier ,

On veut récupérer le texte entre ces 2 positions ("("non compris mais "," comprise)
C'est à dire

Code :

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

mid(c.Formula, a+1, x)

x étant la longueur du texte final
x=b-a

[modus57]

Bonjour mercatog

J'ai compris, maintenant c'est clair comme de l'eau de roche.

Merci à toi et à Qwazerty.

Cordialement modus57.