Discussion :

[coco.on.off]

Bonjour,

je tente de concatener 3 cellules dans une nouvelle et la ligne de code fonctionnant est la suivante :

Code :

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

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 :

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

1
2
3
ActiveSheet.Range("H8").Select
    ActiveCell.FormulaR1C1 = _
        "=CONCATENATE(C[-5]&""-""&C[-2]&""-""&SPECIAL((C[-1]);"000")"

Code :

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

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

[mercatog]

Code :

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

...&TEXT(C[-1],""000""))"

[coco.on.off]

Merci pour votre aide cela fonctionne

Amicalement