Macro replace signe "-"

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

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.

Code:

---

1 2 3 4

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

---

Bonjour.

Pour remplacer tout sauf premier caractere :

Code:

---

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

---

Citation:

---

Envoyé par Docmarti

Pour remplacer tout sauf premier caractere :

Code:

---

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.

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 !!

Citation:

---

Envoyé par Menhir

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:

---

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.

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

Code:

---

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

Citation:

---

Envoyé par 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

---

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

Code:

---

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

---

Citation:

---

Envoyé par patricktoulon

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é.

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

alors ceci par exemple

Code:

---

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:

---

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

---