Convertir une cellule au format texte en une cellule au format nombre

Version imprimable

26/03/2024, 09h07
rakel

1 pièce(s) jointe(s)

Convertir une cellule au format texte en une cellule au format nombre

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 :-)

Salut,

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

Code:

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

26/03/2024, 10h45
rakel

Merci

Hello,

Merci pour la réponse rapide!:D