Edition Remplacer fonctionne lors de l'enregistrement de la macro

Le
PLG
Bonjour à tous
Cela fait longtemps que cela me court
J'ai des données exportées d'une application, elles sont en format texte et
avec un point comme séparateur au lieu d'une virgule.
Je fais donc un Edition / Remplacer les points par les virgules en macro.
Lorsque je crée ma macro via l'enregistreur cela fonctionne très bien, les
données passent en mode numérique et le séparateur est bien la virgule.
Hors si je lance cette macro par la suite, le point est bien remplacé par la
virgule, mais les valeurs restent en format texte et sont donc inexploitables
en l'état.
C'est frustrant!!!!
Voici mon bête code :
Sub Macro2()
Range("P23:S35").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:lse
End Sub

Le problème a déjà dû être soulevé.
Merci à vous si vous arrivez à me dépanner.
Bonne journée
Pat

  • Partager ce contenu :
Vos réponses Page 2 / 2
Trier par : date / pertinence
PLG
Le #22211461
Bah.... ben je préfère ta réponse précédente... (O:}
Elle fonctionne à merveille !
Je la garde !

( Pour te faire plaisir ) donne une erreur sur certaines cellules...
du style : 2.980769 me renvoie 2 980 769 au lieu de 2,980 769
J'avoue que c'est assez déconcertant...!
Chose que ne me fait pas ton code précédent.

Toujours est il..... UN GRAND MERCI à toi.
Pat

"michdenis" wrote:

Bonjour,

Une façon de faire...
(pour me faire plaisir...!)

Adapte le nom de la feuille et de la plage
'---------------------------------
Sub test()
Dim C As Range
Application.ScreenUpdating = False
With Worksheets("Feuil1")
.Activate
With .Range("A1:A10")
.Replace ".", ",", xlPart
For Each C In .Cells
C.Select
SendKeys "{F2}" & "~"
t = Timer + 1 / 10000
Do While Timer <= t
DoEvents
Loop
Next
End With
End With
Application.ScreenUpdating = True
End Sub
'---------------------------------




"PLG"
Bonjour à tous
Cela fait longtemps que cela me court...
J'ai des données exportées d'une application, elles sont en format texte et
avec un point comme séparateur au lieu d'une virgule.
Je fais donc un Edition / Remplacer les points par les virgules en macro.
Lorsque je crée ma macro via l'enregistreur cela fonctionne très bien, les
données passent en mode numérique et le séparateur est bien la virgule.
Hors si je lance cette macro par la suite, le point est bien remplacé par la
virgule, mais les valeurs restent en format texte et sont donc inexploitables
en l'état.
C'est frustrant...!!!!
Voici mon bête code :
Sub Macro2()
Range("P23:S35").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse
End Sub

Le problème a déjà dû être soulevé....
Merci à vous si vous arrivez à me dépanner.
Bonne journée
Pat

PLG
Le #22211451
Merci à vous tous !!
Je retiens la 2nde solution de Michdenis.
Boone continuation à vous
Bonne journée
Pat

"PLG" wrote:

Bonjour à tous
Cela fait longtemps que cela me court...
J'ai des données exportées d'une application, elles sont en format texte et
avec un point comme séparateur au lieu d'une virgule.
Je fais donc un Edition / Remplacer les points par les virgules en macro.
Lorsque je crée ma macro via l'enregistreur cela fonctionne très bien, les
données passent en mode numérique et le séparateur est bien la virgule.
Hors si je lance cette macro par la suite, le point est bien remplacé par la
virgule, mais les valeurs restent en format texte et sont donc inexploitables
en l'état.
C'est frustrant...!!!!
Voici mon bête code :
Sub Macro2()
Range("P23:S35").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse
End Sub

Le problème a déjà dû être soulevé....
Merci à vous si vous arrivez à me dépanner.
Bonne journée
Pat
michdenis
Le #22211551
Il aurait été sage de stipuler dans ta question que le "point"
était le réparateur de "milliers" et non un séparateur décimal!



"PLG"
Bah.... ben je préfère ta réponse précédente... (O:}
Elle fonctionne à merveille !
Je la garde !

( Pour te faire plaisir ) donne une erreur sur certaines cellules...
du style : 2.980769 me renvoie 2 980 769 au lieu de 2,980 769
J'avoue que c'est assez déconcertant...!
Chose que ne me fait pas ton code précédent.

Toujours est il..... UN GRAND MERCI à toi.
Pat

"michdenis" wrote:

Bonjour,

Une façon de faire...
(pour me faire plaisir...!)

Adapte le nom de la feuille et de la plage
'---------------------------------
Sub test()
Dim C As Range
Application.ScreenUpdating = False
With Worksheets("Feuil1")
.Activate
With .Range("A1:A10")
.Replace ".", ",", xlPart
For Each C In .Cells
C.Select
SendKeys "{F2}" & "~"
t = Timer + 1 / 10000
Do While Timer <= t
DoEvents
Loop
Next
End With
End With
Application.ScreenUpdating = True
End Sub
'---------------------------------




"PLG"
Bonjour à tous
Cela fait longtemps que cela me court...
J'ai des données exportées d'une application, elles sont en format texte et
avec un point comme séparateur au lieu d'une virgule.
Je fais donc un Edition / Remplacer les points par les virgules en macro.
Lorsque je crée ma macro via l'enregistreur cela fonctionne très bien, les
données passent en mode numérique et le séparateur est bien la virgule.
Hors si je lance cette macro par la suite, le point est bien remplacé par la
virgule, mais les valeurs restent en format texte et sont donc inexploitables
en l'état.
C'est frustrant...!!!!
Voici mon bête code :
Sub Macro2()
Range("P23:S35").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse
End Sub

Le problème a déjà dû être soulevé....
Merci à vous si vous arrivez à me dépanner.
Bonne journée
Pat

FFO
Le #22211711
Rebonjour à toi
Me voilà rassuré !!!!
Effectivement ta solution est nette simple et sans bavure

Chapeau bas !!!!
Mishell
Le #22212301
Si le séparateur décimal original (à modifier) est le point, il faut le
conserver avant de faire la multiplication par 1.
Car VBA ne reconnaît que le point comme séparateur décimal.
Donc il faut supprimer la commande .Range("A1:A10").Replace ".", ",", xlPart


Sub test1()
Application.ScreenUpdating = False
With Worksheets("Sheet1")
.Range("G1") = 1
.Range("G1").Copy
With .Range("A1:A10")
.PasteSpecial xlPasteValues, xlPasteSpecialOperationMultiply
End With
.Range("G1") = ""
End With
Application.ScreenUpdating = True
End Sub

Mishell

"michdenis" uUDVzB%
Bonjour Isabelle,

La bonne vieille méthode ne fonctionne plus sous Excel 2007
qui consiste à copier 1 dans la cellule et d'utiliser la méthode
"Coller" valeur seulement et opération : multiplication
par macro.
Quelqu'un a une explication ?
'---------------------
Sub test1()
Application.ScreenUpdating = False
With Worksheets("Sheet1")
.Range("A1:A10").Replace ".", ",", xlPart
.Range("G1") = 1
.Range("G1").Copy
With .Range("A1:A10")
.PasteSpecial xlPasteValues, xlPasteSpecialOperationMultiply
End With
.Range("G1") = ""
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------



"isabelle" a écrit dans le message de groupe de discussion :
#
bonjour Pat,

ajoute ces deux lignes à la fin de ta macro, ps/
Range("IV65536") doit être vide

Range("IV65536").Copy
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd

isabelle

Le 2010-06-04 06:46, PLG a écrit :
Bonjour à tous
Cela fait longtemps que cela me court...
J'ai des données exportées d'une application, elles sont en format texte
et
avec un point comme séparateur au lieu d'une virgule.
Je fais donc un Edition / Remplacer les points par les virgules en macro.
Lorsque je crée ma macro via l'enregistreur cela fonctionne très bien,
les
données passent en mode numérique et le séparateur est bien la virgule.
Hors si je lance cette macro par la suite, le point est bien remplacé par
la
virgule, mais les valeurs restent en format texte et sont donc
inexploitables
en l'état.
C'est frustrant...!!!!
Voici mon bête code :
Sub Macro2()
Range("P23:S35").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse
End Sub

Le problème a déjà dû être soulevé....
Merci à vous si vous arrivez à me dépanner.
Bonne journée
Pat

michdenis
Le #22213061
Bonjour Mishell,

Merci pour ton intervention.

Effectivement, comme l'opération est menée à partir
de VBA, nous n'avons pas à essayer de remplacer le
point dans les cellules utilisées comme séparateur décimal
par la virgule avant d'effectuer la transformation. VBA
emploie le point comme séparateur décimal... On a tendance
à oublier !
;-))




"Mishell" u9E3o0$
Si le séparateur décimal original (à modifier) est le point, il faut le
conserver avant de faire la multiplication par 1.
Car VBA ne reconnaît que le point comme séparateur décimal.
Donc il faut supprimer la commande .Range("A1:A10").Replace ".", ",", xlPart


Sub test1()
Application.ScreenUpdating = False
With Worksheets("Sheet1")
.Range("G1") = 1
.Range("G1").Copy
With .Range("A1:A10")
.PasteSpecial xlPasteValues, xlPasteSpecialOperationMultiply
End With
.Range("G1") = ""
End With
Application.ScreenUpdating = True
End Sub

Mishell

"michdenis" uUDVzB%
Bonjour Isabelle,

La bonne vieille méthode ne fonctionne plus sous Excel 2007
qui consiste à copier 1 dans la cellule et d'utiliser la méthode
"Coller" valeur seulement et opération : multiplication
par macro.
Quelqu'un a une explication ?
'---------------------
Sub test1()
Application.ScreenUpdating = False
With Worksheets("Sheet1")
.Range("A1:A10").Replace ".", ",", xlPart
.Range("G1") = 1
.Range("G1").Copy
With .Range("A1:A10")
.PasteSpecial xlPasteValues, xlPasteSpecialOperationMultiply
End With
.Range("G1") = ""
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------



"isabelle" a écrit dans le message de groupe de discussion :
#
bonjour Pat,

ajoute ces deux lignes à la fin de ta macro, ps/
Range("IV65536") doit être vide

Range("IV65536").Copy
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd

isabelle

Le 2010-06-04 06:46, PLG a écrit :
Bonjour à tous
Cela fait longtemps que cela me court...
J'ai des données exportées d'une application, elles sont en format texte
et
avec un point comme séparateur au lieu d'une virgule.
Je fais donc un Edition / Remplacer les points par les virgules en macro.
Lorsque je crée ma macro via l'enregistreur cela fonctionne très bien,
les
données passent en mode numérique et le séparateur est bien la virgule.
Hors si je lance cette macro par la suite, le point est bien remplacé par
la
virgule, mais les valeurs restent en format texte et sont donc
inexploitables
en l'état.
C'est frustrant...!!!!
Voici mon bête code :
Sub Macro2()
Range("P23:S35").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse
End Sub

Le problème a déjà dû être soulevé....
Merci à vous si vous arrivez à me dépanner.
Bonne journée
Pat

PLG
Le #22215311
Bonjour
Je passais par là, j'ai vu de la....
Belle lumière, j'ai testé votre code sur plusieurs colonnes, il fonctionne
parfaitement.
Merci à vous
Bonne journée
Pat

"Mishell" wrote:

Si le séparateur décimal original (à modifier) est le point, il faut le
conserver avant de faire la multiplication par 1.
Car VBA ne reconnaît que le point comme séparateur décimal.
Donc il faut supprimer la commande .Range("A1:A10").Replace ".", ",", xlPart


Sub test1()
Application.ScreenUpdating = False
With Worksheets("Sheet1")
.Range("G1") = 1
.Range("G1").Copy
With .Range("A1:A10")
.PasteSpecial xlPasteValues, xlPasteSpecialOperationMultiply
End With
.Range("G1") = ""
End With
Application.ScreenUpdating = True
End Sub

Mishell

"michdenis" uUDVzB%
> Bonjour Isabelle,
>
> La bonne vieille méthode ne fonctionne plus sous Excel 2007
> qui consiste à copier 1 dans la cellule et d'utiliser la méthode
> "Coller" valeur seulement et opération : multiplication
> par macro.
> Quelqu'un a une explication ?
> '---------------------
> Sub test1()
> Application.ScreenUpdating = False
> With Worksheets("Sheet1")
> .Range("A1:A10").Replace ".", ",", xlPart
> .Range("G1") = 1
> .Range("G1").Copy
> With .Range("A1:A10")
> .PasteSpecial xlPasteValues, xlPasteSpecialOperationMultiply
> End With
> .Range("G1") = ""
> End With
> Application.ScreenUpdating = True
> End Sub
> '--------------------------------------
>
>
>
> "isabelle" a écrit dans le message de groupe de discussion :
> #
> bonjour Pat,
>
> ajoute ces deux lignes à la fin de ta macro, ps/
> Range("IV65536") doit être vide
>
> Range("IV65536").Copy
> Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
>
> isabelle
>
> Le 2010-06-04 06:46, PLG a écrit :
>> Bonjour à tous
>> Cela fait longtemps que cela me court...
>> J'ai des données exportées d'une application, elles sont en format texte
>> et
>> avec un point comme séparateur au lieu d'une virgule.
>> Je fais donc un Edition / Remplacer les points par les virgules en macro.
>> Lorsque je crée ma macro via l'enregistreur cela fonctionne très bien,
>> les
>> données passent en mode numérique et le séparateur est bien la virgule.
>> Hors si je lance cette macro par la suite, le point est bien remplacé par
>> la
>> virgule, mais les valeurs restent en format texte et sont donc
>> inexploitables
>> en l'état.
>> C'est frustrant...!!!!
>> Voici mon bête code :
>> Sub Macro2()
>> Range("P23:S35").Select
>> Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
>> SearchOrder:=xlByRows, MatchCase:úlse
>> End Sub
>>
>> Le problème a déjà dû être soulevé....
>> Merci à vous si vous arrivez à me dépanner.
>> Bonne journée
>> Pat
>>


.

Poster une réponse
Anonyme