modifier un nombre sur une plage

Version imprimable

11/12/2012, 13h33
noir_desir

1 pièce(s) jointe(s)

modifier un nombre sur une plage

Bonjour à tous et toutes,

J'ai eu un soucis d'exportation avec labview et les rapports automatiques.
Le logiciel a exporté les données, mais les nombres au dessus de 1 (et inférieur à 1), il a supprimé la virgule et mis tous bout à bout.
Par exemple -1,206055 s'est transformée en -1 206 055.
Je dois donc remplacer toutes mes valeurs (tableau de 50000 valeur reparties aléatoirement dans ma colonne).
Je ne vois pas trop ce que je peux appliquer, car la division par une puissance de 10 serait pas forcement bonne (ça dépend de la précision de mon essai, ici 10^-6, mais parfois 10^-5 etc).
Il faut donc que je remplace textuellement la valeur en remettant la virgule au bonne endroit.
Heureusement aucune de mes valeurs n'atteint 10 ou -10.
Les valeurs en dessous -1 et au dessus de 1 sont resté normales.

Avez vous des idées ?

J'ai ajouté en pièce jointe, un fichier très réduit mais présentant l'erreur.
J'ai juste mis le corps d'une macro pour lire ma colonne.
11/12/2012, 14h03
jfontaine

Bonjour,

Tu as enregistré ton fichier au format xlsx. Avec cette extension il n'y a pas de macro. (choisir xlsm)

Peux tu la coller dans un post

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub reecriture()
 
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
    Set FL1 = Worksheets("Relevé")
    NoCol = 2 'lecture de la colonne 1
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
        Case Var > 1
 
        FL1.Cells(NoLig, NoCol) = Var
 
 
    Next
    Set FL1 = Nothing
 
End Sub

Bonjour,

Tu peux essayer comme cela

Code:

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim Plage As Range, Cel As Range
    With Worksheets("Relevé")
        Set Plage = .Range("A1").CurrentRegion
        Set Plage = Plage.Offset(1, 0).Resize(Plage.Rows.Count - 1, Plage.Columns.Count)
        For Each Cel In Plage
            If Abs(Cel) >= 10 Then Cel = Cel / 10 ^ (Len(Abs(Cel)) - 1)
        Next Cel
    End With
End Sub

Cordialement.

Ci dessous un code qui recompose tes montants.
Par prudence, ils vont se mettre en colonne E

Code:

1
2
3
4
5
6
7
Dim i As Long
 
For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
    If InStr(CStr(Range("B" & i).Value), Application.DecimalSeparator) = 0 Then
        Range("E" & i).Value = Left(Range("B" & i).Value, 2) & Application.DecimalSeparator & Mid(Range("B" & i).Value, 3)
    End If
Next i

12/12/2012, 08h31
noir_desir

Bonjour à tous,
J'ai essayé ta solution Fontaine, ca a écrit le même nombre dans la case E.
J'essaye ta solution gFZT82 qui semble bien fonctionner.

Par contre, mon relevé ne fait pas 50000 mais 500 000 ligne. Du coup, enfin si je sais le code que tu as mis, il charge en mémoire les 500 000 ligne dans set plage ?
12/12/2012, 11h07
gFZT82

Bonjour,

Pour définir la plage à traiter, le code utilise la propriété CurrentRegion qui représente la zone en cours.
Cette zone est limitée par toute combinaison de lignes et de colonnes vides.
Donc, la question qui se pose est de savoir de combien de lignes et de colonnes se compose cette zone dans ton document.
Tel qu’il est conçu, le programme va balayer toutes les cellules de cette zone, ce qui risque de prendre un temps non négligeable.
Il y a plusieurs solutions pour optimiser le traitement.
La première, c’est de cibler la zone à traiter (si seulement 2 colonnes sont concernées, il est inutile d’en balayer 20, idem pour les lignes).
Ensuite, on peut transiter par un tableau pour accélérer le traitement.
Enfin, on peut gagner du temps sur les calculs et le rafraichissement d’écran.

Cordialement.
12/12/2012, 13h52
noir_desir

Pour mes colonnes, seules les colonnes B, C , D m’intéressent.
Après toutes les lignes écrites sont à inspecter.

Essaie comme cela

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test()
Dim Tablo()
Dim Plage As Range, Cel As Range
    With Worksheets("Relevé")
        Application.ScreenUpdating = False
        Application.Calculation = xlCalculationManual
        Set Plage = .Range("A2:D" & Range("A" & Rows.Count).End(xlUp).Row)
        Tablo = Plage
        For i = 1 To UBound(Tablo, 1)
            For j = 1 To UBound(Tablo, 2)
                If Abs(Tablo(i, j)) >= 10 Then Tablo(i, j) = Tablo(i, j) / 10 ^ (Len(Abs(Tablo(i, j))) - 1)
            Next j
        Next i
         .Range("A2").Resize(UBound(Tablo, 1), UBound(Tablo, 2)) = Tablo
        Application.Calculation = xlCalculationAutomatic
        Application.ScreenUpdating = True
    End With
End Sub

Cordialement.

13/12/2012, 15h59
noir_desir

Je te remercie beaucoup, Je vais regarder aussi un peu comment ça marche ^^.
:ccool:
17/01/2013, 08h46
noir_desir

Bonjour,

Je reviens vers vous car j'ai un petit soucis.
Les erreurs ont été corrigés, ce qui est super mais, les nombres sont toujours considérés comme du texte et pas comme des nombres excel (présences du petit icônes vert).
Que dois je modifier dans le code pour les rendre "normal".
17/01/2013, 12h33
gFZT82

Bonjour,

As-tu essayé la conversion ?
http://office.microsoft.com/fr-fr/ex...010342308.aspx

Cordialement.
17/01/2013, 13h02
noir_desir

Je fais la première méthode, c'étais pour rendre automatique lors de la mise à jour des données, histoire d'avoir le fichier clean.
Mais merci pour le renseignement.