Convertir les nombres stockés en tant que texte en nombres

job75

XLDnaute Barbatruc

• 15 Décembre 2009

• #16

Re : Convertir les nombres stockés en tant que texte en nombres

Re,

Ah mais oui bien sûr, la méthode qu'on vous a proposée ne fonctionne pas dans un cas : il y a des nombres décimaux avec une virgule.

Il faut alors remplacer les virgules par des points en écrivant au début :

Code:

Range("A:C,G:G").Replace ",", ".", LookAt:=xlPart

Si tous les nombres sont décimaux, c'est le seul code à écrire 🙂

Normalement dans les fichiers textes importés, le séparateur décimal est un point, et si tous les nombres sont décimaux, il suffit de remplacer les points par... des points 🙂🙂

Code:

Range("A:C,G:G").Replace ".", ".", LookAt:=xlPart

A+

 

Vote positif 0 Vote négatif

A

arnaudbu

XLDnaute Occasionnel

• 15 Décembre 2009

• #17

Re : Convertir les nombres stockés en tant que texte en nombres

C'est simple. Pour l'instant je cherche a convertir mes données dans la feuille BDD, les colonnes A,B,C et G de 1 à indeterminée.

Si je met mes cellules en standart ou en nombre il ne se passe rien non plus elle reste en texte. La seule solution actuelle est de passer par l'option CONVERTIR de excel.

@+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Décembre 2009

• #18

Re : Convertir les nombres stockés en tant que texte en nombres

Re,

Avec une copie allégée et/ou zippée du fichier (<48 k0), on y verrait plus clair.

A+

 

Vote positif 0 Vote négatif

A

arnaudbu

XLDnaute Occasionnel

• 15 Décembre 2009

• #19

Re : Convertir les nombres stockés en tant que texte en nombres

job75 à dit:

Re,

Avec une copie allégée et/ou zippée du fichier (<48 k0), on y verrait plus clair.

A+

Cliquez pour agrandir...

Je voudrais bien mais c'est plein de données confidentielles.

Et il n'y a pas de nombre à virgule dans mes colonnes.

 

Vote positif 0 Vote négatif

A

arnaudbu

XLDnaute Occasionnel

• 15 Décembre 2009

• #20

Re : Convertir les nombres stockés en tant que texte en nombres

bon j'ai supprimé les colonnes confidentielles.

 

Pièces jointes

• R0.xls

  36 KB · Affichages: 141

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 15 Décembre 2009

• #21

Re : Convertir les nombres stockés en tant que texte en nombres

Bonjour Arnaubu Job le forum
voilà ton fichier en retour essayes et dis moi si c'est ce que tu veux
a+
Papou 🙂

 

Pièces jointes

• R01.xls

  42.5 KB · Affichages: 89

Vote positif 0 Vote négatif

A

arnaudbu

XLDnaute Occasionnel

• 15 Décembre 2009

• #22

Re : Convertir les nombres stockés en tant que texte en nombres

Voila c'est ça merci. maintenant je vais essayer de l'adapter à ma feuille.

Sinon quel était le soucis pour mes connaissances stp ?

 

Vote positif 0 Vote négatif

A

arnaudbu

XLDnaute Occasionnel

• 15 Décembre 2009

• #23

Re : Convertir les nombres stockés en tant que texte en nombres

Ton fichier fonctionne très bien. Cependant quand je met la macro dans mon classeur et je modifie juste feuil1 par le nom de ma feuille BDD, il y a plein de zéro qui apparaissent sur ma feuille mais ne converti rien sur la feuille BDD.

Je commence à planer !

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 15 Décembre 2009

• #24

Re : Convertir les nombres stockés en tant que texte en nombres

Bonsoir arnaudbu le forum
oui bah moi je ne peux pas te dire grand chose sauf que si tu me fournis ton fichier peut-être que je trouverai une solution mais tu as envoyé un exemple
et la conversion est effective alors après je ne peux pas savoir ce que ton fichier contient
a+
Papou 😕

 

Vote positif 0 Vote négatif

A

arnaudbu

XLDnaute Occasionnel

• 15 Décembre 2009

• #25

Re : Convertir les nombres stockés en tant que texte en nombres

J'ai ajusté de la sorte qu'en pensez vous ? et cela fonctionne

encore merci de votre patience ...

Code:

Option Explicit

Sub ImportSAP()
Dim fin As Integer, i    
 With Sheets("BDD") 
    fin = Sheets("BDD").Range("A65536").End(xlUp).Row    
    For i = 2 To fin
        On Error Resume Next
        Cells(i, 1) = Cells(i, 1) * 1
        Cells(i, 2) = Cells(i, 2) * 1
        Cells(i, 3) = Cells(i, 3) * 1
        Cells(i, 7) = Cells(i, 7) * 1
    Next i    
 End With 
End Sub

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 15 Décembre 2009

• #26

Re : Convertir les nombres stockés en tant que texte en nombres

bonsoir arnaudbu
j'en pense que si tu convertis les colonnes A B C et G c'est tout bon
bonne soirée
Papou 🙂

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Décembre 2009

• #27

Re : Convertir les nombres stockés en tant que texte en nombres

Re,

job75 à dit:

Si les cellules sont au format Texte, il n'y a pas de conversion évidemment. Il faut un format Nombre (ou Standard).

Cliquez pour agrandir...

Dans le fichier que vous avez fourni, les cellules sont au format Texte (menu Format-Cellule).

Voilà à quoi servent mes remarques 😀

A+

 

Vote positif 0 Vote négatif

A

arnaudbu

XLDnaute Occasionnel

• 15 Décembre 2009

• #28

Re : Convertir les nombres stockés en tant que texte en nombres

job75 à dit:

Re,



Dans le fichier que vous avez fourni, les cellules sont au format Texte (menu Format-Cellule).

Voilà à quoi servent mes remarques 😀

A+

Cliquez pour agrandir...

Oui elles sont au format texte d'ou mes soucis 😀 encore merci

 

Vote positif 0 Vote négatif

A

arnaudbu

XLDnaute Occasionnel

• 15 Décembre 2009

• #29

Re : Convertir les nombres stockés en tant que texte en nombres

Paritec à dit:

bonsoir arnaudbu
j'en pense que si tu convertis les colonnes A B C et G c'est tout bon
bonne soirée
Papou 🙂

Cliquez pour agrandir...

IMPEC et merci encore à toi et a tous les autres.

 

Vote positif 0 Vote négatif

A

arnaudbu

XLDnaute Occasionnel

• 16 Janvier 2010

• #30

Re : Convertir les nombres stockés en tant que texte en nombres

Re bonjour à tous,

J'ai fais une modification sur le code et il ne s'exécute que sur le premier onglet, pouvez m'aider à trouver l'erreur ? Merci

Code:

Option Explicit

Const CheminBDD As String = "C:\ESSAI\Bdd_SAP.xls" 

Sub ImportSAP()

'On Error Resume Next

Dim fin As Integer, i, wb As Workbook, ws As Worksheet

Workbooks.Open CheminBDD

    With ActiveWorkbook
        
            For Each ws In wb.Worksheets
    
    fin = Range("A65536").End(xlUp).Row
    
    For i = 2 To fin
        Cells(i, 1) = Cells(i, 1) * 1
        Cells(i, 2) = Cells(i, 2) * 1
        Cells(i, 3) = Cells(i, 3) * 1
        Cells(i, 7) = Cells(i, 7) * 1
    Next i

    Range(Range("A1"), Range("J65536").End(xlUp).Offset(0, 1)).NumberFormat = "General"
        
            Next ws
          
    .Close True
    
    End With
    
End Sub

 

Vote positif 0 Vote négatif