Retourner la valeur d'une fonction sur une colonne

Version imprimable

Bonjour,

je débute en VBA et me heurte à une incompréhension :
je souhaite récupérer en A3, puis sur chaque cellule jusqu'à la fin de la colonne A : le résultat d'une fonction qui formatera un numéro de téléphone situé en B3 puis les cellules d'en dessous. j'utilise ceci dans ma macro :
Code:

1 2 Range(TxtColumnName & "3") = PubFctFormatNum(Range(TxtColumnName & "3").Offset(0, 1)) Range(TxtColumnName & "3", Range(TxtColumnName & "3").Range(TxtColumnName & "3:" & TxtColumnName & IntNbLine)).FillDown
avec une fonction genre :
Code:

1 2 3 4 5 6 Public Function PubFctFormatNum(StrNum As Object) As String StrNum.FormulaR1C1 = _ "=TEXT(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(RC[0],""+33"",""0""),CHAR(45),""""),CHAR(46),""""),CHAR(40),""""),CHAR(41),""""),""33(0)"","""")),""0#"""" """"##"""" """"##"""" """"##"""" """"##"")" PubFctFormatNum = StrNum End Function
d'où vient mon erreur s'il vous plait ?

03/10/2013, 21h26
nibledispo

retourner la valeur d'une fonction sur une colonn

Bonsoir,

Et si tu donnais un exemple concret de ce que tu as en B et ce que tu veux obtenir en A car ta succession de 'substitute' donne le vertige.

Quelle erreur VBA te signale t-il ?

Cordialement,

Bonjour renaudjean

Il faut mettre la formule en A3 et non en B3 comme tu le fais.

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub tt()
TxtColumnName = "A"
 
   Range(TxtColumnName & "3").FormulaR1C1 = _
        "=TEXT(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(RC2,""+33"",""0""),CHAR(45),""""),CHAR(46),""""),CHAR(40),""""),CHAR(41),""""),""33(0)"","""")),""0#"""" """"##"""" """"##"""" """"##"""" """"##"")"
 
 r = Range("B" & Rows.Count).End(xlUp).Row
 
     Range(TxtColumnName & "3").AutoFill Destination:=Range("A3:A" & r), Type:=xlFillDefault
 
End Sub

Docmarti