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 :
avec une fonction genre :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Range(TxtColumnName & "3") = PubFctFormatNum(Range(TxtColumnName & "3").Offset(0, 1)) Range(TxtColumnName & "3", Range(TxtColumnName & "3").Range(TxtColumnName & "3:" & TxtColumnName & IntNbLine)).FillDown
d'où vient mon erreur s'il vous plait ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager