Bonjour Fréro,
Avec l'information que tu as donnée, il est difficile
de savoir que contient tes cellules en plus de tes nombres...
à tout hasard, essaie ceci :
Tu adaptes le nom de la feuille et la colonne
qui est problématique dans ton classeur.
'-------------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("A1:A" & .Range("A65536").End(xlUp).Row)
.Replace " ", ""
.Replace Chr(160), ""
x = .Value
.Clear
.NumberFormat = "General"
.Value = x
End With
End With
End Sub
'-------------------------------------
"fréro" a écrit dans le message de groupe de
discussion :
bonjour
j'ai scanné un ticket de caisse et avec un OCR établi un tableau sous
Excel
2007
je n'arrive pas a modifier et/ou additionner les chiffres dans une colonne
si qq1 connait le pourquoi
par avance merci
fréro
Bonjour Fréro,
Avec l'information que tu as donnée, il est difficile
de savoir que contient tes cellules en plus de tes nombres...
à tout hasard, essaie ceci :
Tu adaptes le nom de la feuille et la colonne
qui est problématique dans ton classeur.
'-------------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("A1:A" & .Range("A65536").End(xlUp).Row)
.Replace " ", ""
.Replace Chr(160), ""
x = .Value
.Clear
.NumberFormat = "General"
.Value = x
End With
End With
End Sub
'-------------------------------------
"fréro" <free.invalid@free.fr> a écrit dans le message de groupe de
discussion :
16EA092F-50FA-40DE-B391-D33CB8E4269B@microsoft.com...
bonjour
j'ai scanné un ticket de caisse et avec un OCR établi un tableau sous
Excel
2007
je n'arrive pas a modifier et/ou additionner les chiffres dans une colonne
si qq1 connait le pourquoi
par avance merci
fréro
Bonjour Fréro,
Avec l'information que tu as donnée, il est difficile
de savoir que contient tes cellules en plus de tes nombres...
à tout hasard, essaie ceci :
Tu adaptes le nom de la feuille et la colonne
qui est problématique dans ton classeur.
'-------------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("A1:A" & .Range("A65536").End(xlUp).Row)
.Replace " ", ""
.Replace Chr(160), ""
x = .Value
.Clear
.NumberFormat = "General"
.Value = x
End With
End With
End Sub
'-------------------------------------
"fréro" a écrit dans le message de groupe de
discussion :
bonjour
j'ai scanné un ticket de caisse et avec un OCR établi un tableau sous
Excel
2007
je n'arrive pas a modifier et/ou additionner les chiffres dans une colonne
si qq1 connait le pourquoi
par avance merci
fréro
Bonjour Fréro,
Avec l'information que tu as donnée, il est difficile
de savoir que contient tes cellules en plus de tes nombres...
à tout hasard, essaie ceci :
Tu adaptes le nom de la feuille et la colonne
qui est problématique dans ton classeur.
'-------------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("A1:A" & .Range("A65536").End(xlUp).Row)
.Replace " ", ""
.Replace Chr(160), ""
x = .Value
.Clear
.NumberFormat = "General"
.Value = x
End With
End With
End Sub
'-------------------------------------
"fréro" a écrit dans le message de groupe de
discussion :
bonjour
j'ai scanné un ticket de caisse et avec un OCR établi un tableau sous
Excel
2007
je n'arrive pas a modifier et/ou additionner les chiffres dans une colonne
si qq1 connait le pourquoi
par avance merci
fréro
Bonjour Fréro,
Avec l'information que tu as donnée, il est difficile
de savoir que contient tes cellules en plus de tes nombres...
à tout hasard, essaie ceci :
Tu adaptes le nom de la feuille et la colonne
qui est problématique dans ton classeur.
'-------------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("A1:A" & .Range("A65536").End(xlUp).Row)
.Replace " ", ""
.Replace Chr(160), ""
x = .Value
.Clear
.NumberFormat = "General"
.Value = x
End With
End With
End Sub
'-------------------------------------
"fréro" <free.invalid@free.fr> a écrit dans le message de groupe de
discussion :
16EA092F-50FA-40DE-B391-D33CB8E4269B@microsoft.com...
bonjour
j'ai scanné un ticket de caisse et avec un OCR établi un tableau sous
Excel
2007
je n'arrive pas a modifier et/ou additionner les chiffres dans une colonne
si qq1 connait le pourquoi
par avance merci
fréro
Bonjour Fréro,
Avec l'information que tu as donnée, il est difficile
de savoir que contient tes cellules en plus de tes nombres...
à tout hasard, essaie ceci :
Tu adaptes le nom de la feuille et la colonne
qui est problématique dans ton classeur.
'-------------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("A1:A" & .Range("A65536").End(xlUp).Row)
.Replace " ", ""
.Replace Chr(160), ""
x = .Value
.Clear
.NumberFormat = "General"
.Value = x
End With
End With
End Sub
'-------------------------------------
"fréro" a écrit dans le message de groupe de
discussion :
bonjour
j'ai scanné un ticket de caisse et avec un OCR établi un tableau sous
Excel
2007
je n'arrive pas a modifier et/ou additionner les chiffres dans une colonne
si qq1 connait le pourquoi
par avance merci
fréro
Publie sur Cjoint.Com un petit bout de tes données
après traitement par ton OCR et retourne nous
l'adresse ici.
"fréro" a écrit dans le message de groupe de
discussion :
bonsoir
je complète
dans mon tableau Excel issue d'un scan puis d'un OCR j'obtiens deux
colonnes
l'une est la désignation des articles , l'autre les prix
je peux agrandir les polices,copier les cellules ,les coupés etc... mais
je
ne peux pas les mettre aux formats monétaires ni compta aves le sigle €.
De plus impossible d'en faire la somme
fréro
"michdenis" a écrit dans le message de
news:Bonjour Fréro,
Avec l'information que tu as donnée, il est difficile
de savoir que contient tes cellules en plus de tes nombres...
à tout hasard, essaie ceci :
Tu adaptes le nom de la feuille et la colonne
qui est problématique dans ton classeur.
'-------------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("A1:A" & .Range("A65536").End(xlUp).Row)
.Replace " ", ""
.Replace Chr(160), ""
x = .Value
.Clear
.NumberFormat = "General"
.Value = x
End With
End With
End Sub
'-------------------------------------
"fréro" a écrit dans le message de groupe de
discussion :
bonjour
j'ai scanné un ticket de caisse et avec un OCR établi un tableau sous
Excel
2007
je n'arrive pas a modifier et/ou additionner les chiffres dans une
colonne
si qq1 connait le pourquoi
par avance merci
fréro
Publie sur Cjoint.Com un petit bout de tes données
après traitement par ton OCR et retourne nous
l'adresse ici.
"fréro" <free.invalid@free.fr> a écrit dans le message de groupe de
discussion :
6FB4832D-3ECC-47D6-94CD-03AB55C114F7@microsoft.com...
bonsoir
je complète
dans mon tableau Excel issue d'un scan puis d'un OCR j'obtiens deux
colonnes
l'une est la désignation des articles , l'autre les prix
je peux agrandir les polices,copier les cellules ,les coupés etc... mais
je
ne peux pas les mettre aux formats monétaires ni compta aves le sigle €.
De plus impossible d'en faire la somme
fréro
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:D1B979C3-E8C3-4485-BA9A-08B1A1EF57A4@microsoft.com...
Bonjour Fréro,
Avec l'information que tu as donnée, il est difficile
de savoir que contient tes cellules en plus de tes nombres...
à tout hasard, essaie ceci :
Tu adaptes le nom de la feuille et la colonne
qui est problématique dans ton classeur.
'-------------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("A1:A" & .Range("A65536").End(xlUp).Row)
.Replace " ", ""
.Replace Chr(160), ""
x = .Value
.Clear
.NumberFormat = "General"
.Value = x
End With
End With
End Sub
'-------------------------------------
"fréro" <free.invalid@free.fr> a écrit dans le message de groupe de
discussion :
16EA092F-50FA-40DE-B391-D33CB8E4269B@microsoft.com...
bonjour
j'ai scanné un ticket de caisse et avec un OCR établi un tableau sous
Excel
2007
je n'arrive pas a modifier et/ou additionner les chiffres dans une
colonne
si qq1 connait le pourquoi
par avance merci
fréro
Publie sur Cjoint.Com un petit bout de tes données
après traitement par ton OCR et retourne nous
l'adresse ici.
"fréro" a écrit dans le message de groupe de
discussion :
bonsoir
je complète
dans mon tableau Excel issue d'un scan puis d'un OCR j'obtiens deux
colonnes
l'une est la désignation des articles , l'autre les prix
je peux agrandir les polices,copier les cellules ,les coupés etc... mais
je
ne peux pas les mettre aux formats monétaires ni compta aves le sigle €.
De plus impossible d'en faire la somme
fréro
"michdenis" a écrit dans le message de
news:Bonjour Fréro,
Avec l'information que tu as donnée, il est difficile
de savoir que contient tes cellules en plus de tes nombres...
à tout hasard, essaie ceci :
Tu adaptes le nom de la feuille et la colonne
qui est problématique dans ton classeur.
'-------------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("A1:A" & .Range("A65536").End(xlUp).Row)
.Replace " ", ""
.Replace Chr(160), ""
x = .Value
.Clear
.NumberFormat = "General"
.Value = x
End With
End With
End Sub
'-------------------------------------
"fréro" a écrit dans le message de groupe de
discussion :
bonjour
j'ai scanné un ticket de caisse et avec un OCR établi un tableau sous
Excel
2007
je n'arrive pas a modifier et/ou additionner les chiffres dans une
colonne
si qq1 connait le pourquoi
par avance merci
fréro
Publie sur Cjoint.Com un petit bout de tes données
après traitement par ton OCR et retourne nous
l'adresse ici.
"fréro" a écrit dans le message de groupe de
discussion :
bonsoir
je complète
dans mon tableau Excel issue d'un scan puis d'un OCR j'obtiens deux
colonnes
l'une est la désignation des articles , l'autre les prix
je peux agrandir les polices,copier les cellules ,les coupés etc... mais
je
ne peux pas les mettre aux formats monétaires ni compta aves le sigle €.
De plus impossible d'en faire la somme
fréro
"michdenis" a écrit dans le message de
news:Bonjour Fréro,
Avec l'information que tu as donnée, il est difficile
de savoir que contient tes cellules en plus de tes nombres...
à tout hasard, essaie ceci :
Tu adaptes le nom de la feuille et la colonne
qui est problématique dans ton classeur.
'-------------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("A1:A" & .Range("A65536").End(xlUp).Row)
.Replace " ", ""
.Replace Chr(160), ""
x = .Value
.Clear
.NumberFormat = "General"
.Value = x
End With
End With
End Sub
'-------------------------------------
"fréro" a écrit dans le message de groupe de
discussion :
bonjour
j'ai scanné un ticket de caisse et avec un OCR établi un tableau sous
Excel
2007
je n'arrive pas a modifier et/ou additionner les chiffres dans une
colonne
si qq1 connait le pourquoi
par avance merci
fréro
Publie sur Cjoint.Com un petit bout de tes données
après traitement par ton OCR et retourne nous
l'adresse ici.
"fréro" <free.invalid@free.fr> a écrit dans le message de groupe de
discussion :
6FB4832D-3ECC-47D6-94CD-03AB55C114F7@microsoft.com...
bonsoir
je complète
dans mon tableau Excel issue d'un scan puis d'un OCR j'obtiens deux
colonnes
l'une est la désignation des articles , l'autre les prix
je peux agrandir les polices,copier les cellules ,les coupés etc... mais
je
ne peux pas les mettre aux formats monétaires ni compta aves le sigle €.
De plus impossible d'en faire la somme
fréro
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:D1B979C3-E8C3-4485-BA9A-08B1A1EF57A4@microsoft.com...
Bonjour Fréro,
Avec l'information que tu as donnée, il est difficile
de savoir que contient tes cellules en plus de tes nombres...
à tout hasard, essaie ceci :
Tu adaptes le nom de la feuille et la colonne
qui est problématique dans ton classeur.
'-------------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("A1:A" & .Range("A65536").End(xlUp).Row)
.Replace " ", ""
.Replace Chr(160), ""
x = .Value
.Clear
.NumberFormat = "General"
.Value = x
End With
End With
End Sub
'-------------------------------------
"fréro" <free.invalid@free.fr> a écrit dans le message de groupe de
discussion :
16EA092F-50FA-40DE-B391-D33CB8E4269B@microsoft.com...
bonjour
j'ai scanné un ticket de caisse et avec un OCR établi un tableau sous
Excel
2007
je n'arrive pas a modifier et/ou additionner les chiffres dans une
colonne
si qq1 connait le pourquoi
par avance merci
fréro
Publie sur Cjoint.Com un petit bout de tes données
après traitement par ton OCR et retourne nous
l'adresse ici.
"fréro" a écrit dans le message de groupe de
discussion :
bonsoir
je complète
dans mon tableau Excel issue d'un scan puis d'un OCR j'obtiens deux
colonnes
l'une est la désignation des articles , l'autre les prix
je peux agrandir les polices,copier les cellules ,les coupés etc... mais
je
ne peux pas les mettre aux formats monétaires ni compta aves le sigle €.
De plus impossible d'en faire la somme
fréro
"michdenis" a écrit dans le message de
news:Bonjour Fréro,
Avec l'information que tu as donnée, il est difficile
de savoir que contient tes cellules en plus de tes nombres...
à tout hasard, essaie ceci :
Tu adaptes le nom de la feuille et la colonne
qui est problématique dans ton classeur.
'-------------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("A1:A" & .Range("A65536").End(xlUp).Row)
.Replace " ", ""
.Replace Chr(160), ""
x = .Value
.Clear
.NumberFormat = "General"
.Value = x
End With
End With
End Sub
'-------------------------------------
"fréro" a écrit dans le message de groupe de
discussion :
bonjour
j'ai scanné un ticket de caisse et avec un OCR établi un tableau sous
Excel
2007
je n'arrive pas a modifier et/ou additionner les chiffres dans une
colonne
si qq1 connait le pourquoi
par avance merci
fréro
Dans un module standard de ton classeur,
essaie cette procédure :
Ceci traite les colonnes E et F de ta Feuil1
'--------------------------------------
Sub test()
Dim Rg As Range, A As Long, B As Long
With Worksheets("Feuil1")
Set Rg = .Range("E1:F" & .Range("A65536").End(xlUp).Row)
With Rg
.Replace " ", ""
.Replace Chr(160), ""
.Replace ".", ","
x = .Value
.Clear
.NumberFormat = "General"
End With
End With
Application.ScreenUpdating = False
For A = 1 To UBound(x, 1)
For B = 1 To UBound(x, 2)
Rg(A, B) = CDbl(x(A, B))
Next
Next
Application.ScreenUpdating = True
End Sub
'--------------------------------------
"fréro" a écrit dans le message de groupe de
discussion :
http://www.cijoint.fr/cjlink.php?file=cj200909/cijRhoM2OO.xlsx
"michdenis" a écrit dans le message de
news:Publie sur Cjoint.Com un petit bout de tes données
après traitement par ton OCR et retourne nous
l'adresse ici.
"fréro" a écrit dans le message de groupe de
discussion :
bonsoir
je complète
dans mon tableau Excel issue d'un scan puis d'un OCR j'obtiens deux
colonnes
l'une est la désignation des articles , l'autre les prix
je peux agrandir les polices,copier les cellules ,les coupés etc... mais
je
ne peux pas les mettre aux formats monétaires ni compta aves le sigle €.
De plus impossible d'en faire la somme
fréro
"michdenis" a écrit dans le message de
news:Bonjour Fréro,
Avec l'information que tu as donnée, il est difficile
de savoir que contient tes cellules en plus de tes nombres...
à tout hasard, essaie ceci :
Tu adaptes le nom de la feuille et la colonne
qui est problématique dans ton classeur.
'-------------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("A1:A" & .Range("A65536").End(xlUp).Row)
.Replace " ", ""
.Replace Chr(160), ""
x = .Value
.Clear
.NumberFormat = "General"
.Value = x
End With
End With
End Sub
'-------------------------------------
"fréro" a écrit dans le message de groupe de
discussion :
bonjour
j'ai scanné un ticket de caisse et avec un OCR établi un tableau sous
Excel
2007
je n'arrive pas a modifier et/ou additionner les chiffres dans une
colonne
si qq1 connait le pourquoi
par avance merci
fréro
Dans un module standard de ton classeur,
essaie cette procédure :
Ceci traite les colonnes E et F de ta Feuil1
'--------------------------------------
Sub test()
Dim Rg As Range, A As Long, B As Long
With Worksheets("Feuil1")
Set Rg = .Range("E1:F" & .Range("A65536").End(xlUp).Row)
With Rg
.Replace " ", ""
.Replace Chr(160), ""
.Replace ".", ","
x = .Value
.Clear
.NumberFormat = "General"
End With
End With
Application.ScreenUpdating = False
For A = 1 To UBound(x, 1)
For B = 1 To UBound(x, 2)
Rg(A, B) = CDbl(x(A, B))
Next
Next
Application.ScreenUpdating = True
End Sub
'--------------------------------------
"fréro" <free.invalid@free.fr> a écrit dans le message de groupe de
discussion :
A73F67E8-C7C5-4959-91A3-4DE5A3362188@microsoft.com...
http://www.cijoint.fr/cjlink.php?file=cj200909/cijRhoM2OO.xlsx
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:737D156F-CEA7-4D62-BBCB-A800CF636BF2@microsoft.com...
Publie sur Cjoint.Com un petit bout de tes données
après traitement par ton OCR et retourne nous
l'adresse ici.
"fréro" <free.invalid@free.fr> a écrit dans le message de groupe de
discussion :
6FB4832D-3ECC-47D6-94CD-03AB55C114F7@microsoft.com...
bonsoir
je complète
dans mon tableau Excel issue d'un scan puis d'un OCR j'obtiens deux
colonnes
l'une est la désignation des articles , l'autre les prix
je peux agrandir les polices,copier les cellules ,les coupés etc... mais
je
ne peux pas les mettre aux formats monétaires ni compta aves le sigle €.
De plus impossible d'en faire la somme
fréro
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:D1B979C3-E8C3-4485-BA9A-08B1A1EF57A4@microsoft.com...
Bonjour Fréro,
Avec l'information que tu as donnée, il est difficile
de savoir que contient tes cellules en plus de tes nombres...
à tout hasard, essaie ceci :
Tu adaptes le nom de la feuille et la colonne
qui est problématique dans ton classeur.
'-------------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("A1:A" & .Range("A65536").End(xlUp).Row)
.Replace " ", ""
.Replace Chr(160), ""
x = .Value
.Clear
.NumberFormat = "General"
.Value = x
End With
End With
End Sub
'-------------------------------------
"fréro" <free.invalid@free.fr> a écrit dans le message de groupe de
discussion :
16EA092F-50FA-40DE-B391-D33CB8E4269B@microsoft.com...
bonjour
j'ai scanné un ticket de caisse et avec un OCR établi un tableau sous
Excel
2007
je n'arrive pas a modifier et/ou additionner les chiffres dans une
colonne
si qq1 connait le pourquoi
par avance merci
fréro
Dans un module standard de ton classeur,
essaie cette procédure :
Ceci traite les colonnes E et F de ta Feuil1
'--------------------------------------
Sub test()
Dim Rg As Range, A As Long, B As Long
With Worksheets("Feuil1")
Set Rg = .Range("E1:F" & .Range("A65536").End(xlUp).Row)
With Rg
.Replace " ", ""
.Replace Chr(160), ""
.Replace ".", ","
x = .Value
.Clear
.NumberFormat = "General"
End With
End With
Application.ScreenUpdating = False
For A = 1 To UBound(x, 1)
For B = 1 To UBound(x, 2)
Rg(A, B) = CDbl(x(A, B))
Next
Next
Application.ScreenUpdating = True
End Sub
'--------------------------------------
"fréro" a écrit dans le message de groupe de
discussion :
http://www.cijoint.fr/cjlink.php?file=cj200909/cijRhoM2OO.xlsx
"michdenis" a écrit dans le message de
news:Publie sur Cjoint.Com un petit bout de tes données
après traitement par ton OCR et retourne nous
l'adresse ici.
"fréro" a écrit dans le message de groupe de
discussion :
bonsoir
je complète
dans mon tableau Excel issue d'un scan puis d'un OCR j'obtiens deux
colonnes
l'une est la désignation des articles , l'autre les prix
je peux agrandir les polices,copier les cellules ,les coupés etc... mais
je
ne peux pas les mettre aux formats monétaires ni compta aves le sigle €.
De plus impossible d'en faire la somme
fréro
"michdenis" a écrit dans le message de
news:Bonjour Fréro,
Avec l'information que tu as donnée, il est difficile
de savoir que contient tes cellules en plus de tes nombres...
à tout hasard, essaie ceci :
Tu adaptes le nom de la feuille et la colonne
qui est problématique dans ton classeur.
'-------------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("A1:A" & .Range("A65536").End(xlUp).Row)
.Replace " ", ""
.Replace Chr(160), ""
x = .Value
.Clear
.NumberFormat = "General"
.Value = x
End With
End With
End Sub
'-------------------------------------
"fréro" a écrit dans le message de groupe de
discussion :
bonjour
j'ai scanné un ticket de caisse et avec un OCR établi un tableau sous
Excel
2007
je n'arrive pas a modifier et/ou additionner les chiffres dans une
colonne
si qq1 connait le pourquoi
par avance merci
fréro