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

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

arnaudbu

XLDnaute Occasionnel
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
 
Trier par date Trier par votes
Re : Convertir les nombres stockés en tant que texte en nombres

Bonsoir Arnaudbu
essayes comme cela
a+
papou

Code: 
Option Explicit

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

Sub ImportSAP()

'On Error Resume Next

Dim fin As Integer, i, ws As Worksheet

Workbooks.Open CheminBDD

    With ActiveWorkbook
        
            For Each ws In 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
[/QUOTE]
 
Vote positif 0 Vote négatif
Re : Convertir les nombres stockés en tant que texte en nombres

Non cela ne fonctionne pas. Il reste en erreur sur .Range alors j'ai rajouté ws et la ça passe, puis il bloque sur les .Cells

Code: 
Sub ImportSAP()

On Error Resume Next

Dim fin As Integer, i, ws As Worksheet

Workbooks.Open CheminBDD

    With ActiveWorkbook
        
            For Each ws In Worksheets
    
    [COLOR="Red"]fin = .Range("A65536").End(xlUp).Row[/COLOR]
    
    For i = 2 To fin
        .Cells(i, 1) = .Cells(i, 1) * 1
        [COLOR="Red"].Cells(i, 2) = .Cells(i, 2) * 1[/COLOR]
        .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
Re : Convertir les nombres stockés en tant que texte en nombres

Bonjour à tous,

pas tout regardé, mais modifie peut être cette partie :

Code: 
With ActiveWorkbook
    For Each ws In [COLOR="red"][B].[/B][/COLOR]Worksheets
        fin = [COLOR="Red"][B]ws[/B][/COLOR].Range("A65536").End(xlUp).Row

@+
 
Vote positif 0 Vote négatif
Re : Convertir les nombres stockés en tant que texte en nombres

Merci mais non, il reste toujours bloqué sur:
Code: 
For i = 2 To fin
        [COLOR="Red"].Cells(i, 1) = .Cells(i, 1) * 1[/COLOR]
        .Cells(i, 2) = .Cells(i, 2) * 1
        .Cells(i, 3) = .Cells(i, 3) * 1
        .Cells(i, 7) = .Cells(i, 7) * 1
    Next i

J'ai déjà joint un fichier sur un page précédente.
 
Vote positif 0 Vote négatif
Re : Convertir les nombres stockés en tant que texte en nombres

Re,

normal tu es dans le bloc "with ActiveWorkbook", essaye ainsi :

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

@+
 
Vote positif 0 Vote négatif
Re : Convertir les nombres stockés en tant que texte en nombres

Ok et merci. Maintenant j'ai incompatibilité de type sur:

Code: 
Sub ImportSAP()

'On Error Resume Next

Dim fin As Integer, i, ws As Worksheet

Workbooks.Open CheminBDD

    With ActiveWorkbook
    
        For Each ws In .Worksheets
    
            fin = ws.Range("A65536").End(xlUp).Row
                  
                With ws
                            
                    .Range(Range("A1"), .Range("J65536").End(xlUp).Offset(0, 1)).NumberFormat = "General"
                            
                    For i = 2 To fin
                     'On Error Resume Next
                     .Cells(i, 1) = .Cells(i, 1) * 1
                     .Cells(i, 2) = .Cells(i, 2) * 1
                     [COLOR="Red"].Cells(i, 3) = .Cells(i, 3) * 1[/COLOR]
                     .Cells(i, 7) = .Cells(i, 7) * 1
                    Next i
                        
                End With
                
            Next ws
          
    .Close True
    
    End With
    
End Sub
 
Vote positif 0 Vote négatif
Re : Convertir les nombres stockés en tant que texte en nombres

Hello,

Cette nuit j'ai refait des extractions de mes données et relancé la macro. Les valeurs se sont bien convertis. Il y a juste la ligne ci-dessous qui ne passe pas. Effectivement, dans le format des cellules, elles restent toujours en texte au lieu de "Standard":

Code: 
.Range(Range("A1"), .Range("J65536").End(xlUp).Offset(0, 1)).NumberFormat = "General"
 
Vote positif 0 Vote négatif
Re : Convertir les nombres stockés en tant que texte en nombres

Bonjour Arnaud,

peut être en rajoutant un point :

Code: 
.Range([COLOR="Red"][B].[/B][/COLOR]Range("A1"), .Range("J65536").End(xlUp).Offset(0, 1)).NumberFormat = "General"

bon après midi
@+
 
Vote positif 0 Vote négatif
Re : Convertir les nombres stockés en tant que texte en nombres

En fait non ça ne va pas. Le formatage des cellules et la protection des feuilles ne fonctionne pas.

Code: 
Sub FormatDonneesSAP()

Dim fin As Integer, i, ws As Worksheet

Workbooks.Open CheminBDD
With ActiveWorkbook

For Each ws In .Worksheets

'Sub
UnProtect
    
fin = ws.Range("A65536").End(xlUp).Row
                  
With ws

.Range(.Range("A2"), .Range("J65536").End(xlUp).Offset(0, 1)).NumberFormat = "General"

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
                    
'Sub
Protect

Next ws
       
.Close True
       
End With
    
End Sub
 
Vote positif 0 Vote négatif
Re : Convertir les nombres stockés en tant que texte en nombres

Bonjour Pierrot Arnaud le forum
déjà avec un point là c'est pas bon je pense !!!
pour le reste si tu disais ou cela coince?
a+
papou 🙂
Code: 
For Each ws In [SIZE=6][COLOR=Red].[/COLOR][/SIZE]Worksheets
ws.unprotect
le Unprotect aussi ou tu le met dans le with avec un point .unprotect ou tu mets ws.unprotect et le protect pareil
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Convertir les nombres stockés en tant que texte en nombres

Re tous,
voilà ce que moi j'essaierais
a+
Papou 🙂

Code: 
For Each ws In Worksheets
                  
With ws
.unprotect
.Range(.Range("A2"), .Range("J65536").End(xlUp).Offset(0, 1)).NumberFormat = "General"
fin = ws.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
.protect                    
End With 
Next ws
 
Dernière édition:
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Question Question
Microsoft 365 Convertir CSV en tableau de nombres
Réponses
7
Affichages
576
sylvanu
sylvanu
F
  • Résolu(e)
Microsoft 365 Comment enregistrer chaque ligne en tant que fichier texte dans Excel?
2
Réponses
24
Affichages
1 K
TooFatBoy
TooFatBoy
E
  • Résolu(e)
Microsoft 365 convertir TEXTE en NOMBRE
Réponses
11
Affichages
1 K
eric72
E
B
  • Question Question
XL 2016 Mettre les nombres enregistrés en format texte, au format nombre
Réponses
6
Affichages
2 K
BPM
B
M
  • Question Question
convertir texte en nombre
Réponses
10
Affichages
2 K
dejfra
D
J
  • Question Question
Fonction qui transforme les nombres stockés sous format de texte en nombre
Réponses
2
Affichages
1 K
josanche
J
O
  • Question Question
texte avec tiret à convertir en nombres
2
Réponses
20
Affichages
3 K
Staple1600
Staple1600
J
  • Question Question
problème nombres stockés en tant que texte
Réponses
4
Affichages
887
jip31
J
S
  • Question Question
Copier et coller cellulles qui ont apostrophe et les convertir en nombre
Réponses
4
Affichages
3 K
Soleil11
S
W
  • Question Question
UserForm "Modifier une ligne" qui rapatrie des nombres en texte, au lieu de nombres
Réponses
0
Affichages
13 K
Webperegrino
W
Temjeh
  • Question Question
Format Texte en Nombre
Réponses
13
Affichages
2 K
david84
D
P
  • Question Question
Convertir les nombres stockés en tant que texte en nombres
2
Réponses
22
Affichages
3 K
R@chid
R@chid
P
  • Question Question
Convertir une plage de texte en nombre
Réponses
11
Affichages
16 K
Poireau
P
Temjeh
  • Question Question
Nombre en texte
Réponses
13
Affichages
3 K
Temjeh
Temjeh
M
  • Question Question
Convertir en nombre après importation
Réponses
2
Affichages
1 K
mikael2235
M
R
  • Question Question
Macro Convertir les nombres stockés en tant que texte en nombres
Réponses
8
Affichages
40 K
roidurif
R
T
  • Question Question
Problème : impossible de convertir nombre stocker en format texte en format nombre
Réponses
4
Affichages
8 K
ThuYeinLin
T
P
  • Question Question
conversion de nombres stockés sous forme de texte
Réponses
4
Affichages
2 K
philouis
P
I
  • Question Question
Convertir En Nombre
Réponses
5
Affichages
4 K
ianis
I
P
  • Question Question
[VBA] Traitement de base de données
Réponses
2
Affichages
2 K
phyx
P
Retour