Probleme de synthaxe forlumaR1C1 et la fonction concatener
Bonjour,
je tente de concatener 3 cellules dans une nouvelle et la ligne de code fonctionnant est la suivante :
Code:
1
2
3
| ActiveSheet.Range("H8").Select
ActiveCell.FormulaR1C1 = _
"=CONCATENATE(C[-5]&""-""&C[-2]&""-""&C[-1])" |
Cependant 2 de mes cellules sont en format texte alors que la 3eme est en format speciale "000" afin d'avoir toujours un numero a trois chiffres.
Ex : C2 := "XX10"
F2 := "AA"
G2 := "001"
En concatenant il est sence me donner : XX10-AA-001
Mais j'obtient : XX10-AA-1
Lorsque le code se met en route il concatene bien ce que je veux mais pour la derniere cellule il ne semble pas tenir compte du format special.
J'ai alors cherche differentes solutions,developpees ci-dessous, pour remedier a ce probleme :
Code:
1
2
3
| ActiveSheet.Range("H8").Select
ActiveCell.FormulaR1C1 = _
"=CONCATENATE(C[-5]&""-""&C[-2]&""-""&SPECIAL((C[-1]);"000")" |
Code:
1
2
3
| ActiveSheet.Range("H8").Select
ActiveCell.FormulaR1C1 = _
"=CONCATENATE(C[-5]&""-""&C[-2]&""-""&NUMBER((C[-1]);"##0")" |
Or ces codes ne fonctionnent pas du a une mauvaise synthaxe.
Pouvez-vous m'aider ?
Amicalement
