[E-03] Passage Argument Formule Excel

**Wildcat** · 03/12/2008, 10h28

Bonjour,

J'utilise Excel 2003.

J'ai une formule de 6 pieds de long :

Code :

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

"=TRIM(CLEAN(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(RC[-1],""("",""""),"")"",""""),""."",""""),""-"",""""),""/"",""""),"" "",CHAR(7))))"

En gros, elle substitue les caractères "spéciaux" parenthèses ouverte, parenthèse fermée, le point, etc... avec rien. Puis, converti les espaces dans un caractère non imprimable (Char(7)) afin de pouvoir les supprimer par Clean, et avoir une cellule avec toute les lettres coller ensemble.

ex. AGAY (ST-RAPHAEL)
devient AGAYSTRAPHAEL

J'a besoin de cette "mise en forme" pour autre chose ensuite.

Je voudrais faire 2 choses :

1) Je voudrais pouvoir "simplifier" : comme on le voit, se sont des SUBSTITUTE imbriqués les uns dans les autres.

J'aimerai pouvoir faire quelque chose comme ça :

Code :

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

1
2
3
4
5
6
7
8
    Dim OpBr
    Dim ClBr
 
    OpBr = "=SUBSTITUTE(RC[-1],""("","""")"
    ClBr = "=SUBSTITUTE(OpBr,"")"","""")"
 
 
    ActiveCell.FormulaR1C1 = ClBr

Ainsi au final, une fois que j'aurai creer tout mes Dim qui sont une décomposition de la formule initiale, je n'aurai plus qu'une formule simple avec le résultat final.

Problème : A ce stade déjà ça ne fonctionne pas. Je suis presque certaine que c'est lié à la syntaxe (doit manque un & ou un ' quelque part).

Une idée?

2) L'objectif est de tester si je peux par ce biais passer outre la limitation excel de 7 fonctions imbriquées. Le formule telle qu'elle existe à ce jour atteint cette limite et j'ai encore d'autre caractères que j'aimerai supprimer (les virgules par exemple).

Voilà. D'avance, merci de votre aide

**jolop35** · 03/12/2008, 11h49

Bonjour

Voici une autre approche de ton problème.

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
Function Alphanum(sTr$)
For i = 1 To Len(sTr)
    sChr = Mid(sTr, i, 1)
        If sChr Like "[A-Z,a-z,0-9]" Then
        CStrg = CStrg & sChr
        End If
    Next
Alphanum = CStrg
End Function
Sub nettoie()
Dim c As Range
For Each c In ActiveSheet.UsedRange
c = Alphanum(c.Text)
Next
End Sub

J.L

**Wildcat** · 03/12/2008, 14h46

Alors là je dis MÔSSIEUR J.L !!

C'est génial !!

J'ai modifié un peu car je ne doit pas tout nettoyer, je dois conserver les données originales + mon fichier fait un paquet de colonnes qui n'ont pas besoin d'être nettoyées, et je veux aussi virer les chiffres :

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
19
20
21
22
23
24
Function Alphanum(sTr$)
For i = 1 To Len(sTr)
    sChr = Mid(sTr, i, 1)
        If sChr Like "[A-Z,a-z]" Then
        CStrg = CStrg & sChr
        End If
    Next
Alphanum = CStrg
End Function
 
Sub NewCodes()
 
    Columns("G:G").Insert Shift:=xlToRight
    Range("F3", Range("D3").End(xlDown).Offset(0, 2)).Copy
    Range("G3", Range("D3").End(xlDown).Offset(0, 3)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 
Dim c As Range
For Each c In ActiveSheet.Range("G3", Range("D3").End(xlDown).Offset(0, 3))
c = Alphanum(c.Text)
Next
 
End sub

Il me reste cependant un caractères qui n'est pas nettoyé avec ce code : la virgule...

Une idée?

**jolop35** · 03/12/2008, 16h43

Bonsoir

Je modifierai ton code ainsi

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub NewCodes()
Dim aWS As Worksheet, c As Range
Set aWS = ActiveSheet
aWS.Columns("G:G").Insert Shift:=xlToRight
aWS.Range("F3:F" & Range("D65536").End(xlUp).Row).Copy Range("G3")
For Each c In aWS.Range("G3:G" & Range("D65536").End(xlUp).Row)
c = Alphanum(c.Text)
c = Replace(c.Text, ",", vbNullString)
Next
End Sub