Discussion :

[hichemnho]

Bonjour,


Au niveau d'une même cellule j'ai 2,47,15,1.9691e+05,-0.595,0.272 et je voudrai transformer la quatrieme valeur à savoir 1.9691e+05 pour obtenir 196910.
J'ai esseyé tout ce que j'ai pu trouver comme moyen mais je n'arrive pas à obtenir cette transformation?

Je vous remercie d'avoir pris de votre temps pour lire ce message et de vouloir m'aider.

[Invité]

Bonjour,

Une solution possible :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
 
Function ChercherEtTransformerValeurScientifique(ByVal CelluleEtudiee As Range) As Variant
 
Dim ValeurPartielle As Variant
Dim ValeurCellule As Variant
Dim I As Long
Dim PresenceE As Boolean
 
        ' Recherche caractère e
        ChercherEtTransformerValeurScientifique = ""
        ValeurCellule = ""
        PresenceE = False
        For I = 1 To Len(CelluleEtudiee)
            Select Case Mid(CelluleEtudiee, I, 1)
                   Case ","
                        If PresenceE = True Then
                           ValeurCellule = ValeurCellule & Val(ValeurPartielle) & ","
                           PresenceE = False
                        Else
                           ValeurCellule = ValeurCellule & ValeurPartielle & ","
                        End If
                        ValeurPartielle = ""
                   Case "e"
                        PresenceE = True
                        ValeurPartielle = ValeurPartielle & Mid(CelluleEtudiee, I, 1)
                   Case Else
                        ValeurPartielle = ValeurPartielle & Mid(CelluleEtudiee, I, 1)
            End Select
        Next I
 
        If PresenceE = True Then
           ChercherEtTransformerValeurScientifique = ValeurCellule & Val(ValeurPartielle)
        Else
           ChercherEtTransformerValeurScientifique = ValeurCellule & ValeurPartielle
        End If
 
End Function

Cordialement.

[mercatog]

Ou autrement

Code :

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

1
2
3
4
5
6
7
8
9
10
Function FormaterNormal(ByVal Tmp As String) As String
Dim i As Integer
Dim S
 
S = Split(Tmp, ",")
For i = LBound(S) To UBound(S)
    S(i) = Val(S(i))
Next i
FormaterNormal = Join(S, ",")
End Function

[hichemnho]

Merci à vous Eric KERGRESSE et mercatog pour vos réponses, et comme je suis débutant sur Excel les macros que vous m'avez fourni j'ai vraiment esseyer de les faire marcher mais je n'ai pas su.
Comment faire pour faire en sorte d'appliquer l'execution des instructions que vous avez choisit sur les lignes qui sont toute de la forme 2,47,15,1.9691e+05,-0.595,0.272.
Je vous remercie énormement de m'accorder de votre temps et de vouloir m'aider.

[kiki29]

Salut, voir ici

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
Function FormaterNormal(ByVal Tmp As String) As String
Dim i As Integer
Dim S
 
S = Split(Tmp, ",")
For i = LBound(S) To UBound(S)
    S(i) = Val(S(i))
Next i
FormaterNormal = Join(S, ",")
End Function

Superbe !

Cordialement.

[Invité]

Merci à vous Eric KERGRESSE et mercatog pour vos réponses, et comme je suis débutant sur Excel les macros que vous m'avez fourni j'ai vraiment esseyer de les faire marcher mais je n'ai pas su.
Comment faire pour faire en sorte d'appliquer l'execution des instructions que vous avez choisit sur les lignes qui sont toute de la forme 2,47,15,1.9691e+05,-0.595,0.272.
Je vous remercie énormement de m'accorder de votre temps et de vouloir m'aider.

Bonjour,

Ces fonctions s'utilisent comme toutes les autres fonctions. Dans le classeur joint, la fonction est installée dans le module standard Module1.

Cordialement.

[hichemnho]

Eric KERGRESSE, kiki29,mercatog, merci infiniment d'avoir pris de votre temps afin de m'aider, merci énormement.