Discussion :

[james6006]

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.

[Marc-L]

Bonjour,

via une p'tite fonction :

Code :

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

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

_______________ ____________________________________ ______________________________

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

[james6006]

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

Code :

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

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

[Marc-L]

Normal car tu n'as pas fait de conversion, enfin si mais dans le vide
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 !

[james6006]

Je te remercie. cela fonctionne très bien.