Sub test()
''Nom de la propriété Feuil dans la
'fenêtre de l'éditeur de code
With Feuil1
'Indique la plage "continue" que tu désires
C = .Range("A1:G50")
.Range("A1:A2") = C
End With
End Sub
"cris col" a écrit dans le message de news:
48d2451e$0$14077$
Bonjour à tous,
Dans un tableau de x col. et x lig. importé depuis un OCR
les cellules sont toutes au format Texte mais contiennent
soit du texte, soit des chiffres, soit sont vides.
Manuellement, si je passe les cellules une par une et que
je supp. l'apostrophe en début de chq. cellule, j'obtiens
un tableau dont les chiffres sont reconnus en tant que tels.
C'est ce que je souhaite obtenir.
La Macro ci-aprés de John Walkenbach (Excelabo) se propose
d'effectuer le travail:
Sub ZapPrefixes() 'J. Walkenbach, mpep
For Each cell In ActiveSheet.UsedRange
If cell.PrefixCharacter <> "" Then
cell.Formula = cell.Formula
End If
Next cell
End Sub
Sauf que sur mon poste elle ne produit aucun effet.
Elle se deroule normalement sans erreur mais les " ' "
de début de lig. sont toujours là et les chiffres en
format texte ne sont pas reconnus comme des chiffres.
Qq. a t-il une idée pour supp. ce PrefixCharacter ?.
Merci d'avance
Cc.
Sub test()
''Nom de la propriété Feuil dans la
'fenêtre de l'éditeur de code
With Feuil1
'Indique la plage "continue" que tu désires
C = .Range("A1:G50")
.Range("A1:A2") = C
End With
End Sub
"cris col" <chris.col@free.fr> a écrit dans le message de news:
48d2451e$0$14077$426a74cc@news.free.fr...
Bonjour à tous,
Dans un tableau de x col. et x lig. importé depuis un OCR
les cellules sont toutes au format Texte mais contiennent
soit du texte, soit des chiffres, soit sont vides.
Manuellement, si je passe les cellules une par une et que
je supp. l'apostrophe en début de chq. cellule, j'obtiens
un tableau dont les chiffres sont reconnus en tant que tels.
C'est ce que je souhaite obtenir.
La Macro ci-aprés de John Walkenbach (Excelabo) se propose
d'effectuer le travail:
Sub ZapPrefixes() 'J. Walkenbach, mpep
For Each cell In ActiveSheet.UsedRange
If cell.PrefixCharacter <> "" Then
cell.Formula = cell.Formula
End If
Next cell
End Sub
Sauf que sur mon poste elle ne produit aucun effet.
Elle se deroule normalement sans erreur mais les " ' "
de début de lig. sont toujours là et les chiffres en
format texte ne sont pas reconnus comme des chiffres.
Qq. a t-il une idée pour supp. ce PrefixCharacter ?.
Merci d'avance
Cc.
Sub test()
''Nom de la propriété Feuil dans la
'fenêtre de l'éditeur de code
With Feuil1
'Indique la plage "continue" que tu désires
C = .Range("A1:G50")
.Range("A1:A2") = C
End With
End Sub
"cris col" a écrit dans le message de news:
48d2451e$0$14077$
Bonjour à tous,
Dans un tableau de x col. et x lig. importé depuis un OCR
les cellules sont toutes au format Texte mais contiennent
soit du texte, soit des chiffres, soit sont vides.
Manuellement, si je passe les cellules une par une et que
je supp. l'apostrophe en début de chq. cellule, j'obtiens
un tableau dont les chiffres sont reconnus en tant que tels.
C'est ce que je souhaite obtenir.
La Macro ci-aprés de John Walkenbach (Excelabo) se propose
d'effectuer le travail:
Sub ZapPrefixes() 'J. Walkenbach, mpep
For Each cell In ActiveSheet.UsedRange
If cell.PrefixCharacter <> "" Then
cell.Formula = cell.Formula
End If
Next cell
End Sub
Sauf que sur mon poste elle ne produit aucun effet.
Elle se deroule normalement sans erreur mais les " ' "
de début de lig. sont toujours là et les chiffres en
format texte ne sont pas reconnus comme des chiffres.
Qq. a t-il une idée pour supp. ce PrefixCharacter ?.
Merci d'avance
Cc.
Sub test()
''Nom de la propriété Feuil dans la
'fenêtre de l'éditeur de code
With Feuil1
'Indique la plage "continue" que tu désires
C = .Range("A1:G50")
.Range("A1:A2") = C
End With
End Sub
"cris col" a écrit dans le message de news:
48d2451e$0$14077$
Bonjour à tous,
Dans un tableau de x col. et x lig. importé depuis un OCR
les cellules sont toutes au format Texte mais contiennent
soit du texte, soit des chiffres, soit sont vides.
Manuellement, si je passe les cellules une par une et que
je supp. l'apostrophe en début de chq. cellule, j'obtiens
un tableau dont les chiffres sont reconnus en tant que tels.
C'est ce que je souhaite obtenir.
La Macro ci-aprés de John Walkenbach (Excelabo) se propose
d'effectuer le travail:
Sub ZapPrefixes() 'J. Walkenbach, mpep
For Each cell In ActiveSheet.UsedRange
If cell.PrefixCharacter <> "" Then
cell.Formula = cell.Formula
End If
Next cell
End Sub
Sauf que sur mon poste elle ne produit aucun effet.
Elle se deroule normalement sans erreur mais les " ' "
de début de lig. sont toujours là et les chiffres en
format texte ne sont pas reconnus comme des chiffres.
Qq. a t-il une idée pour supp. ce PrefixCharacter ?.
Merci d'avance
Cc.
Sub test()
''Nom de la propriété Feuil dans la
'fenêtre de l'éditeur de code
With Feuil1
'Indique la plage "continue" que tu désires
C = .Range("A1:G50")
.Range("A1:A2") = C
End With
End Sub
"cris col" <chris.col@free.fr> a écrit dans le message de news:
48d2451e$0$14077$426a74cc@news.free.fr...
Bonjour à tous,
Dans un tableau de x col. et x lig. importé depuis un OCR
les cellules sont toutes au format Texte mais contiennent
soit du texte, soit des chiffres, soit sont vides.
Manuellement, si je passe les cellules une par une et que
je supp. l'apostrophe en début de chq. cellule, j'obtiens
un tableau dont les chiffres sont reconnus en tant que tels.
C'est ce que je souhaite obtenir.
La Macro ci-aprés de John Walkenbach (Excelabo) se propose
d'effectuer le travail:
Sub ZapPrefixes() 'J. Walkenbach, mpep
For Each cell In ActiveSheet.UsedRange
If cell.PrefixCharacter <> "" Then
cell.Formula = cell.Formula
End If
Next cell
End Sub
Sauf que sur mon poste elle ne produit aucun effet.
Elle se deroule normalement sans erreur mais les " ' "
de début de lig. sont toujours là et les chiffres en
format texte ne sont pas reconnus comme des chiffres.
Qq. a t-il une idée pour supp. ce PrefixCharacter ?.
Merci d'avance
Cc.
Sub test()
''Nom de la propriété Feuil dans la
'fenêtre de l'éditeur de code
With Feuil1
'Indique la plage "continue" que tu désires
C = .Range("A1:G50")
.Range("A1:A2") = C
End With
End Sub
"cris col" a écrit dans le message de news:
48d2451e$0$14077$
Bonjour à tous,
Dans un tableau de x col. et x lig. importé depuis un OCR
les cellules sont toutes au format Texte mais contiennent
soit du texte, soit des chiffres, soit sont vides.
Manuellement, si je passe les cellules une par une et que
je supp. l'apostrophe en début de chq. cellule, j'obtiens
un tableau dont les chiffres sont reconnus en tant que tels.
C'est ce que je souhaite obtenir.
La Macro ci-aprés de John Walkenbach (Excelabo) se propose
d'effectuer le travail:
Sub ZapPrefixes() 'J. Walkenbach, mpep
For Each cell In ActiveSheet.UsedRange
If cell.PrefixCharacter <> "" Then
cell.Formula = cell.Formula
End If
Next cell
End Sub
Sauf que sur mon poste elle ne produit aucun effet.
Elle se deroule normalement sans erreur mais les " ' "
de début de lig. sont toujours là et les chiffres en
format texte ne sont pas reconnus comme des chiffres.
Qq. a t-il une idée pour supp. ce PrefixCharacter ?.
Merci d'avance
Cc.
Place à cette adresse "cjoint.com" un petit bout de ton classeur
et publie ici l'adresse où il se retrouvera.
"cris col" a écrit dans le message de news:
48d3c581$0$11550$
Bonjour,
Merci pour coup de main mais le resultat est le même qu'avec
la macro d'Excelabo. Le job ne se fait pas.
L'OCR fournit un fichier avec des points pour separer les milliers,
une virgule pour les decimales et les chiffres entiers n'en ont pas.
La macro qui marche (remplacement, retraitement, re-format) fait
25 lignes. Je trouvais + elegant et plus simple la suppression
du PrefixCaractere. (comme à la main..)
En fait c'était juste pour ameliorer le code. Merci quand même.
Cc.
"michdenis" a écrit dans le message de news:
OTS$Sub test()
''Nom de la propriété Feuil dans la
'fenêtre de l'éditeur de code
With Feuil1
'Indique la plage "continue" que tu désires
C = .Range("A1:G50")
.Range("A1:A2") = C
End With
End Sub
"cris col" a écrit dans le message de news:
48d2451e$0$14077$
Bonjour à tous,
Dans un tableau de x col. et x lig. importé depuis un OCR
les cellules sont toutes au format Texte mais contiennent
soit du texte, soit des chiffres, soit sont vides.
Manuellement, si je passe les cellules une par une et que
je supp. l'apostrophe en début de chq. cellule, j'obtiens
un tableau dont les chiffres sont reconnus en tant que tels.
C'est ce que je souhaite obtenir.
La Macro ci-aprés de John Walkenbach (Excelabo) se propose
d'effectuer le travail:
Sub ZapPrefixes() 'J. Walkenbach, mpep
For Each cell In ActiveSheet.UsedRange
If cell.PrefixCharacter <> "" Then
cell.Formula = cell.Formula
End If
Next cell
End Sub
Sauf que sur mon poste elle ne produit aucun effet.
Elle se deroule normalement sans erreur mais les " ' "
de début de lig. sont toujours là et les chiffres en
format texte ne sont pas reconnus comme des chiffres.
Qq. a t-il une idée pour supp. ce PrefixCharacter ?.
Merci d'avance
Cc.
Place à cette adresse "cjoint.com" un petit bout de ton classeur
et publie ici l'adresse où il se retrouvera.
"cris col" <chris.col@free.fr> a écrit dans le message de news:
48d3c581$0$11550$426a34cc@news.free.fr...
Bonjour,
Merci pour coup de main mais le resultat est le même qu'avec
la macro d'Excelabo. Le job ne se fait pas.
L'OCR fournit un fichier avec des points pour separer les milliers,
une virgule pour les decimales et les chiffres entiers n'en ont pas.
La macro qui marche (remplacement, retraitement, re-format) fait
25 lignes. Je trouvais + elegant et plus simple la suppression
du PrefixCaractere. (comme à la main..)
En fait c'était juste pour ameliorer le code. Merci quand même.
Cc.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OTS$FzYGJHA.5244@TK2MSFTNGP04.phx.gbl...
Sub test()
''Nom de la propriété Feuil dans la
'fenêtre de l'éditeur de code
With Feuil1
'Indique la plage "continue" que tu désires
C = .Range("A1:G50")
.Range("A1:A2") = C
End With
End Sub
"cris col" <chris.col@free.fr> a écrit dans le message de news:
48d2451e$0$14077$426a74cc@news.free.fr...
Bonjour à tous,
Dans un tableau de x col. et x lig. importé depuis un OCR
les cellules sont toutes au format Texte mais contiennent
soit du texte, soit des chiffres, soit sont vides.
Manuellement, si je passe les cellules une par une et que
je supp. l'apostrophe en début de chq. cellule, j'obtiens
un tableau dont les chiffres sont reconnus en tant que tels.
C'est ce que je souhaite obtenir.
La Macro ci-aprés de John Walkenbach (Excelabo) se propose
d'effectuer le travail:
Sub ZapPrefixes() 'J. Walkenbach, mpep
For Each cell In ActiveSheet.UsedRange
If cell.PrefixCharacter <> "" Then
cell.Formula = cell.Formula
End If
Next cell
End Sub
Sauf que sur mon poste elle ne produit aucun effet.
Elle se deroule normalement sans erreur mais les " ' "
de début de lig. sont toujours là et les chiffres en
format texte ne sont pas reconnus comme des chiffres.
Qq. a t-il une idée pour supp. ce PrefixCharacter ?.
Merci d'avance
Cc.
Place à cette adresse "cjoint.com" un petit bout de ton classeur
et publie ici l'adresse où il se retrouvera.
"cris col" a écrit dans le message de news:
48d3c581$0$11550$
Bonjour,
Merci pour coup de main mais le resultat est le même qu'avec
la macro d'Excelabo. Le job ne se fait pas.
L'OCR fournit un fichier avec des points pour separer les milliers,
une virgule pour les decimales et les chiffres entiers n'en ont pas.
La macro qui marche (remplacement, retraitement, re-format) fait
25 lignes. Je trouvais + elegant et plus simple la suppression
du PrefixCaractere. (comme à la main..)
En fait c'était juste pour ameliorer le code. Merci quand même.
Cc.
"michdenis" a écrit dans le message de news:
OTS$Sub test()
''Nom de la propriété Feuil dans la
'fenêtre de l'éditeur de code
With Feuil1
'Indique la plage "continue" que tu désires
C = .Range("A1:G50")
.Range("A1:A2") = C
End With
End Sub
"cris col" a écrit dans le message de news:
48d2451e$0$14077$
Bonjour à tous,
Dans un tableau de x col. et x lig. importé depuis un OCR
les cellules sont toutes au format Texte mais contiennent
soit du texte, soit des chiffres, soit sont vides.
Manuellement, si je passe les cellules une par une et que
je supp. l'apostrophe en début de chq. cellule, j'obtiens
un tableau dont les chiffres sont reconnus en tant que tels.
C'est ce que je souhaite obtenir.
La Macro ci-aprés de John Walkenbach (Excelabo) se propose
d'effectuer le travail:
Sub ZapPrefixes() 'J. Walkenbach, mpep
For Each cell In ActiveSheet.UsedRange
If cell.PrefixCharacter <> "" Then
cell.Formula = cell.Formula
End If
Next cell
End Sub
Sauf que sur mon poste elle ne produit aucun effet.
Elle se deroule normalement sans erreur mais les " ' "
de début de lig. sont toujours là et les chiffres en
format texte ne sont pas reconnus comme des chiffres.
Qq. a t-il une idée pour supp. ce PrefixCharacter ?.
Merci d'avance
Cc.
Place à cette adresse "cjoint.com" un petit bout de ton classeur
et publie ici l'adresse où il se retrouvera.
"cris col" a écrit dans le message de news:
48d3c581$0$11550$
Bonjour,
Merci pour coup de main mais le resultat est le même qu'avec
la macro d'Excelabo. Le job ne se fait pas.
L'OCR fournit un fichier avec des points pour separer les milliers,
une virgule pour les decimales et les chiffres entiers n'en ont pas.
La macro qui marche (remplacement, retraitement, re-format) fait
25 lignes. Je trouvais + elegant et plus simple la suppression
du PrefixCaractere. (comme à la main..)
En fait c'était juste pour ameliorer le code. Merci quand même.
Cc.
"michdenis" a écrit dans le message de news:
OTS$Sub test()
''Nom de la propriété Feuil dans la
'fenêtre de l'éditeur de code
With Feuil1
'Indique la plage "continue" que tu désires
C = .Range("A1:G50")
.Range("A1:A2") = C
End With
End Sub
"cris col" a écrit dans le message de news:
48d2451e$0$14077$
Bonjour à tous,
Dans un tableau de x col. et x lig. importé depuis un OCR
les cellules sont toutes au format Texte mais contiennent
soit du texte, soit des chiffres, soit sont vides.
Manuellement, si je passe les cellules une par une et que
je supp. l'apostrophe en début de chq. cellule, j'obtiens
un tableau dont les chiffres sont reconnus en tant que tels.
C'est ce que je souhaite obtenir.
La Macro ci-aprés de John Walkenbach (Excelabo) se propose
d'effectuer le travail:
Sub ZapPrefixes() 'J. Walkenbach, mpep
For Each cell In ActiveSheet.UsedRange
If cell.PrefixCharacter <> "" Then
cell.Formula = cell.Formula
End If
Next cell
End Sub
Sauf que sur mon poste elle ne produit aucun effet.
Elle se deroule normalement sans erreur mais les " ' "
de début de lig. sont toujours là et les chiffres en
format texte ne sont pas reconnus comme des chiffres.
Qq. a t-il une idée pour supp. ce PrefixCharacter ?.
Merci d'avance
Cc.
Place à cette adresse "cjoint.com" un petit bout de ton classeur
et publie ici l'adresse où il se retrouvera.
"cris col" <chris.col@free.fr> a écrit dans le message de news:
48d3c581$0$11550$426a34cc@news.free.fr...
Bonjour,
Merci pour coup de main mais le resultat est le même qu'avec
la macro d'Excelabo. Le job ne se fait pas.
L'OCR fournit un fichier avec des points pour separer les milliers,
une virgule pour les decimales et les chiffres entiers n'en ont pas.
La macro qui marche (remplacement, retraitement, re-format) fait
25 lignes. Je trouvais + elegant et plus simple la suppression
du PrefixCaractere. (comme à la main..)
En fait c'était juste pour ameliorer le code. Merci quand même.
Cc.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OTS$FzYGJHA.5244@TK2MSFTNGP04.phx.gbl...
Sub test()
''Nom de la propriété Feuil dans la
'fenêtre de l'éditeur de code
With Feuil1
'Indique la plage "continue" que tu désires
C = .Range("A1:G50")
.Range("A1:A2") = C
End With
End Sub
"cris col" <chris.col@free.fr> a écrit dans le message de news:
48d2451e$0$14077$426a74cc@news.free.fr...
Bonjour à tous,
Dans un tableau de x col. et x lig. importé depuis un OCR
les cellules sont toutes au format Texte mais contiennent
soit du texte, soit des chiffres, soit sont vides.
Manuellement, si je passe les cellules une par une et que
je supp. l'apostrophe en début de chq. cellule, j'obtiens
un tableau dont les chiffres sont reconnus en tant que tels.
C'est ce que je souhaite obtenir.
La Macro ci-aprés de John Walkenbach (Excelabo) se propose
d'effectuer le travail:
Sub ZapPrefixes() 'J. Walkenbach, mpep
For Each cell In ActiveSheet.UsedRange
If cell.PrefixCharacter <> "" Then
cell.Formula = cell.Formula
End If
Next cell
End Sub
Sauf que sur mon poste elle ne produit aucun effet.
Elle se deroule normalement sans erreur mais les " ' "
de début de lig. sont toujours là et les chiffres en
format texte ne sont pas reconnus comme des chiffres.
Qq. a t-il une idée pour supp. ce PrefixCharacter ?.
Merci d'avance
Cc.
Place à cette adresse "cjoint.com" un petit bout de ton classeur
et publie ici l'adresse où il se retrouvera.
"cris col" a écrit dans le message de news:
48d3c581$0$11550$
Bonjour,
Merci pour coup de main mais le resultat est le même qu'avec
la macro d'Excelabo. Le job ne se fait pas.
L'OCR fournit un fichier avec des points pour separer les milliers,
une virgule pour les decimales et les chiffres entiers n'en ont pas.
La macro qui marche (remplacement, retraitement, re-format) fait
25 lignes. Je trouvais + elegant et plus simple la suppression
du PrefixCaractere. (comme à la main..)
En fait c'était juste pour ameliorer le code. Merci quand même.
Cc.
"michdenis" a écrit dans le message de news:
OTS$Sub test()
''Nom de la propriété Feuil dans la
'fenêtre de l'éditeur de code
With Feuil1
'Indique la plage "continue" que tu désires
C = .Range("A1:G50")
.Range("A1:A2") = C
End With
End Sub
"cris col" a écrit dans le message de news:
48d2451e$0$14077$
Bonjour à tous,
Dans un tableau de x col. et x lig. importé depuis un OCR
les cellules sont toutes au format Texte mais contiennent
soit du texte, soit des chiffres, soit sont vides.
Manuellement, si je passe les cellules une par une et que
je supp. l'apostrophe en début de chq. cellule, j'obtiens
un tableau dont les chiffres sont reconnus en tant que tels.
C'est ce que je souhaite obtenir.
La Macro ci-aprés de John Walkenbach (Excelabo) se propose
d'effectuer le travail:
Sub ZapPrefixes() 'J. Walkenbach, mpep
For Each cell In ActiveSheet.UsedRange
If cell.PrefixCharacter <> "" Then
cell.Formula = cell.Formula
End If
Next cell
End Sub
Sauf que sur mon poste elle ne produit aucun effet.
Elle se deroule normalement sans erreur mais les " ' "
de début de lig. sont toujours là et les chiffres en
format texte ne sont pas reconnus comme des chiffres.
Qq. a t-il une idée pour supp. ce PrefixCharacter ?.
Merci d'avance
Cc.
Place à cette adresse "cjoint.com" un petit bout de ton classeur
et publie ici l'adresse où il se retrouvera.
"cris col" a écrit dans le message de news:
48d3c581$0$11550$
Bonjour,
Merci pour coup de main mais le resultat est le même qu'avec
la macro d'Excelabo. Le job ne se fait pas.
L'OCR fournit un fichier avec des points pour separer les milliers,
une virgule pour les decimales et les chiffres entiers n'en ont pas.
La macro qui marche (remplacement, retraitement, re-format) fait
25 lignes. Je trouvais + elegant et plus simple la suppression
du PrefixCaractere. (comme à la main..)
En fait c'était juste pour ameliorer le code. Merci quand même.
Cc.
"michdenis" a écrit dans le message de news:
OTS$Sub test()
''Nom de la propriété Feuil dans la
'fenêtre de l'éditeur de code
With Feuil1
'Indique la plage "continue" que tu désires
C = .Range("A1:G50")
.Range("A1:A2") = C
End With
End Sub
"cris col" a écrit dans le message de news:
48d2451e$0$14077$
Bonjour à tous,
Dans un tableau de x col. et x lig. importé depuis un OCR
les cellules sont toutes au format Texte mais contiennent
soit du texte, soit des chiffres, soit sont vides.
Manuellement, si je passe les cellules une par une et que
je supp. l'apostrophe en début de chq. cellule, j'obtiens
un tableau dont les chiffres sont reconnus en tant que tels.
C'est ce que je souhaite obtenir.
La Macro ci-aprés de John Walkenbach (Excelabo) se propose
d'effectuer le travail:
Sub ZapPrefixes() 'J. Walkenbach, mpep
For Each cell In ActiveSheet.UsedRange
If cell.PrefixCharacter <> "" Then
cell.Formula = cell.Formula
End If
Next cell
End Sub
Sauf que sur mon poste elle ne produit aucun effet.
Elle se deroule normalement sans erreur mais les " ' "
de début de lig. sont toujours là et les chiffres en
format texte ne sont pas reconnus comme des chiffres.
Qq. a t-il une idée pour supp. ce PrefixCharacter ?.
Merci d'avance
Cc.
Place à cette adresse "cjoint.com" un petit bout de ton classeur
et publie ici l'adresse où il se retrouvera.
"cris col" <chris.col@free.fr> a écrit dans le message de news:
48d3c581$0$11550$426a34cc@news.free.fr...
Bonjour,
Merci pour coup de main mais le resultat est le même qu'avec
la macro d'Excelabo. Le job ne se fait pas.
L'OCR fournit un fichier avec des points pour separer les milliers,
une virgule pour les decimales et les chiffres entiers n'en ont pas.
La macro qui marche (remplacement, retraitement, re-format) fait
25 lignes. Je trouvais + elegant et plus simple la suppression
du PrefixCaractere. (comme à la main..)
En fait c'était juste pour ameliorer le code. Merci quand même.
Cc.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OTS$FzYGJHA.5244@TK2MSFTNGP04.phx.gbl...
Sub test()
''Nom de la propriété Feuil dans la
'fenêtre de l'éditeur de code
With Feuil1
'Indique la plage "continue" que tu désires
C = .Range("A1:G50")
.Range("A1:A2") = C
End With
End Sub
"cris col" <chris.col@free.fr> a écrit dans le message de news:
48d2451e$0$14077$426a74cc@news.free.fr...
Bonjour à tous,
Dans un tableau de x col. et x lig. importé depuis un OCR
les cellules sont toutes au format Texte mais contiennent
soit du texte, soit des chiffres, soit sont vides.
Manuellement, si je passe les cellules une par une et que
je supp. l'apostrophe en début de chq. cellule, j'obtiens
un tableau dont les chiffres sont reconnus en tant que tels.
C'est ce que je souhaite obtenir.
La Macro ci-aprés de John Walkenbach (Excelabo) se propose
d'effectuer le travail:
Sub ZapPrefixes() 'J. Walkenbach, mpep
For Each cell In ActiveSheet.UsedRange
If cell.PrefixCharacter <> "" Then
cell.Formula = cell.Formula
End If
Next cell
End Sub
Sauf que sur mon poste elle ne produit aucun effet.
Elle se deroule normalement sans erreur mais les " ' "
de début de lig. sont toujours là et les chiffres en
format texte ne sont pas reconnus comme des chiffres.
Qq. a t-il une idée pour supp. ce PrefixCharacter ?.
Merci d'avance
Cc.
Place à cette adresse "cjoint.com" un petit bout de ton classeur
et publie ici l'adresse où il se retrouvera.
"cris col" a écrit dans le message de news:
48d3c581$0$11550$
Bonjour,
Merci pour coup de main mais le resultat est le même qu'avec
la macro d'Excelabo. Le job ne se fait pas.
L'OCR fournit un fichier avec des points pour separer les milliers,
une virgule pour les decimales et les chiffres entiers n'en ont pas.
La macro qui marche (remplacement, retraitement, re-format) fait
25 lignes. Je trouvais + elegant et plus simple la suppression
du PrefixCaractere. (comme à la main..)
En fait c'était juste pour ameliorer le code. Merci quand même.
Cc.
"michdenis" a écrit dans le message de news:
OTS$Sub test()
''Nom de la propriété Feuil dans la
'fenêtre de l'éditeur de code
With Feuil1
'Indique la plage "continue" que tu désires
C = .Range("A1:G50")
.Range("A1:A2") = C
End With
End Sub
"cris col" a écrit dans le message de news:
48d2451e$0$14077$
Bonjour à tous,
Dans un tableau de x col. et x lig. importé depuis un OCR
les cellules sont toutes au format Texte mais contiennent
soit du texte, soit des chiffres, soit sont vides.
Manuellement, si je passe les cellules une par une et que
je supp. l'apostrophe en début de chq. cellule, j'obtiens
un tableau dont les chiffres sont reconnus en tant que tels.
C'est ce que je souhaite obtenir.
La Macro ci-aprés de John Walkenbach (Excelabo) se propose
d'effectuer le travail:
Sub ZapPrefixes() 'J. Walkenbach, mpep
For Each cell In ActiveSheet.UsedRange
If cell.PrefixCharacter <> "" Then
cell.Formula = cell.Formula
End If
Next cell
End Sub
Sauf que sur mon poste elle ne produit aucun effet.
Elle se deroule normalement sans erreur mais les " ' "
de début de lig. sont toujours là et les chiffres en
format texte ne sont pas reconnus comme des chiffres.
Qq. a t-il une idée pour supp. ce PrefixCharacter ?.
Merci d'avance
Cc.