Convertir cellules textes en chiffre

Le 03/02/2014 à 13:43

Bonjour,

j'ai des cellules contenant des chiffres, mais en mode texte. Donc impossible d'effectuer des calculs entre ces cellules.

Savez vous comment convertir ces cellules en chiffres?

Merci pour votre aide.

Le 03/02/2014 à 13:45

Le 03/02/2014 à 13:49

14population.xlsx (9.50 Ko)

Salut Jean Eric,

voici le fichier:

Merci

Le 03/02/2014 à 13:50

Salut,

Voila ce que moi j'ai utilisé, mais y'a peut etre mieux

'adaptation des données
Sheets("Feuil1").Select
For ligne = 2 To 2
For colonne = 1 To 15

Cells(ligne, colonne).Select
formule = ActiveCell.FormulaR1C1
ActiveCell.FormulaR1C1 = formule

Next colonne
Next ligne

J'ai copié ce code, pas créé ^^

Le 03/02/2014 à 13:52

cari a écrit :
Salut,
Voila ce que moi j'ai utilisé, mais y'a peut etre mieux
'adaptation des données
Sheets("Feuil1").Select
For ligne = 2 To 2
For colonne = 1 To 15

Cells(ligne, colonne).Select
formule = ActiveCell.FormulaR1C1
ActiveCell.FormulaR1C1 = formule

Next colonne
Next ligne
J'ai copié ce code, pas créé ^^

Salut Cari.

Doucement, doucement là!

Ce sont quoi ces éléments? Il faut les mettre dans VBA?

Le 03/02/2014 à 13:54

Oui c'est du code VBA

Le 03/02/2014 à 14:08

cari a écrit :
Oui c'est du code VBA

Ok, juste un petit problème sur cette ligne:

Sheets("Feuil"). Select

Pas sûr de la façon dont il faut l'écrire. je mets quoi?

Sheets "feuille1". Select

Le 03/02/2014 à 14:20

Re,

A tester.

Cdlt

Option Explicit
Public Sub Convertir()
Dim ws As Worksheet
Dim lrow As Long, i As Long
    Application.ScreenUpdating = False
    Set ws = Worksheets("Feuil1")
    With ws
        lrow = .Range("B" & Rows.Count).End(xlUp).Row
        For i = 1 To lrow
            .Cells(i, 2) = CLng(.Cells(i, 2))
            .Cells(i, 2).NumberFormat = "#,##0"
        Next
    End With
    Set ws = Nothing
End Sub

Le 03/02/2014 à 14:23

ça se complique,

il manque "end sub" quelque part!

Le 03/02/2014 à 14:48

Re,

Hibou,

Regardes ma proposition

Le 03/02/2014 à 18:12