Discussion :

[projekx]

Bonjour membre du forum,

Je tente de concatener plusieurs champs d'une même ligne, certains contiennent des caractères numériques et d'autres du alphanumérique.

Sous VB, j'utilise la formule qui suit pour concatener mes champs :

Code :

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

1
2
cell.Offset(0, -1).Value = _
       "=text(RC[1],""00"") & RC[2] & TEXT(RC[3],""0000000"")

Voici un exemple de mes colonnes avec à gauche le champ concatener "Désiré"

Résultat_______Valeur1____Valeur2___Valeur3
10bla0000000____10_______bla_________0
20bla0001600____20_______bla________16
30bla0001550____30_______bla_______15,5
27bla0022055____27_______bla_____220.55

Bref, dans mon champ cumulé à gauche, ma valeur 3 doit toujours avoir 7 caractères sans virgule et les deux derniers chiffres doivent être les décimales. Présentement, le résultat que j'aurais avec ma formule arrondi les valeurs avec décimales et ne me permet pas de différencier la valeur 16 de 15.6 par exemple.

J'ai tenté de transformer manuellement les données de la valeur 3 pour obliger d'avoir des virgules en faisant une recherche avec instr pour trouver ceux qui n'ont pas de virgule et en ajouter une manuellement du genre(cell.Value = cell.Value & ",00"). Ensuite je me disais que je pourrais faire recherche et remplace pour retirer les virgules et ne conserver que les chiffres. Cependant, Excel ne considère même pas ces nouvelles virgules lorsque je tente de les rechercher.

Donc si vous pouviez me donner un coup de main, ce serait super apprécié

Merci à tous

[mercatog]

Code :

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

1
2
3
4
With Sheets("Feuil3").Range("A1:A4") 'à adapter
    .FormulaR1C1 = "=Text(RC[1],""00"") & RC[2] & LEFT(TEXT(SUBSTITUTE(SUBSTITUTE(RC[3],""."",""""),"","",""""),""0000000""),7)"
    .Value = .Value
End With

[gFZT82]

Bonjour projekx, bonjour mercatog,

De mon coté, je trouve le résultat avec

Code :

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

.FormulaR1C1 = "=TEXT(RC[1],""00"") & RC[2] & TEXT(SUBSTITUTE(RC[3],""."","","")*100,""0000000"")"

Cordialement.

[projekx]

@Mercatog
Malheureusement, ça ne fonctionne pas. Les nombres entiers n'ont pas de décimales et les montants avec une décimale après la virgule n'ont pas de deuxième décimale.

Meric pour l'essai.

@gFZT82
C'est super !!!
Ça fonction A1

Merci infiniment