VBA changer de format d'une cellule

Version imprimable

26/02/2014, 14h01
james6006

VBA changer de format d'une cellule

Bonjour,

J'aurais aimé savoir comment changer le format d'une de mes cellules, je m'explique:

j'ai un fichier pleins de données, sur lequel je viens les recopier dans mon programme vba qui me permet de les analyser.

sauf que mes données brut qui arrivent sont sous la forme:

54745; 50

et moi j'aurai aimé avoir quelquechose sous la forme 50,54745

Comme on peu le voir les chiffres décimaux s'affichent avant mon nombre entier et il y a un nombre entier ensuite, je n'arrive pas à changer cela.
j'ai plusieurs colonnes (9) avec des milliers de lignes, c'est pourquoi j'ai besoin de trouver une solution pour que cela se fasse automatiquement.

Bonjour,

via une p'tite fonction :
Code:

1 2 3 4 5 6 7 8 9 Function ConversionFormatAlaNoix#(S) SP = Split(S, ";") If UBound(SP) = 1 Then ConversionFormatAlaNoix = Val(Trim(SP(1)) & "." & Trim(SP(0))) End Function Sub Demo() MsgBox ConversionFormatAlaNoix("54745; 50") End Sub
_______________:yaisse1: ____________________________________:yaisse1: ______________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion

Merci d'avoir répondu si rapidement, (regarde j'ai commenté mon code où j'ai des problèmes).

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
For mi = 1 To 10000
        Workbooks((nomdelacq) & ".csv").Activate
        'Cells(6 + i, 3).Value = joey
        'ici je mets la valeur que j'ai récupéré (ici manuellement)
        joey = ("54745; 50")
        'je fais la conversion (qui ne marche pas)
        ConversionFormatAlaNoix (joey)
        'Range("C7:C10000").Select
        selection.Copy
        Windows("analyse.xlsm").Activate
        Sheets("Donnees").Select
        Range("C6").Value = joey
        'la valeur que j'ai dans joey n'es finalement pas convertie...:(
    Next

26/02/2014, 16h15
Marc-L

Normal car tu n'as pas fait de conversion, enfin si mais dans le vide :roll:
puis tu affectes à la cellule la valeur d'origine donc non convertie ‼

Il faut affecter à la cellule le résultat de la conversion, ligne n° 13 : [C6].Value = ConversionFormatAlaNoix(joey) …

Ensuite supprimer les lignes n°8 & 10 …

__________________________________________________________________________________________
Il n'y a pas que les aigles qui atteignent les sommets, les escargots aussi mais ils en bavent !
27/02/2014, 08h34
james6006

Je te remercie. cela fonctionne très bien.