Problème format cellule

[gaetan40]

Bonjour,
Je voudrais savoir s'il est possible de faire une macro permettant de modifier le "format" d'une valeur dans une cellule : j'ai besoin de transformer des valeurs du type "+.42000000+03" en "420.000000" afin d'effectuer des comparaison de cellules après.
Etant donné que les valeurs sont importées d'un fichier .txt le format de la cellule est le format "standard" et le passage en format "Nombre" ou autre n'a aucune influence...
Merci d'avance.

 

[tototiti2008]

Re : Problème format cellule

Bonjour gaetan40,

Bienvenue sur XLD,

pourrais-tu nous fournir quelques données exemples en plus, pour vérifier que les nombres s'écrivent toujours sur le même format (un bout de fichier par exemple)

Est-ce qu'une formule qui convertirait les nombres t'irait ou tu as forcément besoin d'une macro ?

 

[gaetan40]

Re : Problème format cellule

En fait voilà dans la colonne A il faudrait que je trouve un moyen de modifier toutes les cellules qui commencent par "+." pour les mettre au même format que la colonne C.

Je pensais à une macro vu le nombre de lignes.

Mais je ne vois pas du tout comment procéder...😕

 

[tototiti2008]

Re : Problème format cellule

Re,

tu as bien mélangé les résultats de la colonne C 🙂
essaye ça dans une colonne vide :

=SI(ESTNUM(A1);A1;SUBSTITUE(GAUCHE(A1;NBCAR(A1)-3)&"E"&DROITE(A1;3);".";",")*1)

et recopie vers le bas

 

[gaetan40]

Re : Problème format cellule

ça marche bien mais (je sais que je suis chiant 🙄) est-ce que tu sais comment mettre cette formule dans une macro VB ?

 

[tototiti2008]

Re : Problème format cellule

Re,

Vide ta colonne C, la macro suivante devrait te la remplir

Sub ConvNum()
Dim i As Long
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
        If IsNumeric(Range("A" & i).Value) Then
            Range("C" & i).Value = Range("A" & i).Value
        Else
            Range("C" & i).Value = Val(Left(Range("A" & i).Value, Len(Range("A" & i).Value) - 3) & "E" & Right(Range("A" & i).Value, 3))
        End If
    Next i
End Sub

 

[gaetan40]

Re : Problème format cellule

Super merci BEAUCOUP !!!

Je te souhaite une bonne journée !😀