Discussion :

[rakel]

Bonjour,

Dans le fichier annexé, les données sont importées via l'assistant d'importation avec volontairement l'option de format "texte" pour la colonne B.

En revanche, dans le traitement des données, j'ai besoin à un moment donné qu'une partie de la colonne B soit au format nombre.

Il s'agit des données collées via la macro ci-dessous et qui se trouvent dans la zone (B2471:B2484). La conversion est très simple à faire à la main mais je ne parviens pas à l'écrire en VBA.

Voici le code :

Sub ESTDAvgResultbis()
Sheets("Importation").Select

Dim src As Range 'source
Dim dst As Range 'destination
Set dst = ActiveSheet.Range("A2470") 'à adapter
Set src = ActiveSheet.Columns(2).Find("Avg Result", , xlFormulas, xlWhole)
If Not src Is Nothing Then
Set src = src.EntireRow.Resize(15)
src.Copy dst
End If

End Sub

Merci d'avance pour l'aide :-)

[deedolith]

Salut,

Il n'y a pas 36 solution:
Parcourir toutes les cellules concernées, tester si elles sont convertibles, et convertir:

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
17
Private Sub ConvertNumeric()
    Dim Ws As Excel.Worksheet
    Set Ws = ThisWorkbook.Worksheets("Importation")
 
    Dim LastRow As Long
    LastRow = Ws.Range("B:B").Cells(Ws.Range("B:B").Cells.Count).End(xlUp).Row
 
    Dim i As Long
    For i = 1 To LastRow
        Dim Cell As Excel.Range
        Set Cell = Ws.Range("B:B").Cells(i)
 
        If (IsNumeric(Cell.Value)) Then
            Cell.Value = CDbl(Cell.Value)
        End If
    Next
End Sub

[rakel]

Hello,

Merci pour la réponse rapide!