Bonsoir à tous,
J'ai trouvé pour remplacer le point par une virgule (dans les précieuses archives), mais
pas l'inverse aussi ai-je utilisé l'enregistreur de macro avec " remplacer" :
Sub Macro1()
Range("F5:DC1071").Select
ActiveWindow.ScrollColumn = 1
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A2").Select
End Sub
A l'enregistrement c'est OK , mais pas en relançant la macro.
J'ai pensé changer les paramètres système (W98 / office 2000) mais cela ne me convient
pas.
Merci pour votre aide.
Gérard
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.512 / Virus Database: 309 - Release Date: 19/08/03
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
G. L
Bonjour Charles, Merci, mais c'est bien par le menu excel Edition/Remplacer que je suis arrivé à la macro ci-dessous (avec l'enregistreur), mais cette macro ne fonctionne pas. Et je veux intégrer le remplacement de la virgule par le point dans une autre macro plus importante. En fait, ce sujet a déjà été traité mais à l'inverse c à d remplacer le point par la virgule et la macro donnée est : Je cite: 'fs, mpfe Sub Remplace() For Each cell In Selection If InStr(1, cell.Text, ".") > 0 Then cell.Value = CDbl(Val(cell.Text)) End If Next End Sub
Hélas je ne sais pas la modifiée :( Merci pour votre aide Bonne journée. Gérard
"Charles Cournault" a écrit dans le message de news:3f4e6355$0$241$
Pourquoi ne pas utiliser tout simplement le menu excel Edition/Remplacer
Rechercher . Remplacer par , Remplacer tout
"G. " <sugere~KillPub~@online.fr> a écrit dans le message de news: 3f4e4b7b$0$6201$
Bonsoir à tous, J'ai trouvé pour remplacer le point par une virgule (dans les précieuses archives), mais
pas l'inverse aussi ai-je utilisé l'enregistreur de macro avec " remplacer" :
Sub Macro1() Range("F5:DC1071").Select ActiveWindow.ScrollColumn = 1 Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:úlse Range("A2").Select End Sub A l'enregistrement c'est OK , mais pas en relançant la macro. J'ai pensé changer les paramètres système (W98 / office 2000) mais cela ne
me convient
pas. Merci pour votre aide. Gérard
--- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.512 / Virus Database: 309 - Release Date: 19/08/03
Bonjour Charles,
Merci, mais c'est bien par le menu excel Edition/Remplacer que je suis
arrivé à la macro ci-dessous (avec l'enregistreur), mais cette macro ne
fonctionne pas.
Et je veux intégrer le remplacement de la virgule par le point dans une
autre macro plus importante.
En fait, ce sujet a déjà été traité mais à l'inverse c à d remplacer le
point par la virgule et la macro donnée est :
Je cite:
'fs, mpfe
Sub Remplace()
For Each cell In Selection
If InStr(1, cell.Text, ".") > 0 Then
cell.Value = CDbl(Val(cell.Text))
End If
Next
End Sub
Hélas je ne sais pas la modifiée :(
Merci pour votre aide
Bonne journée.
Gérard
"Charles Cournault" <charles.cournault@free.fr> a écrit dans le message de
news:3f4e6355$0$241$4d4eb98e@read.news.fr.uu.net...
Pourquoi ne pas utiliser tout simplement le menu excel Edition/Remplacer
Rechercher .
Remplacer par ,
Remplacer tout
"G. L@rumeur" <sugere~KillPub~@online.fr> a écrit dans le message de news:
3f4e4b7b$0$6201$626a54ce@news.free.fr...
Bonsoir à tous,
J'ai trouvé pour remplacer le point par une virgule (dans les précieuses
archives), mais
pas l'inverse aussi ai-je utilisé l'enregistreur de macro avec "
remplacer" :
Sub Macro1()
Range("F5:DC1071").Select
ActiveWindow.ScrollColumn = 1
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse
Range("A2").Select
End Sub
A l'enregistrement c'est OK , mais pas en relançant la macro.
J'ai pensé changer les paramètres système (W98 / office 2000) mais cela
ne
me convient
pas.
Merci pour votre aide.
Gérard
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.512 / Virus Database: 309 - Release Date: 19/08/03
Bonjour Charles, Merci, mais c'est bien par le menu excel Edition/Remplacer que je suis arrivé à la macro ci-dessous (avec l'enregistreur), mais cette macro ne fonctionne pas. Et je veux intégrer le remplacement de la virgule par le point dans une autre macro plus importante. En fait, ce sujet a déjà été traité mais à l'inverse c à d remplacer le point par la virgule et la macro donnée est : Je cite: 'fs, mpfe Sub Remplace() For Each cell In Selection If InStr(1, cell.Text, ".") > 0 Then cell.Value = CDbl(Val(cell.Text)) End If Next End Sub
Hélas je ne sais pas la modifiée :( Merci pour votre aide Bonne journée. Gérard
"Charles Cournault" a écrit dans le message de news:3f4e6355$0$241$
Pourquoi ne pas utiliser tout simplement le menu excel Edition/Remplacer
Rechercher . Remplacer par , Remplacer tout
"G. " <sugere~KillPub~@online.fr> a écrit dans le message de news: 3f4e4b7b$0$6201$
Bonsoir à tous, J'ai trouvé pour remplacer le point par une virgule (dans les précieuses archives), mais
pas l'inverse aussi ai-je utilisé l'enregistreur de macro avec " remplacer" :
Sub Macro1() Range("F5:DC1071").Select ActiveWindow.ScrollColumn = 1 Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:úlse Range("A2").Select End Sub A l'enregistrement c'est OK , mais pas en relançant la macro. J'ai pensé changer les paramètres système (W98 / office 2000) mais cela ne
me convient
pas. Merci pour votre aide. Gérard
--- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.512 / Virus Database: 309 - Release Date: 19/08/03
Alain CROS
Bonjour.
Replace cherche du texte et il ne trouve que des nombres. Essaye comme ça mais ça va ramer car ta plage ("F5:DC1071") est grande.
Sub test() Dim cel As Range For Each cel In Range("F5:DC1071") With cel If IsNumeric(.Value) Then .Value = "'" & .Value End If End With Next With Range("F5:DC1071") .Replace What:=",", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:úlse End With Set cel = Nothing End Sub
Alain CROS.
"G. " <sugere~KillPub~@online.fr> a écrit dans le message de news:
Bonjour Charles, Merci, mais c'est bien par le menu excel Edition/Remplacer que je suis arrivé à la macro ci-dessous (avec l'enregistreur), mais cette macro ne fonctionne pas. Et je veux intégrer le remplacement de la virgule par le point dans une autre macro plus importante. En fait, ce sujet a déjà été traité mais à l'inverse c à d remplacer le point par la virgule et la macro donnée est : Je cite: 'fs, mpfe Sub Remplace() For Each cell In Selection If InStr(1, cell.Text, ".") > 0 Then cell.Value = CDbl(Val(cell.Text)) End If Next End Sub
Hélas je ne sais pas la modifiée :( Merci pour votre aide Bonne journée. Gérard
"Charles Cournault" a écrit dans le message de news:3f4e6355$0$241$
Pourquoi ne pas utiliser tout simplement le menu excel Edition/Remplacer
Rechercher . Remplacer par , Remplacer tout
"G. " <sugere~KillPub~@online.fr> a écrit dans le message de news: 3f4e4b7b$0$6201$
Bonsoir à tous, J'ai trouvé pour remplacer le point par une virgule (dans les précieuses archives), mais
pas l'inverse aussi ai-je utilisé l'enregistreur de macro avec " remplacer" :
Sub Macro1() Range("F5:DC1071").Select ActiveWindow.ScrollColumn = 1 Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:úlse Range("A2").Select End Sub A l'enregistrement c'est OK , mais pas en relançant la macro. J'ai pensé changer les paramètres système (W98 / office 2000) mais cela ne
me convient
pas. Merci pour votre aide. Gérard
--- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.512 / Virus Database: 309 - Release Date: 19/08/03
Bonjour.
Replace cherche du texte et il ne trouve que des nombres.
Essaye comme ça mais ça va ramer car ta plage ("F5:DC1071") est grande.
Sub test()
Dim cel As Range
For Each cel In Range("F5:DC1071")
With cel
If IsNumeric(.Value) Then
.Value = "'" & .Value
End If
End With
Next
With Range("F5:DC1071")
.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse
End With
Set cel = Nothing
End Sub
Alain CROS.
"G. L@rumeur" <sugere~KillPub~@online.fr> a écrit dans le message de news: OCSZFQfbDHA.1872@TK2MSFTNGP12.phx.gbl...
Bonjour Charles,
Merci, mais c'est bien par le menu excel Edition/Remplacer que je suis
arrivé à la macro ci-dessous (avec l'enregistreur), mais cette macro ne
fonctionne pas.
Et je veux intégrer le remplacement de la virgule par le point dans une
autre macro plus importante.
En fait, ce sujet a déjà été traité mais à l'inverse c à d remplacer le
point par la virgule et la macro donnée est :
Je cite:
'fs, mpfe
Sub Remplace()
For Each cell In Selection
If InStr(1, cell.Text, ".") > 0 Then
cell.Value = CDbl(Val(cell.Text))
End If
Next
End Sub
Hélas je ne sais pas la modifiée :(
Merci pour votre aide
Bonne journée.
Gérard
"Charles Cournault" <charles.cournault@free.fr> a écrit dans le message de
news:3f4e6355$0$241$4d4eb98e@read.news.fr.uu.net...
Pourquoi ne pas utiliser tout simplement le menu excel Edition/Remplacer
Rechercher .
Remplacer par ,
Remplacer tout
"G. L@rumeur" <sugere~KillPub~@online.fr> a écrit dans le message de news:
3f4e4b7b$0$6201$626a54ce@news.free.fr...
Bonsoir à tous,
J'ai trouvé pour remplacer le point par une virgule (dans les précieuses
archives), mais
pas l'inverse aussi ai-je utilisé l'enregistreur de macro avec "
remplacer" :
Sub Macro1()
Range("F5:DC1071").Select
ActiveWindow.ScrollColumn = 1
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse
Range("A2").Select
End Sub
A l'enregistrement c'est OK , mais pas en relançant la macro.
J'ai pensé changer les paramètres système (W98 / office 2000) mais cela
ne
me convient
pas.
Merci pour votre aide.
Gérard
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.512 / Virus Database: 309 - Release Date: 19/08/03
Replace cherche du texte et il ne trouve que des nombres. Essaye comme ça mais ça va ramer car ta plage ("F5:DC1071") est grande.
Sub test() Dim cel As Range For Each cel In Range("F5:DC1071") With cel If IsNumeric(.Value) Then .Value = "'" & .Value End If End With Next With Range("F5:DC1071") .Replace What:=",", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:úlse End With Set cel = Nothing End Sub
Alain CROS.
"G. " <sugere~KillPub~@online.fr> a écrit dans le message de news:
Bonjour Charles, Merci, mais c'est bien par le menu excel Edition/Remplacer que je suis arrivé à la macro ci-dessous (avec l'enregistreur), mais cette macro ne fonctionne pas. Et je veux intégrer le remplacement de la virgule par le point dans une autre macro plus importante. En fait, ce sujet a déjà été traité mais à l'inverse c à d remplacer le point par la virgule et la macro donnée est : Je cite: 'fs, mpfe Sub Remplace() For Each cell In Selection If InStr(1, cell.Text, ".") > 0 Then cell.Value = CDbl(Val(cell.Text)) End If Next End Sub
Hélas je ne sais pas la modifiée :( Merci pour votre aide Bonne journée. Gérard
"Charles Cournault" a écrit dans le message de news:3f4e6355$0$241$
Pourquoi ne pas utiliser tout simplement le menu excel Edition/Remplacer
Rechercher . Remplacer par , Remplacer tout
"G. " <sugere~KillPub~@online.fr> a écrit dans le message de news: 3f4e4b7b$0$6201$
Bonsoir à tous, J'ai trouvé pour remplacer le point par une virgule (dans les précieuses archives), mais
pas l'inverse aussi ai-je utilisé l'enregistreur de macro avec " remplacer" :
Sub Macro1() Range("F5:DC1071").Select ActiveWindow.ScrollColumn = 1 Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:úlse Range("A2").Select End Sub A l'enregistrement c'est OK , mais pas en relançant la macro. J'ai pensé changer les paramètres système (W98 / office 2000) mais cela ne
me convient
pas. Merci pour votre aide. Gérard
--- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.512 / Virus Database: 309 - Release Date: 19/08/03
