Discussion :

[logg06]

Bonjour à tous,

J'ai un fichier excel contenant des nombres : mon problème est que j'ai certains nombres écrits de la manière suivante : 2.537-15 (à comprendre 2.537E-15).
J'aimerais créer une macro vba qui remplace ce "-" en "E-" pour pouvoir ensuite effectuer des opérations. Etant débutant en VBA je ne connais que quelques fonctions (en l'occurence pour mon problème
la fonction replace paraît judiceuse ..). Le problème que j'ai, est que si j'effectue un replace bête et brutal sur les "-" cela me remplace bien évidemment mes nombres négatifs.

Auriez vous une solution pour n'effectuer la transformation que sur les "-" qui ne sont pas situés en début de cellule ? L'utilisation de Left pourrait elle être intéressante ?

Merci d'avance

[unparia]

Bonjour
La fonction Replace possède un argument Start, à mettre à 2 si tu ne veux pas considérer le tout premier caractère.
Ceci dit : une telle démarche (confusion entre chaînes de caractères et numériques) est étrange et ne correspond pas à l'esprit même des données informatiques.

[Menhir]

Code :

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

1
2
3
4
Dim MaCell As Range
For Each MaCell In Cells
    MaCell.Value = CDbl(Replace(MaCell, "-", "-E", 2, 1))
Next MaCell

[Docmarti]

Bonjour.

Pour remplacer tout sauf premier caractere :

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
Sub RemplacerToutSaufPremierCaractere()
 
For Each c In UsedRange
 
a1 = Mid(c.Value, 1, 1)
a2 = Mid(c.Value, 2)
 
a23 = Replace(a2, "-", "E-")
 
If IsNumeric(Evaluate(a1 & a23)) Then
 
 c.Value = a1 & a23
 
End If
 
Next

[Menhir]

Pour remplacer tout sauf premier caractere :

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
Sub RemplacerToutSaufPremierCaractere()
 
For Each c In UsedRange
 
a1 = Mid(c.Value, 1, 1)
a2 = Mid(c.Value, 2)
 
a23 = Replace(a2, "-", "E-")
 
If IsNumeric(Evaluate(a1 & a23)) Then
 
 c.Value = a1 & a23
 
End If
 
Next

Avec un CDbl, ce serait mieux.
Parce que là, on obtient une chaîne de caractères, pas une valeur.

[logg06]

Bonjour à tous,

Merci à tout le monde pour vos réponses. J'ai réussi à modifier mes cellules de la manière dont je voulais grâce à une meilleure utilisation de replace (et la fonction CDbl me sera d'ailleurs bien utile).

Bonne journée à tout le monde
A bientôt !!

[Docmarti]

Avec un CDbl, ce serait mieux.
Parce que là, on obtient une chaîne de caractères, pas une valeur.

Bonjour Menhir.
Pour eviter d'obtenir une chaine de caracteres, il faut mettre prealablement la propriete Numberformat de la cellules a Standard.

Code :

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

1
2
 c.NumberFormat = "" 'ou c.NumberFormat = "General"
c.Value = a1 & a23

J'aime bien cette technique a l'occasion car la propriete NumberFormat de la cellule s'adapte automatiquement au format de la chaine de caracteres et VBA s'occupe de convertir la chaine de caracteres au bon type.