J' ai constitué une feuille de calcul en copiant collant des listing
bancaires en format Excel.
Le problème certaine de ces données c 'est que les sommes dans la
colonne DEBIT sont en format Positif.Par exemple: -65 ? se présente
comme 65? alors que d' autres s' affichent directement en format
négatif, soit : -65?.
Ma feuille de calcul ainsi constituée comprend environ 2500 lignes
dont la moitié à modifier.
J' ai bien commencer manuellement à faire les modifs mais un autre
problème s' affiche. En effet, la moitié de ces sommes s' affichent
avec un point au lieu d'une virgule marquant les décimales, ce que
Excel ne reconnait pas....exemple: 65.25? au lieu de 65,25?
Quelqu'un peut-il m'indiquer une macro ou une MFC serait applicable
pour régler mon problème ???
J' ai constitué une feuille de calcul en copiant collant des listing
bancaires en format Excel.
Le problème certaine de ces données c 'est que les sommes dans la
colonne DEBIT sont en format Positif.Par exemple: -65 ? se présente
comme 65? alors que d' autres s' affichent directement en format
négatif, soit : -65?.
Ma feuille de calcul ainsi constituée comprend environ 2500 lignes
dont la moitié à modifier.
J' ai bien commencer manuellement à faire les modifs mais un autre
problème s' affiche. En effet, la moitié de ces sommes s' affichent
avec un point au lieu d'une virgule marquant les décimales, ce que
Excel ne reconnait pas....exemple: 65.25? au lieu de 65,25?
Quelqu'un peut-il m'indiquer une macro ou une MFC serait applicable
pour régler mon problème ???
J' ai constitué une feuille de calcul en copiant collant des listing
bancaires en format Excel.
Le problème certaine de ces données c 'est que les sommes dans la
colonne DEBIT sont en format Positif.Par exemple: -65 ? se présente
comme 65? alors que d' autres s' affichent directement en format
négatif, soit : -65?.
Ma feuille de calcul ainsi constituée comprend environ 2500 lignes
dont la moitié à modifier.
J' ai bien commencer manuellement à faire les modifs mais un autre
problème s' affiche. En effet, la moitié de ces sommes s' affichent
avec un point au lieu d'une virgule marquant les décimales, ce que
Excel ne reconnait pas....exemple: 65.25? au lieu de 65,25?
Quelqu'un peut-il m'indiquer une macro ou une MFC serait applicable
pour régler mon problème ???
J' ai constitué une feuille de calcul en copiant collant des listing
bancaires en format Excel.
Le problème certaine de ces données c 'est que les sommes dans la
colonne DEBIT sont en format Positif.Par exemple: -65 ? se présente
comme 65? alors que d' autres s' affichent directement en format
négatif, soit : -65?.
Ma feuille de calcul ainsi constituée comprend environ 2500 lignes
dont la moitié à modifier.
J' ai bien commencer manuellement à faire les modifs mais un autre
problème s' affiche. En effet, la moitié de ces sommes s' affichent
avec un point au lieu d'une virgule marquant les décimales, ce que
Excel ne reconnait pas....exemple: 65.25? au lieu de 65,25?
Quelqu'un peut-il m'indiquer une macro ou une MFC serait applicable
pour régler mon problème ???
J' ai constitué une feuille de calcul en copiant collant des listing
bancaires en format Excel.
Le problème certaine de ces données c 'est que les sommes dans la
colonne DEBIT sont en format Positif.Par exemple: -65 ? se présente
comme 65? alors que d' autres s' affichent directement en format
négatif, soit : -65?.
Ma feuille de calcul ainsi constituée comprend environ 2500 lignes
dont la moitié à modifier.
J' ai bien commencer manuellement à faire les modifs mais un autre
problème s' affiche. En effet, la moitié de ces sommes s' affichent
avec un point au lieu d'une virgule marquant les décimales, ce que
Excel ne reconnait pas....exemple: 65.25? au lieu de 65,25?
Quelqu'un peut-il m'indiquer une macro ou une MFC serait applicable
pour régler mon problème ???
J' ai constitué une feuille de calcul en copiant collant des listing
bancaires en format Excel.
Le problème certaine de ces données c 'est que les sommes dans la
colonne DEBIT sont en format Positif.Par exemple: -65 ? se présente
comme 65? alors que d' autres s' affichent directement en format
négatif, soit : -65?.
Ma feuille de calcul ainsi constituée comprend environ 2500 lignes
dont la moitié à modifier.
J' ai bien commencer manuellement à faire les modifs mais un autre
problème s' affiche. En effet, la moitié de ces sommes s' affichent
avec un point au lieu d'une virgule marquant les décimales, ce que
Excel ne reconnait pas....exemple: 65.25? au lieu de 65,25?
Quelqu'un peut-il m'indiquer une macro ou une MFC serait applicable
pour régler mon problème ???
Bonjour,
Comment ça menu ???, je ne comprends pas !!
"Modeste" a écrit dans le message de news:
Bonsour® avec ferveur ;o))) vous nous disiez :J' ai constitué une feuille de calcul en copiant collant des listing
bancaires en format Excel.
Le problème certaine de ces données c 'est que les sommes dans la
colonne DEBIT sont en format Positif.Par exemple: -65 ? se présente
comme 65? alors que d' autres s' affichent directement en format
négatif, soit : -65?.
Ma feuille de calcul ainsi constituée comprend environ 2500 lignes
dont la moitié à modifier.
J' ai bien commencer manuellement à faire les modifs mais un autre
problème s' affiche. En effet, la moitié de ces sommes s' affichent
avec un point au lieu d'une virgule marquant les décimales, ce que
Excel ne reconnait pas....exemple: 65.25? au lieu de 65,25?
Quelqu'un peut-il m'indiquer une macro ou une MFC serait applicable
pour régler mon problème ???
pourquoi une macro ???
Utilise les menus !!!!
Edition remplacer . par ,
Bonjour,
Comment ça menu ???, je ne comprends pas !!
"Modeste" <gd@libre.fr> a écrit dans le message de news:
uRCl0GByKHA.984@TK2MSFTNGP05.phx.gbl...
Bonsour® Fr@ncis avec ferveur ;o))) vous nous disiez :
J' ai constitué une feuille de calcul en copiant collant des listing
bancaires en format Excel.
Le problème certaine de ces données c 'est que les sommes dans la
colonne DEBIT sont en format Positif.Par exemple: -65 ? se présente
comme 65? alors que d' autres s' affichent directement en format
négatif, soit : -65?.
Ma feuille de calcul ainsi constituée comprend environ 2500 lignes
dont la moitié à modifier.
J' ai bien commencer manuellement à faire les modifs mais un autre
problème s' affiche. En effet, la moitié de ces sommes s' affichent
avec un point au lieu d'une virgule marquant les décimales, ce que
Excel ne reconnait pas....exemple: 65.25? au lieu de 65,25?
Quelqu'un peut-il m'indiquer une macro ou une MFC serait applicable
pour régler mon problème ???
pourquoi une macro ???
Utilise les menus !!!!
Edition remplacer . par ,
Bonjour,
Comment ça menu ???, je ne comprends pas !!
"Modeste" a écrit dans le message de news:
Bonsour® avec ferveur ;o))) vous nous disiez :J' ai constitué une feuille de calcul en copiant collant des listing
bancaires en format Excel.
Le problème certaine de ces données c 'est que les sommes dans la
colonne DEBIT sont en format Positif.Par exemple: -65 ? se présente
comme 65? alors que d' autres s' affichent directement en format
négatif, soit : -65?.
Ma feuille de calcul ainsi constituée comprend environ 2500 lignes
dont la moitié à modifier.
J' ai bien commencer manuellement à faire les modifs mais un autre
problème s' affiche. En effet, la moitié de ces sommes s' affichent
avec un point au lieu d'une virgule marquant les décimales, ce que
Excel ne reconnait pas....exemple: 65.25? au lieu de 65,25?
Quelqu'un peut-il m'indiquer une macro ou une MFC serait applicable
pour régler mon problème ???
pourquoi une macro ???
Utilise les menus !!!!
Edition remplacer . par ,
Merçi encore mais ça ne règle pas mon problème sur format des sommes en
positif....
Merçi encore mais ça ne règle pas mon problème sur format des sommes en
positif....
Fr@ncis
Merçi encore mais ça ne règle pas mon problème sur format des sommes en
positif....
Merçi encore mais ça ne règle pas mon problème sur format des sommes en
positif....
Ok , j' ai trouvé , trés efficace
Merçi encore mais ça ne règle pas mon problème sur format des sommes en
positif....
"" a écrit dans le message de news:
4ba49d75$0$17861$Bonjour,
Comment ça menu ???, je ne comprends pas !!
"Modeste" a écrit dans le message de news:
Bonsour® avec ferveur ;o))) vous nous disiez :J' ai constitué une feuille de calcul en copiant collant des listing
bancaires en format Excel.
Le problème certaine de ces données c 'est que les sommes dans la
colonne DEBIT sont en format Positif.Par exemple: -65 ? se présente
comme 65? alors que d' autres s' affichent directement en format
négatif, soit : -65?.
Ma feuille de calcul ainsi constituée comprend environ 2500 lignes
dont la moitié à modifier.
J' ai bien commencer manuellement à faire les modifs mais un autre
problème s' affiche. En effet, la moitié de ces sommes s' affichent
avec un point au lieu d'une virgule marquant les décimales, ce que
Excel ne reconnait pas....exemple: 65.25? au lieu de 65,25?
Quelqu'un peut-il m'indiquer une macro ou une MFC serait applicable
pour régler mon problème ???
pourquoi une macro ???
Utilise les menus !!!!
Edition remplacer . par ,
Merçi encore mais ça ne règle pas mon problème sur format des sommes en
positif....
Fr@ncis
Ok , j' ai trouvé , trés efficace
Merçi encore mais ça ne règle pas mon problème sur format des sommes en
positif....
Fr@ncis
"Fr@ncis" <gtoukc@wanadoo.fr> a écrit dans le message de news:
4ba49d75$0$17861$ba4acef3@reader.news.orange.fr...
Bonjour,
Comment ça menu ???, je ne comprends pas !!
"Modeste" <gd@libre.fr> a écrit dans le message de news:
uRCl0GByKHA.984@TK2MSFTNGP05.phx.gbl...
Bonsour® Fr@ncis avec ferveur ;o))) vous nous disiez :
J' ai constitué une feuille de calcul en copiant collant des listing
bancaires en format Excel.
Le problème certaine de ces données c 'est que les sommes dans la
colonne DEBIT sont en format Positif.Par exemple: -65 ? se présente
comme 65? alors que d' autres s' affichent directement en format
négatif, soit : -65?.
Ma feuille de calcul ainsi constituée comprend environ 2500 lignes
dont la moitié à modifier.
J' ai bien commencer manuellement à faire les modifs mais un autre
problème s' affiche. En effet, la moitié de ces sommes s' affichent
avec un point au lieu d'une virgule marquant les décimales, ce que
Excel ne reconnait pas....exemple: 65.25? au lieu de 65,25?
Quelqu'un peut-il m'indiquer une macro ou une MFC serait applicable
pour régler mon problème ???
pourquoi une macro ???
Utilise les menus !!!!
Edition remplacer . par ,
Merçi encore mais ça ne règle pas mon problème sur format des sommes en
positif....
Ok , j' ai trouvé , trés efficace
Merçi encore mais ça ne règle pas mon problème sur format des sommes en
positif....
"" a écrit dans le message de news:
4ba49d75$0$17861$Bonjour,
Comment ça menu ???, je ne comprends pas !!
"Modeste" a écrit dans le message de news:
Bonsour® avec ferveur ;o))) vous nous disiez :J' ai constitué une feuille de calcul en copiant collant des listing
bancaires en format Excel.
Le problème certaine de ces données c 'est que les sommes dans la
colonne DEBIT sont en format Positif.Par exemple: -65 ? se présente
comme 65? alors que d' autres s' affichent directement en format
négatif, soit : -65?.
Ma feuille de calcul ainsi constituée comprend environ 2500 lignes
dont la moitié à modifier.
J' ai bien commencer manuellement à faire les modifs mais un autre
problème s' affiche. En effet, la moitié de ces sommes s' affichent
avec un point au lieu d'une virgule marquant les décimales, ce que
Excel ne reconnait pas....exemple: 65.25? au lieu de 65,25?
Quelqu'un peut-il m'indiquer une macro ou une MFC serait applicable
pour régler mon problème ???
pourquoi une macro ???
Utilise les menus !!!!
Edition remplacer . par ,
Bonsour® ""Merçi encore mais ça ne règle pas mon problème sur format des sommes en
positif....
Il n'est pas aisé de donner une solution générique à ce genre de
probleme...
il est possible que les cellules soient :
- en format Text
- contiennent des espaces ou caractères invisibles (Car(13), car(160))
le plus simple est de faire la chasse à ces choses :
-1ère étape :
effacer la référence monétaire si celle-ci n'est obtenue par un format
monétaire
menu édition remplacer "?" par rien (effacer la zone de saisie)
-2ème étape :
effacer les caractères invisibles
menu édition remplacer " "(espace) par rien (effacer la zone de saisie)
menu édition remplacer " "(Alt 0160) par rien (effacer la zone de saisie)
3ème étape : convertir les "textes" en nombres
taper 1 dans une cellule Vide
Copier
sélectionner la plage à corriger
menu édition collage spécial multiplication
si tout semble correct
repasser les cellules en format monétaire
si problèmes résiduels : analyser les cellules concernées...
Bonsour® "Fr@ncis"
Merçi encore mais ça ne règle pas mon problème sur format des sommes en
positif....
Fr@ncis
Il n'est pas aisé de donner une solution générique à ce genre de
probleme...
il est possible que les cellules soient :
- en format Text
- contiennent des espaces ou caractères invisibles (Car(13), car(160))
le plus simple est de faire la chasse à ces choses :
-1ère étape :
effacer la référence monétaire si celle-ci n'est obtenue par un format
monétaire
menu édition remplacer "?" par rien (effacer la zone de saisie)
-2ème étape :
effacer les caractères invisibles
menu édition remplacer " "(espace) par rien (effacer la zone de saisie)
menu édition remplacer " "(Alt 0160) par rien (effacer la zone de saisie)
3ème étape : convertir les "textes" en nombres
taper 1 dans une cellule Vide
Copier
sélectionner la plage à corriger
menu édition collage spécial multiplication
si tout semble correct
repasser les cellules en format monétaire
si problèmes résiduels : analyser les cellules concernées...
Bonsour® ""Merçi encore mais ça ne règle pas mon problème sur format des sommes en
positif....
Il n'est pas aisé de donner une solution générique à ce genre de
probleme...
il est possible que les cellules soient :
- en format Text
- contiennent des espaces ou caractères invisibles (Car(13), car(160))
le plus simple est de faire la chasse à ces choses :
-1ère étape :
effacer la référence monétaire si celle-ci n'est obtenue par un format
monétaire
menu édition remplacer "?" par rien (effacer la zone de saisie)
-2ème étape :
effacer les caractères invisibles
menu édition remplacer " "(espace) par rien (effacer la zone de saisie)
menu édition remplacer " "(Alt 0160) par rien (effacer la zone de saisie)
3ème étape : convertir les "textes" en nombres
taper 1 dans une cellule Vide
Copier
sélectionner la plage à corriger
menu édition collage spécial multiplication
si tout semble correct
repasser les cellules en format monétaire
si problèmes résiduels : analyser les cellules concernées...
Je vous propose de faire un essai avec cette macro à utiliser sur une
sélection de cellules
Sub ChangeCaract()
Selection.NumberFormat = "0.00_ ;[Red]-0.00 " 'à adapter.
For Each c In Selection
Saisie = c.Value
'changer ou supprimer les caractères interdits dans les Numéros... à
adapter.
Num = Application.WorksheetFunction.Substitute(Saisie, " ", "") 'espace
' Num = Application.WorksheetFunction.Substitute(Num, ",", "") 'virgule
Num = Application.WorksheetFunction.Substitute(Num, ".", "") 'point
Num = Application.WorksheetFunction.Substitute(Num, ":", "")
Num = Application.WorksheetFunction.Substitute(Num, ";", "")
Num = Application.WorksheetFunction.Substitute(Num, "-", "")
Num = Application.WorksheetFunction.Substitute(Num, "_", "")
Num = Application.WorksheetFunction.Substitute(Num, " ", "") 'car(160)
c.Value = Num
Next c
End Sub
"Modeste" a écrit dans le message de news:
e1G$Bonsour® ""Merçi encore mais ça ne règle pas mon problème sur format des sommes en
positif....
Il n'est pas aisé de donner une solution générique à ce genre de
probleme...
il est possible que les cellules soient :
- en format Text
- contiennent des espaces ou caractères invisibles (Car(13), car(160))
le plus simple est de faire la chasse à ces choses :
-1ère étape :
effacer la référence monétaire si celle-ci n'est obtenue par un format
monétaire
menu édition remplacer "?" par rien (effacer la zone de saisie)
-2ème étape :
effacer les caractères invisibles
menu édition remplacer " "(espace) par rien (effacer la zone de saisie)
menu édition remplacer " "(Alt 0160) par rien (effacer la zone de saisie)
3ème étape : convertir les "textes" en nombres
taper 1 dans une cellule Vide
Copier
sélectionner la plage à corriger
menu édition collage spécial multiplication
si tout semble correct
repasser les cellules en format monétaire
si problèmes résiduels : analyser les cellules concernées...
Je vous propose de faire un essai avec cette macro à utiliser sur une
sélection de cellules
Sub ChangeCaract()
Selection.NumberFormat = "0.00_ ;[Red]-0.00 " 'à adapter.
For Each c In Selection
Saisie = c.Value
'changer ou supprimer les caractères interdits dans les Numéros... à
adapter.
Num = Application.WorksheetFunction.Substitute(Saisie, " ", "") 'espace
' Num = Application.WorksheetFunction.Substitute(Num, ",", "") 'virgule
Num = Application.WorksheetFunction.Substitute(Num, ".", "") 'point
Num = Application.WorksheetFunction.Substitute(Num, ":", "")
Num = Application.WorksheetFunction.Substitute(Num, ";", "")
Num = Application.WorksheetFunction.Substitute(Num, "-", "")
Num = Application.WorksheetFunction.Substitute(Num, "_", "")
Num = Application.WorksheetFunction.Substitute(Num, " ", "") 'car(160)
c.Value = Num
Next c
End Sub
"Modeste" <nomail@live.fr> a écrit dans le message de news:
e1G$IECyKHA.5576@TK2MSFTNGP05.phx.gbl...
Bonsour® "Fr@ncis"
Merçi encore mais ça ne règle pas mon problème sur format des sommes en
positif....
Fr@ncis
Il n'est pas aisé de donner une solution générique à ce genre de
probleme...
il est possible que les cellules soient :
- en format Text
- contiennent des espaces ou caractères invisibles (Car(13), car(160))
le plus simple est de faire la chasse à ces choses :
-1ère étape :
effacer la référence monétaire si celle-ci n'est obtenue par un format
monétaire
menu édition remplacer "?" par rien (effacer la zone de saisie)
-2ème étape :
effacer les caractères invisibles
menu édition remplacer " "(espace) par rien (effacer la zone de saisie)
menu édition remplacer " "(Alt 0160) par rien (effacer la zone de saisie)
3ème étape : convertir les "textes" en nombres
taper 1 dans une cellule Vide
Copier
sélectionner la plage à corriger
menu édition collage spécial multiplication
si tout semble correct
repasser les cellules en format monétaire
si problèmes résiduels : analyser les cellules concernées...
Je vous propose de faire un essai avec cette macro à utiliser sur une
sélection de cellules
Sub ChangeCaract()
Selection.NumberFormat = "0.00_ ;[Red]-0.00 " 'à adapter.
For Each c In Selection
Saisie = c.Value
'changer ou supprimer les caractères interdits dans les Numéros... à
adapter.
Num = Application.WorksheetFunction.Substitute(Saisie, " ", "") 'espace
' Num = Application.WorksheetFunction.Substitute(Num, ",", "") 'virgule
Num = Application.WorksheetFunction.Substitute(Num, ".", "") 'point
Num = Application.WorksheetFunction.Substitute(Num, ":", "")
Num = Application.WorksheetFunction.Substitute(Num, ";", "")
Num = Application.WorksheetFunction.Substitute(Num, "-", "")
Num = Application.WorksheetFunction.Substitute(Num, "_", "")
Num = Application.WorksheetFunction.Substitute(Num, " ", "") 'car(160)
c.Value = Num
Next c
End Sub
"Modeste" a écrit dans le message de news:
e1G$Bonsour® ""Merçi encore mais ça ne règle pas mon problème sur format des sommes en
positif....
Il n'est pas aisé de donner une solution générique à ce genre de
probleme...
il est possible que les cellules soient :
- en format Text
- contiennent des espaces ou caractères invisibles (Car(13), car(160))
le plus simple est de faire la chasse à ces choses :
-1ère étape :
effacer la référence monétaire si celle-ci n'est obtenue par un format
monétaire
menu édition remplacer "?" par rien (effacer la zone de saisie)
-2ème étape :
effacer les caractères invisibles
menu édition remplacer " "(espace) par rien (effacer la zone de saisie)
menu édition remplacer " "(Alt 0160) par rien (effacer la zone de saisie)
3ème étape : convertir les "textes" en nombres
taper 1 dans une cellule Vide
Copier
sélectionner la plage à corriger
menu édition collage spécial multiplication
si tout semble correct
repasser les cellules en format monétaire
si problèmes résiduels : analyser les cellules concernées...
Re;
J' ai mis en application la macro mais je n' aboutis toujours pas à l'
affichage des sommes en Négatif ????
( -65,90? par exemple )
"f4crw" a écrit dans le message de news:Je vous propose de faire un essai avec cette macro à utiliser sur une
sélection de cellules
Sub ChangeCaract()
Selection.NumberFormat = "0.00_ ;[Red]-0.00 " 'à adapter.
For Each c In Selection
Saisie = c.Value
'changer ou supprimer les caractères interdits dans les Numéros... à
adapter.
Num = Application.WorksheetFunction.Substitute(Saisie, " ", "") 'espace
' Num = Application.WorksheetFunction.Substitute(Num, ",", "") 'virgule
Num = Application.WorksheetFunction.Substitute(Num, ".", "") 'point
Num = Application.WorksheetFunction.Substitute(Num, ":", "")
Num = Application.WorksheetFunction.Substitute(Num, ";", "")
Num = Application.WorksheetFunction.Substitute(Num, "-", "")
Num = Application.WorksheetFunction.Substitute(Num, "_", "")
Num = Application.WorksheetFunction.Substitute(Num, " ", "") 'car(160)
c.Value = Num
Next c
End Sub
"Modeste" a écrit dans le message de news:
e1G$Bonsour® ""Merçi encore mais ça ne règle pas mon problème sur format des sommes en
positif....
Il n'est pas aisé de donner une solution générique à ce genre de
probleme...
il est possible que les cellules soient :
- en format Text
- contiennent des espaces ou caractères invisibles (Car(13), car(160))
le plus simple est de faire la chasse à ces choses :
-1ère étape :
effacer la référence monétaire si celle-ci n'est obtenue par un format
monétaire
menu édition remplacer "?" par rien (effacer la zone de saisie)
-2ème étape :
effacer les caractères invisibles
menu édition remplacer " "(espace) par rien (effacer la zone de saisie)
menu édition remplacer " "(Alt 0160) par rien (effacer la zone de saisie)
3ème étape : convertir les "textes" en nombres
taper 1 dans une cellule Vide
Copier
sélectionner la plage à corriger
menu édition collage spécial multiplication
si tout semble correct
repasser les cellules en format monétaire
si problèmes résiduels : analyser les cellules concernées...
Re;
J' ai mis en application la macro mais je n' aboutis toujours pas à l'
affichage des sommes en Négatif ????
( -65,90? par exemple )
"f4crw"<f4crw@free.fr> a écrit dans le message de news:
etB9n4DyKHA.3408@TK2MSFTNGP06.phx.gbl...
Je vous propose de faire un essai avec cette macro à utiliser sur une
sélection de cellules
Sub ChangeCaract()
Selection.NumberFormat = "0.00_ ;[Red]-0.00 " 'à adapter.
For Each c In Selection
Saisie = c.Value
'changer ou supprimer les caractères interdits dans les Numéros... à
adapter.
Num = Application.WorksheetFunction.Substitute(Saisie, " ", "") 'espace
' Num = Application.WorksheetFunction.Substitute(Num, ",", "") 'virgule
Num = Application.WorksheetFunction.Substitute(Num, ".", "") 'point
Num = Application.WorksheetFunction.Substitute(Num, ":", "")
Num = Application.WorksheetFunction.Substitute(Num, ";", "")
Num = Application.WorksheetFunction.Substitute(Num, "-", "")
Num = Application.WorksheetFunction.Substitute(Num, "_", "")
Num = Application.WorksheetFunction.Substitute(Num, " ", "") 'car(160)
c.Value = Num
Next c
End Sub
"Modeste"<nomail@live.fr> a écrit dans le message de news:
e1G$IECyKHA.5576@TK2MSFTNGP05.phx.gbl...
Bonsour® "Fr@ncis"
Merçi encore mais ça ne règle pas mon problème sur format des sommes en
positif....
Fr@ncis
Il n'est pas aisé de donner une solution générique à ce genre de
probleme...
il est possible que les cellules soient :
- en format Text
- contiennent des espaces ou caractères invisibles (Car(13), car(160))
le plus simple est de faire la chasse à ces choses :
-1ère étape :
effacer la référence monétaire si celle-ci n'est obtenue par un format
monétaire
menu édition remplacer "?" par rien (effacer la zone de saisie)
-2ème étape :
effacer les caractères invisibles
menu édition remplacer " "(espace) par rien (effacer la zone de saisie)
menu édition remplacer " "(Alt 0160) par rien (effacer la zone de saisie)
3ème étape : convertir les "textes" en nombres
taper 1 dans une cellule Vide
Copier
sélectionner la plage à corriger
menu édition collage spécial multiplication
si tout semble correct
repasser les cellules en format monétaire
si problèmes résiduels : analyser les cellules concernées...
Re;
J' ai mis en application la macro mais je n' aboutis toujours pas à l'
affichage des sommes en Négatif ????
( -65,90? par exemple )
"f4crw" a écrit dans le message de news:Je vous propose de faire un essai avec cette macro à utiliser sur une
sélection de cellules
Sub ChangeCaract()
Selection.NumberFormat = "0.00_ ;[Red]-0.00 " 'à adapter.
For Each c In Selection
Saisie = c.Value
'changer ou supprimer les caractères interdits dans les Numéros... à
adapter.
Num = Application.WorksheetFunction.Substitute(Saisie, " ", "") 'espace
' Num = Application.WorksheetFunction.Substitute(Num, ",", "") 'virgule
Num = Application.WorksheetFunction.Substitute(Num, ".", "") 'point
Num = Application.WorksheetFunction.Substitute(Num, ":", "")
Num = Application.WorksheetFunction.Substitute(Num, ";", "")
Num = Application.WorksheetFunction.Substitute(Num, "-", "")
Num = Application.WorksheetFunction.Substitute(Num, "_", "")
Num = Application.WorksheetFunction.Substitute(Num, " ", "") 'car(160)
c.Value = Num
Next c
End Sub
"Modeste" a écrit dans le message de news:
e1G$Bonsour® ""Merçi encore mais ça ne règle pas mon problème sur format des sommes en
positif....
Il n'est pas aisé de donner une solution générique à ce genre de
probleme...
il est possible que les cellules soient :
- en format Text
- contiennent des espaces ou caractères invisibles (Car(13), car(160))
le plus simple est de faire la chasse à ces choses :
-1ère étape :
effacer la référence monétaire si celle-ci n'est obtenue par un format
monétaire
menu édition remplacer "?" par rien (effacer la zone de saisie)
-2ème étape :
effacer les caractères invisibles
menu édition remplacer " "(espace) par rien (effacer la zone de saisie)
menu édition remplacer " "(Alt 0160) par rien (effacer la zone de saisie)
3ème étape : convertir les "textes" en nombres
taper 1 dans une cellule Vide
Copier
sélectionner la plage à corriger
menu édition collage spécial multiplication
si tout semble correct
repasser les cellules en format monétaire
si problèmes résiduels : analyser les cellules concernées...
bonjour Francis,
si les données sont bien au format numérique et que le séparateur décimal
utilisé sur ton pc est bien la virgule,
entre le chiffre -1,00 dans une cellule, copie cette cellule ,
sélectionne la plage à modifier et fait un collage spécial multiplication.
isabelle
Le 2010-03-20 12:18, a écrit :Re;
J' ai mis en application la macro mais je n' aboutis toujours pas à l'
affichage des sommes en Négatif ????
( -65,90? par exemple )
"f4crw" a écrit dans le message de news:Je vous propose de faire un essai avec cette macro à utiliser sur une
sélection de cellules
Sub ChangeCaract()
Selection.NumberFormat = "0.00_ ;[Red]-0.00 " 'à adapter.
For Each c In Selection
Saisie = c.Value
'changer ou supprimer les caractères interdits dans les Numéros...
à
adapter.
Num = Application.WorksheetFunction.Substitute(Saisie, " ", "")
'espace
' Num = Application.WorksheetFunction.Substitute(Num, ",", "") 'virgule
Num = Application.WorksheetFunction.Substitute(Num, ".", "") 'point
Num = Application.WorksheetFunction.Substitute(Num, ":", "")
Num = Application.WorksheetFunction.Substitute(Num, ";", "")
Num = Application.WorksheetFunction.Substitute(Num, "-", "")
Num = Application.WorksheetFunction.Substitute(Num, "_", "")
Num = Application.WorksheetFunction.Substitute(Num, " ", "") 'car(160)
c.Value = Num
Next c
End Sub
"Modeste" a écrit dans le message de news:
e1G$Bonsour® ""Merçi encore mais ça ne règle pas mon problème sur format des sommes
en
positif....
Il n'est pas aisé de donner une solution générique à ce genre de
probleme...
il est possible que les cellules soient :
- en format Text
- contiennent des espaces ou caractères invisibles (Car(13), car(160))
le plus simple est de faire la chasse à ces choses :
-1ère étape :
effacer la référence monétaire si celle-ci n'est obtenue par un format
monétaire
menu édition remplacer "?" par rien (effacer la zone de saisie)
-2ème étape :
effacer les caractères invisibles
menu édition remplacer " "(espace) par rien (effacer la zone de saisie)
menu édition remplacer " "(Alt 0160) par rien (effacer la zone de
saisie)
3ème étape : convertir les "textes" en nombres
taper 1 dans une cellule Vide
Copier
sélectionner la plage à corriger
menu édition collage spécial multiplication
si tout semble correct
repasser les cellules en format monétaire
si problèmes résiduels : analyser les cellules concernées...
bonjour Francis,
si les données sont bien au format numérique et que le séparateur décimal
utilisé sur ton pc est bien la virgule,
entre le chiffre -1,00 dans une cellule, copie cette cellule ,
sélectionne la plage à modifier et fait un collage spécial multiplication.
isabelle
Le 2010-03-20 12:18, Fr@ncis a écrit :
Re;
J' ai mis en application la macro mais je n' aboutis toujours pas à l'
affichage des sommes en Négatif ????
( -65,90? par exemple )
"f4crw"<f4crw@free.fr> a écrit dans le message de news:
etB9n4DyKHA.3408@TK2MSFTNGP06.phx.gbl...
Je vous propose de faire un essai avec cette macro à utiliser sur une
sélection de cellules
Sub ChangeCaract()
Selection.NumberFormat = "0.00_ ;[Red]-0.00 " 'à adapter.
For Each c In Selection
Saisie = c.Value
'changer ou supprimer les caractères interdits dans les Numéros...
à
adapter.
Num = Application.WorksheetFunction.Substitute(Saisie, " ", "")
'espace
' Num = Application.WorksheetFunction.Substitute(Num, ",", "") 'virgule
Num = Application.WorksheetFunction.Substitute(Num, ".", "") 'point
Num = Application.WorksheetFunction.Substitute(Num, ":", "")
Num = Application.WorksheetFunction.Substitute(Num, ";", "")
Num = Application.WorksheetFunction.Substitute(Num, "-", "")
Num = Application.WorksheetFunction.Substitute(Num, "_", "")
Num = Application.WorksheetFunction.Substitute(Num, " ", "") 'car(160)
c.Value = Num
Next c
End Sub
"Modeste"<nomail@live.fr> a écrit dans le message de news:
e1G$IECyKHA.5576@TK2MSFTNGP05.phx.gbl...
Bonsour® "Fr@ncis"
Merçi encore mais ça ne règle pas mon problème sur format des sommes
en
positif....
Fr@ncis
Il n'est pas aisé de donner une solution générique à ce genre de
probleme...
il est possible que les cellules soient :
- en format Text
- contiennent des espaces ou caractères invisibles (Car(13), car(160))
le plus simple est de faire la chasse à ces choses :
-1ère étape :
effacer la référence monétaire si celle-ci n'est obtenue par un format
monétaire
menu édition remplacer "?" par rien (effacer la zone de saisie)
-2ème étape :
effacer les caractères invisibles
menu édition remplacer " "(espace) par rien (effacer la zone de saisie)
menu édition remplacer " "(Alt 0160) par rien (effacer la zone de
saisie)
3ème étape : convertir les "textes" en nombres
taper 1 dans une cellule Vide
Copier
sélectionner la plage à corriger
menu édition collage spécial multiplication
si tout semble correct
repasser les cellules en format monétaire
si problèmes résiduels : analyser les cellules concernées...
bonjour Francis,
si les données sont bien au format numérique et que le séparateur décimal
utilisé sur ton pc est bien la virgule,
entre le chiffre -1,00 dans une cellule, copie cette cellule ,
sélectionne la plage à modifier et fait un collage spécial multiplication.
isabelle
Le 2010-03-20 12:18, a écrit :Re;
J' ai mis en application la macro mais je n' aboutis toujours pas à l'
affichage des sommes en Négatif ????
( -65,90? par exemple )
"f4crw" a écrit dans le message de news:Je vous propose de faire un essai avec cette macro à utiliser sur une
sélection de cellules
Sub ChangeCaract()
Selection.NumberFormat = "0.00_ ;[Red]-0.00 " 'à adapter.
For Each c In Selection
Saisie = c.Value
'changer ou supprimer les caractères interdits dans les Numéros...
à
adapter.
Num = Application.WorksheetFunction.Substitute(Saisie, " ", "")
'espace
' Num = Application.WorksheetFunction.Substitute(Num, ",", "") 'virgule
Num = Application.WorksheetFunction.Substitute(Num, ".", "") 'point
Num = Application.WorksheetFunction.Substitute(Num, ":", "")
Num = Application.WorksheetFunction.Substitute(Num, ";", "")
Num = Application.WorksheetFunction.Substitute(Num, "-", "")
Num = Application.WorksheetFunction.Substitute(Num, "_", "")
Num = Application.WorksheetFunction.Substitute(Num, " ", "") 'car(160)
c.Value = Num
Next c
End Sub
"Modeste" a écrit dans le message de news:
e1G$Bonsour® ""Merçi encore mais ça ne règle pas mon problème sur format des sommes
en
positif....
Il n'est pas aisé de donner une solution générique à ce genre de
probleme...
il est possible que les cellules soient :
- en format Text
- contiennent des espaces ou caractères invisibles (Car(13), car(160))
le plus simple est de faire la chasse à ces choses :
-1ère étape :
effacer la référence monétaire si celle-ci n'est obtenue par un format
monétaire
menu édition remplacer "?" par rien (effacer la zone de saisie)
-2ème étape :
effacer les caractères invisibles
menu édition remplacer " "(espace) par rien (effacer la zone de saisie)
menu édition remplacer " "(Alt 0160) par rien (effacer la zone de
saisie)
3ème étape : convertir les "textes" en nombres
taper 1 dans une cellule Vide
Copier
sélectionner la plage à corriger
menu édition collage spécial multiplication
si tout semble correct
repasser les cellules en format monétaire
si problèmes résiduels : analyser les cellules concernées...
Re;
J' ai mis en application la macro mais je n' aboutis toujours pas à l'
affichage des sommes en Négatif ????
( -65,90? par exemple )
"f4crw" a écrit dans le message de news:Je vous propose de faire un essai avec cette macro à utiliser sur une
sélection de cellules
Sub ChangeCaract()
Selection.NumberFormat = "0.00_ ;[Red]-0.00 " 'à adapter.
For Each c In Selection
Saisie = c.Value
'changer ou supprimer les caractères interdits dans les Numéros... à
adapter.
Num = Application.WorksheetFunction.Substitute(Saisie, " ", "") 'espace
' Num = Application.WorksheetFunction.Substitute(Num, ",", "") 'virgule
Num = Application.WorksheetFunction.Substitute(Num, ".", "") 'point
Num = Application.WorksheetFunction.Substitute(Num, ":", "")
Num = Application.WorksheetFunction.Substitute(Num, ";", "")
Num = Application.WorksheetFunction.Substitute(Num, "-", "")
Num = Application.WorksheetFunction.Substitute(Num, "_", "")
Num = Application.WorksheetFunction.Substitute(Num, " ", "") 'car(160)
c.Value = Num
Next c
End Sub
"Modeste" a écrit dans le message de news:
e1G$Bonsour® ""Merçi encore mais ça ne règle pas mon problème sur format des sommes en
positif....
Il n'est pas aisé de donner une solution générique à ce genre de
probleme...
il est possible que les cellules soient :
- en format Text
- contiennent des espaces ou caractères invisibles (Car(13), car(160))
le plus simple est de faire la chasse à ces choses :
-1ère étape :
effacer la référence monétaire si celle-ci n'est obtenue par un format
monétaire
menu édition remplacer "?" par rien (effacer la zone de saisie)
-2ème étape :
effacer les caractères invisibles
menu édition remplacer " "(espace) par rien (effacer la zone de saisie)
menu édition remplacer " "(Alt 0160) par rien (effacer la zone de
saisie)
3ème étape : convertir les "textes" en nombres
taper 1 dans une cellule Vide
Copier
sélectionner la plage à corriger
menu édition collage spécial multiplication
si tout semble correct
repasser les cellules en format monétaire
si problèmes résiduels : analyser les cellules concernées...
Re;
J' ai mis en application la macro mais je n' aboutis toujours pas à l'
affichage des sommes en Négatif ????
( -65,90? par exemple )
"f4crw" <f4crw@free.fr> a écrit dans le message de news:
etB9n4DyKHA.3408@TK2MSFTNGP06.phx.gbl...
Je vous propose de faire un essai avec cette macro à utiliser sur une
sélection de cellules
Sub ChangeCaract()
Selection.NumberFormat = "0.00_ ;[Red]-0.00 " 'à adapter.
For Each c In Selection
Saisie = c.Value
'changer ou supprimer les caractères interdits dans les Numéros... à
adapter.
Num = Application.WorksheetFunction.Substitute(Saisie, " ", "") 'espace
' Num = Application.WorksheetFunction.Substitute(Num, ",", "") 'virgule
Num = Application.WorksheetFunction.Substitute(Num, ".", "") 'point
Num = Application.WorksheetFunction.Substitute(Num, ":", "")
Num = Application.WorksheetFunction.Substitute(Num, ";", "")
Num = Application.WorksheetFunction.Substitute(Num, "-", "")
Num = Application.WorksheetFunction.Substitute(Num, "_", "")
Num = Application.WorksheetFunction.Substitute(Num, " ", "") 'car(160)
c.Value = Num
Next c
End Sub
"Modeste" <nomail@live.fr> a écrit dans le message de news:
e1G$IECyKHA.5576@TK2MSFTNGP05.phx.gbl...
Bonsour® "Fr@ncis"
Merçi encore mais ça ne règle pas mon problème sur format des sommes en
positif....
Fr@ncis
Il n'est pas aisé de donner une solution générique à ce genre de
probleme...
il est possible que les cellules soient :
- en format Text
- contiennent des espaces ou caractères invisibles (Car(13), car(160))
le plus simple est de faire la chasse à ces choses :
-1ère étape :
effacer la référence monétaire si celle-ci n'est obtenue par un format
monétaire
menu édition remplacer "?" par rien (effacer la zone de saisie)
-2ème étape :
effacer les caractères invisibles
menu édition remplacer " "(espace) par rien (effacer la zone de saisie)
menu édition remplacer " "(Alt 0160) par rien (effacer la zone de
saisie)
3ème étape : convertir les "textes" en nombres
taper 1 dans une cellule Vide
Copier
sélectionner la plage à corriger
menu édition collage spécial multiplication
si tout semble correct
repasser les cellules en format monétaire
si problèmes résiduels : analyser les cellules concernées...
Re;
J' ai mis en application la macro mais je n' aboutis toujours pas à l'
affichage des sommes en Négatif ????
( -65,90? par exemple )
"f4crw" a écrit dans le message de news:Je vous propose de faire un essai avec cette macro à utiliser sur une
sélection de cellules
Sub ChangeCaract()
Selection.NumberFormat = "0.00_ ;[Red]-0.00 " 'à adapter.
For Each c In Selection
Saisie = c.Value
'changer ou supprimer les caractères interdits dans les Numéros... à
adapter.
Num = Application.WorksheetFunction.Substitute(Saisie, " ", "") 'espace
' Num = Application.WorksheetFunction.Substitute(Num, ",", "") 'virgule
Num = Application.WorksheetFunction.Substitute(Num, ".", "") 'point
Num = Application.WorksheetFunction.Substitute(Num, ":", "")
Num = Application.WorksheetFunction.Substitute(Num, ";", "")
Num = Application.WorksheetFunction.Substitute(Num, "-", "")
Num = Application.WorksheetFunction.Substitute(Num, "_", "")
Num = Application.WorksheetFunction.Substitute(Num, " ", "") 'car(160)
c.Value = Num
Next c
End Sub
"Modeste" a écrit dans le message de news:
e1G$Bonsour® ""Merçi encore mais ça ne règle pas mon problème sur format des sommes en
positif....
Il n'est pas aisé de donner une solution générique à ce genre de
probleme...
il est possible que les cellules soient :
- en format Text
- contiennent des espaces ou caractères invisibles (Car(13), car(160))
le plus simple est de faire la chasse à ces choses :
-1ère étape :
effacer la référence monétaire si celle-ci n'est obtenue par un format
monétaire
menu édition remplacer "?" par rien (effacer la zone de saisie)
-2ème étape :
effacer les caractères invisibles
menu édition remplacer " "(espace) par rien (effacer la zone de saisie)
menu édition remplacer " "(Alt 0160) par rien (effacer la zone de
saisie)
3ème étape : convertir les "textes" en nombres
taper 1 dans une cellule Vide
Copier
sélectionner la plage à corriger
menu édition collage spécial multiplication
si tout semble correct
repasser les cellules en format monétaire
si problèmes résiduels : analyser les cellules concernées...