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

[arnaudbu]

Bonjour,

J'exporte depuis le logiciel SAP des données directement sous forme de feuille excel.

Par contre dans toutes les cellules possedant des nombres j'ai une erreur (coin vert): "le nombre dans cette cellule est au format texte ou précédé d'une apostrophe"

Ceci bloque mes formules car elle ne lise pas le nombre. Connaissez vous ce problème ? Comment à l'aide du macro, traiter l'ensemble des colonnes A, B, C et G ?

Merci à vous

 

[job75]

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 :

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 🙂🙂

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

A+

 

[arnaudbu]

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.

@+

 

[job75]

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+

 

[arnaudbu]

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+

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

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

 

[arnaudbu]

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

bon j'ai supprimé les colonnes confidentielles.

 

[Paritec]

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 🙂

 

[arnaudbu]

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 ?

 

[arnaudbu]

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 !

 

[Paritec]

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 😕

 

[arnaudbu]

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 ...

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

 

[Paritec]

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 🙂

 

[job75]

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

Re,

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

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

Voilà à quoi servent mes remarques 😀

A+

 

[arnaudbu]

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

Re,



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

Voilà à quoi servent mes remarques 😀

A+

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

 

[arnaudbu]

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 🙂

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

 

[arnaudbu]

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

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