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.

[patricktoulon]

pour faire un replace global il y avais la méthode cells.replace

Code :

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

1
2
3
4
Sub test()
Set plage = Range("A1", Cells(Rows.Count, 1).End(xlUp))
plage.Cells.Replace "-", "E-", xlPart
End Sub

qui pour le coup change le format de cellule en mémé temps

[Docmarti]

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

Exemple d'utilisation du parametre [Start] dans Replace :

Code :

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

1
2
3
4
5
6
7
Sub Inserer_avec_Replace()
' Replace(Expression, Find, Replace, [Start], [Count], [Compare])
 a = "1234567890"
 txt = Left(a, 2) & "__" & Replace(a, "", "", 3)
 
'Le resultat est : 12__34567890
End Sub

[Menhir]

pour faire un replace global il y avais la méthode cells.replace
qui pour le coup change le format de cellule en mémé temps

Sauf que si le "-" est en premier caractère, ça ne va pas donner le résultat souhaité.

[patricktoulon]

re
autant pour moi je n'avais pas pris en compte les nombre négatifs

alors ceci par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub test()
dim f, i as long 
For i = 1 To 3
f = Split(Cells(i, 1), "-")
If UBound(f) = 2 Then
Cells(i, 1) = Replace(Cells(i, 1), f(1), f(1) & "E")
Else
Cells(i, 1) = Replace(Cells(i, 1), f(0), f(0) & "E")
End If
Next
End Sub

ou la même simplifiée

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub test2()
dim f, i as long ,ind as long 
For i = 1 To 3
f = Split(Cells(i, 1), "-")
ind = UBound(f)
Cells(i, 1) = Replace(Cells(i, 1), f(ind - 1), f(ind - 1) & "E")
Next
End Sub