patrice33740 Avec la réponse, c'est facile. | Voir ce message dans le sujet non filtré
Relis tes demandes, malgré ma demande de précision, tu n'a jamais écris qu'en colonne F tu voulais :
0.01
0.00
104.13
104.14
0.02
1.05
Tu aurais eu la bonne réponse dès le début !
(Sinon à mauvaise question, mauvaise réponse)
Voici donc le code :
Code :
- Sub Récupération_Colonnes()
- Dim i As Long
- Dim t, e, f, k
- ' Remplir les tableaux de données
- With Worksheets("csv" )
- e = .Range("A3", .Cells(.Rows.Count, "A" ).End(xlUp)).Value
- ReDim f(1 To UBound(e), 1 To 1)
- k = .Range("A3", .Cells(.Rows.Count, "A" ).End(xlUp)).Offset(0, 16).Value
- End With
- ' Traiter les données
- For i = 1 To UBound(e)
- t = Split(e(i, 1), ":" )
- f(i, 1) = Replace(Format(Val(Mid(t(1), 3)), "0.00" ), ",", "." )
- e(i, 1) = Left(t(1), 2)
- Next
- ' Mettre en place les données
- With Worksheets("Feuil1" )
- .Cells.Clear
- .Range("E6" ).Resize(UBound(e)).Value = e
- With .Range("F6" ).Resize(UBound(f))
- .NumberFormat = "@"
- .Value = f
- End With
- .Range("K6" ).Resize(UBound(k)).Value = k
- End With
- End Sub
|
Message édité par patrice33740 le 26-01-2021 à 15:17:16
---------------
Cordialement, Patrice
|
FORUM HardWare.fr
