Bonjour Joseph84,
Je n'ai pas bien compris la sélection de cellule à l'intérieur d'un range
pour l'application d'un format sur une feuille de calcul, mais tu dois av oir
tes raisons. Cependant, un simple numberformat appliqué à ta zone ne
serait-il pas suffisant ?
Sub TestFormat()
Dim Rg As Range
Set Rg = Range("A2:A20000") 'Définit plage
Rg.NumberFormat = "#,##0.00"
Set Rg = Nothing
End Sub
Michel
"joseph84" a écrit dans le message denews:c75c6
Bonjour tout le monde
je voudrais changer le format de cellule d une de mes colonnes avec
une macro j arrive a le faire mais c tres lent et en plus si il trouve
du texte il le supprime voila ma procedure
---------------------------------------------------------
Dim maZone As Range
Set maZone = Range("A2:A20000") 'Définit plage
maZone.Select
Dim unecellule As Object
For Each unecellule In Selection
valeur = ActiveCell.Value
If valeur = "" Then 'Saute cellules vides
GoTo suite
End If
On Error Resume Next
valnum = CDbl(valeur) 'convertit texte en chiffre
unecellule.Value = valnum
suite:
ActiveCell.Offset(1, 0).Select
Next
-----------------------------------------------------------------
Merci
Bonjour Joseph84,
Je n'ai pas bien compris la sélection de cellule à l'intérieur d'un range
pour l'application d'un format sur une feuille de calcul, mais tu dois av oir
tes raisons. Cependant, un simple numberformat appliqué à ta zone ne
serait-il pas suffisant ?
Sub TestFormat()
Dim Rg As Range
Set Rg = Range("A2:A20000") 'Définit plage
Rg.NumberFormat = "#,##0.00"
Set Rg = Nothing
End Sub
Michel
"joseph84" <youwangs...@gmail.com> a écrit dans le message denews:c75c6 bd2-eec2-4118-894c-e5aff8f9b98e@l6g2000vbn.googlegroups.com...
Bonjour tout le monde
je voudrais changer le format de cellule d une de mes colonnes avec
une macro j arrive a le faire mais c tres lent et en plus si il trouve
du texte il le supprime voila ma procedure
---------------------------------------------------------
Dim maZone As Range
Set maZone = Range("A2:A20000") 'Définit plage
maZone.Select
Dim unecellule As Object
For Each unecellule In Selection
valeur = ActiveCell.Value
If valeur = "" Then 'Saute cellules vides
GoTo suite
End If
On Error Resume Next
valnum = CDbl(valeur) 'convertit texte en chiffre
unecellule.Value = valnum
suite:
ActiveCell.Offset(1, 0).Select
Next
-----------------------------------------------------------------
Merci
Bonjour Joseph84,
Je n'ai pas bien compris la sélection de cellule à l'intérieur d'un range
pour l'application d'un format sur une feuille de calcul, mais tu dois av oir
tes raisons. Cependant, un simple numberformat appliqué à ta zone ne
serait-il pas suffisant ?
Sub TestFormat()
Dim Rg As Range
Set Rg = Range("A2:A20000") 'Définit plage
Rg.NumberFormat = "#,##0.00"
Set Rg = Nothing
End Sub
Michel
"joseph84" a écrit dans le message denews:c75c6
Bonjour tout le monde
je voudrais changer le format de cellule d une de mes colonnes avec
une macro j arrive a le faire mais c tres lent et en plus si il trouve
du texte il le supprime voila ma procedure
---------------------------------------------------------
Dim maZone As Range
Set maZone = Range("A2:A20000") 'Définit plage
maZone.Select
Dim unecellule As Object
For Each unecellule In Selection
valeur = ActiveCell.Value
If valeur = "" Then 'Saute cellules vides
GoTo suite
End If
On Error Resume Next
valnum = CDbl(valeur) 'convertit texte en chiffre
unecellule.Value = valnum
suite:
ActiveCell.Offset(1, 0).Select
Next
-----------------------------------------------------------------
Merci
Bonjour,
Tu adaptes le nom de la feuille et de la plage de cellules.
Ces 2 lignes ne sont pas obligatoires, si tu es certain qu'il
ne sont pas présents dans les cellules contenant des chiffres.
.Replace Chr(160), "" -> caractères Ascii -> espace insécable
.Replace " ", ""
'-----------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("B1:B12")
.Replace Chr(160), ""
.Replace " ", ""
.Replace ".", ","
.Replace ",", "."
End With
End With
End Sub
'-----------------------------------
MichD
--------------------------------------------
Bonjour,
Tu adaptes le nom de la feuille et de la plage de cellules.
Ces 2 lignes ne sont pas obligatoires, si tu es certain qu'il
ne sont pas présents dans les cellules contenant des chiffres.
.Replace Chr(160), "" -> caractères Ascii -> espace insécable
.Replace " ", ""
'-----------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("B1:B12")
.Replace Chr(160), ""
.Replace " ", ""
.Replace ".", ","
.Replace ",", "."
End With
End With
End Sub
'-----------------------------------
MichD
--------------------------------------------
Bonjour,
Tu adaptes le nom de la feuille et de la plage de cellules.
Ces 2 lignes ne sont pas obligatoires, si tu es certain qu'il
ne sont pas présents dans les cellules contenant des chiffres.
.Replace Chr(160), "" -> caractères Ascii -> espace insécable
.Replace " ", ""
'-----------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("B1:B12")
.Replace Chr(160), ""
.Replace " ", ""
.Replace ".", ","
.Replace ",", "."
End With
End With
End Sub
'-----------------------------------
MichD
--------------------------------------------
Bonjour,
Tu adaptes le nom de la feuille et de la plage de cellules.
Ces 2 lignes ne sont pas obligatoires, si tu es certain qu'il
ne sont pas présents dans les cellules contenant des chiffres.
.Replace Chr(160), "" -> caractères Ascii -> espace insécable
.Replace " ", ""
'-----------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("B1:B12")
.Replace Chr(160), ""
.Replace " ", ""
.Replace ".", ","
.Replace ",", "."
End With
End With
End Sub
'-----------------------------------
MichD
--------------------------------------------
Bonjour,
Tu adaptes le nom de la feuille et de la plage de cellules.
Ces 2 lignes ne sont pas obligatoires, si tu es certain qu'il
ne sont pas présents dans les cellules contenant des chiffres.
.Replace Chr(160), "" -> caractères Ascii -> espace insécable
.Replace " ", ""
'-----------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("B1:B12")
.Replace Chr(160), ""
.Replace " ", ""
.Replace ".", ","
.Replace ",", "."
End With
End With
End Sub
'-----------------------------------
MichD
--------------------------------------------
Bonjour,
Tu adaptes le nom de la feuille et de la plage de cellules.
Ces 2 lignes ne sont pas obligatoires, si tu es certain qu'il
ne sont pas présents dans les cellules contenant des chiffres.
.Replace Chr(160), "" -> caractères Ascii -> espace insécable
.Replace " ", ""
'-----------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("B1:B12")
.Replace Chr(160), ""
.Replace " ", ""
.Replace ".", ","
.Replace ",", "."
End With
End With
End Sub
'-----------------------------------
MichD
--------------------------------------------
Bonjour,
Tu adaptes le nom de la feuille et de la plage de cellules.
Ces 2 lignes ne sont pas obligatoires, si tu es certain qu'il
ne sont pas présents dans les cellules contenant des chiffres.
.Replace Chr(160), "" -> caractères Ascii -> espace insécable
.Replace " ", ""
'-----------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("B1:B12")
.Replace Chr(160), ""
.Replace " ", ""
.Replace ".", ","
.Replace ",", "."
End With
End With
End Sub
'-----------------------------------
MichD
--------------------------------------------
Bonjour,
Tu adaptes le nom de la feuille et de la plage de cellules.
Ces 2 lignes ne sont pas obligatoires, si tu es certain qu'il
ne sont pas présents dans les cellules contenant des chiffres.
.Replace Chr(160), "" -> caractères Ascii -> espace insécable
.Replace " ", ""
'-----------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("B1:B12")
.Replace Chr(160), ""
.Replace " ", ""
.Replace ".", ","
.Replace ",", "."
End With
End With
End Sub
'-----------------------------------
MichD
--------------------------------------------
Bonjour,
Tu adaptes le nom de la feuille et de la plage de cellules.
Ces 2 lignes ne sont pas obligatoires, si tu es certain qu'il
ne sont pas présents dans les cellules contenant des chiffres.
.Replace Chr(160), "" -> caractères Ascii -> espace insécable
.Replace " ", ""
'-----------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("B1:B12")
.Replace Chr(160), ""
.Replace " ", ""
.Replace ".", ","
.Replace ",", "."
End With
End With
End Sub
'-----------------------------------
MichD
--------------------------------------------
Ben, la macro de Denis que tu compl tes, avant le End Sub, par :
Rg.NumberFormat = "General"
Non ?
Michel
"joseph84" a crit dans le message denews:821751fb
Merci MichD
ce que je veux faire c est de convertir la colonne A en format
standard
merci
On 25 mai, 07:47, "MichD" wrote:
> Bonjour,
> Tu adaptes le nom de la feuille et de la plage de cellules.
> Ces 2 lignes ne sont pas obligatoires, si tu es certain qu'il
> ne sont pas pr sents dans les cellules contenant des chiffres.
> .Replace Chr(160), "" -> caract res Ascii -> espace ins cable
> .Replace " ", ""
> '-----------------------------------
> Sub test()
> With Worksheets("Feuil1")
> With .Range("B1:B12")
> .Replace Chr(160), ""
> .Replace " ", ""
> .Replace ".", ","
> .Replace ",", "."
> End With
> End With
> End Sub
> '-----------------------------------
> MichD
> --------------------------------------------- Masquer le texte des mess ages précédents -
- Afficher le texte des messages précédents -
Ben, la macro de Denis que tu compl tes, avant le End Sub, par :
Rg.NumberFormat = "General"
Non ?
Michel
"joseph84" <youwangs...@gmail.com> a crit dans le message denews:821751fb -f77d-4001-8000-d1ec7b42db32@w21g2000yqm.googlegroups.com...
Merci MichD
ce que je veux faire c est de convertir la colonne A en format
standard
merci
On 25 mai, 07:47, "MichD" <michde...@hotmail.com> wrote:
> Bonjour,
> Tu adaptes le nom de la feuille et de la plage de cellules.
> Ces 2 lignes ne sont pas obligatoires, si tu es certain qu'il
> ne sont pas pr sents dans les cellules contenant des chiffres.
> .Replace Chr(160), "" -> caract res Ascii -> espace ins cable
> .Replace " ", ""
> '-----------------------------------
> Sub test()
> With Worksheets("Feuil1")
> With .Range("B1:B12")
> .Replace Chr(160), ""
> .Replace " ", ""
> .Replace ".", ","
> .Replace ",", "."
> End With
> End With
> End Sub
> '-----------------------------------
> MichD
> --------------------------------------------- Masquer le texte des mess ages précédents -
- Afficher le texte des messages précédents -
Ben, la macro de Denis que tu compl tes, avant le End Sub, par :
Rg.NumberFormat = "General"
Non ?
Michel
"joseph84" a crit dans le message denews:821751fb
Merci MichD
ce que je veux faire c est de convertir la colonne A en format
standard
merci
On 25 mai, 07:47, "MichD" wrote:
> Bonjour,
> Tu adaptes le nom de la feuille et de la plage de cellules.
> Ces 2 lignes ne sont pas obligatoires, si tu es certain qu'il
> ne sont pas pr sents dans les cellules contenant des chiffres.
> .Replace Chr(160), "" -> caract res Ascii -> espace ins cable
> .Replace " ", ""
> '-----------------------------------
> Sub test()
> With Worksheets("Feuil1")
> With .Range("B1:B12")
> .Replace Chr(160), ""
> .Replace " ", ""
> .Replace ".", ","
> .Replace ",", "."
> End With
> End With
> End Sub
> '-----------------------------------
> MichD
> --------------------------------------------- Masquer le texte des mess ages précédents -
- Afficher le texte des messages précédents -
Ben, la macro de Denis que tu compl tes, avant le End Sub, par :
Rg.NumberFormat = "General"
Non ?
Michel
"joseph84" a crit dans le message
denews:
Merci MichD
ce que je veux faire c est de convertir la colonne A en format
standard
merci
On 25 mai, 07:47, "MichD" wrote:
> Bonjour,
> Tu adaptes le nom de la feuille et de la plage de cellules.
> Ces 2 lignes ne sont pas obligatoires, si tu es certain qu'il
> ne sont pas pr sents dans les cellules contenant des chiffres.
> .Replace Chr(160), "" -> caract res Ascii -> espace ins cable
> .Replace " ", ""
> '-----------------------------------
> Sub test()
> With Worksheets("Feuil1")
> With .Range("B1:B12")
> .Replace Chr(160), ""
> .Replace " ", ""
> .Replace ".", ","
> .Replace ",", "."
> End With
> End With
> End Sub
> '-----------------------------------
> MichD
> --------------------------------------------- Masquer le texte des
> messages précédents -
- Afficher le texte des messages précédents -
Ben, la macro de Denis que tu compl tes, avant le End Sub, par :
Rg.NumberFormat = "General"
Non ?
Michel
"joseph84" <youwangs...@gmail.com> a crit dans le message
denews:821751fb-f77d-4001-8000-d1ec7b42db32@w21g2000yqm.googlegroups.com...
Merci MichD
ce que je veux faire c est de convertir la colonne A en format
standard
merci
On 25 mai, 07:47, "MichD" <michde...@hotmail.com> wrote:
> Bonjour,
> Tu adaptes le nom de la feuille et de la plage de cellules.
> Ces 2 lignes ne sont pas obligatoires, si tu es certain qu'il
> ne sont pas pr sents dans les cellules contenant des chiffres.
> .Replace Chr(160), "" -> caract res Ascii -> espace ins cable
> .Replace " ", ""
> '-----------------------------------
> Sub test()
> With Worksheets("Feuil1")
> With .Range("B1:B12")
> .Replace Chr(160), ""
> .Replace " ", ""
> .Replace ".", ","
> .Replace ",", "."
> End With
> End With
> End Sub
> '-----------------------------------
> MichD
> --------------------------------------------- Masquer le texte des
> messages précédents -
- Afficher le texte des messages précédents -
Ben, la macro de Denis que tu compl tes, avant le End Sub, par :
Rg.NumberFormat = "General"
Non ?
Michel
"joseph84" a crit dans le message
denews:
Merci MichD
ce que je veux faire c est de convertir la colonne A en format
standard
merci
On 25 mai, 07:47, "MichD" wrote:
> Bonjour,
> Tu adaptes le nom de la feuille et de la plage de cellules.
> Ces 2 lignes ne sont pas obligatoires, si tu es certain qu'il
> ne sont pas pr sents dans les cellules contenant des chiffres.
> .Replace Chr(160), "" -> caract res Ascii -> espace ins cable
> .Replace " ", ""
> '-----------------------------------
> Sub test()
> With Worksheets("Feuil1")
> With .Range("B1:B12")
> .Replace Chr(160), ""
> .Replace " ", ""
> .Replace ".", ","
> .Replace ",", "."
> End With
> End With
> End Sub
> '-----------------------------------
> MichD
> --------------------------------------------- Masquer le texte des
> messages précédents -
- Afficher le texte des messages précédents -
La macro de Denis ne fonctionne pas ?
Chez moi elle roule parfaitement bien (Vista, Excel 2003).
Sub Tst_Mp()
Dim Rg As Range
Set Rg = Range("E6:E2000") 'D finit plage
With Worksheets("Feuil1")
With Rg
.Replace Chr(160), ""
.Replace " ", ""
.Replace ".", ","
.Replace ",", "."
End With
End With
Rg.NumberFormat = "General" '"#,##0.00"
Set Rg = Nothing
End Sub
Michel
"joseph84" a crit dans le message denews:cef3eee5
Merci bcp j apprecie votre aide
malheureusement sa fonctionne pas il me sort une erreur
variable objet ou variable de bloc with non defini
sub test ()
Dim rg As Range
With Worksheets("Feuil1")
With .Range("A2:A200000")
.Replace Chr(160), ""
.Replace " ", ""
.Replace ".", ","
.Replace ",", "."
End With
rg.NumberFormat = "General"
End With
end sub
j ai tester les deux j ai mis la ligne (rg.NumberFormat = "General")
apres le premier en with et apres le deuxieme end with mais sa
fonctionne pas
merci
On 25 mai, 09:25, P hemme wrote:
> Ben, la macro de Denis que tu compl tes, avant le End Sub, par :
> Rg.NumberFormat = "General"
> Non ?
> Michel
> "joseph84" a crit dans le message
> denews: m...
> Merci MichD
> ce que je veux faire c est de convertir la colonne A en format
> standard
> merci
> On 25 mai, 07:47, "MichD" wrote:
> > Bonjour,
> > Tu adaptes le nom de la feuille et de la plage de cellules.
> > Ces 2 lignes ne sont pas obligatoires, si tu es certain qu'il
> > ne sont pas pr sents dans les cellules contenant des chiffres.
> > .Replace Chr(160), "" -> caract res Ascii -> espace ins cable
> > .Replace " ", ""
> > '-----------------------------------
> > Sub test()
> > With Worksheets("Feuil1")
> > With .Range("B1:B12")
> > .Replace Chr(160), ""
> > .Replace " ", ""
> > .Replace ".", ","
> > .Replace ",", "."
> > End With
> > End With
> > End Sub
> > '-----------------------------------
> > MichD
> > --------------------------------------------- Masquer le texte des
> > messages pr c dents -
> - Afficher le texte des messages pr c dents -- Masquer le texte des mes sages précédents -
- Afficher le texte des messages précédents -
La macro de Denis ne fonctionne pas ?
Chez moi elle roule parfaitement bien (Vista, Excel 2003).
Sub Tst_Mp()
Dim Rg As Range
Set Rg = Range("E6:E2000") 'D finit plage
With Worksheets("Feuil1")
With Rg
.Replace Chr(160), ""
.Replace " ", ""
.Replace ".", ","
.Replace ",", "."
End With
End With
Rg.NumberFormat = "General" '"#,##0.00"
Set Rg = Nothing
End Sub
Michel
"joseph84" <youwangs...@gmail.com> a crit dans le message denews:cef3eee5 -f363-4445-8a55-79ca983aa048@k27g2000pri.googlegroups.com...
Merci bcp j apprecie votre aide
malheureusement sa fonctionne pas il me sort une erreur
variable objet ou variable de bloc with non defini
sub test ()
Dim rg As Range
With Worksheets("Feuil1")
With .Range("A2:A200000")
.Replace Chr(160), ""
.Replace " ", ""
.Replace ".", ","
.Replace ",", "."
End With
rg.NumberFormat = "General"
End With
end sub
j ai tester les deux j ai mis la ligne (rg.NumberFormat = "General")
apres le premier en with et apres le deuxieme end with mais sa
fonctionne pas
merci
On 25 mai, 09:25, P hemme <x...@xx.xx> wrote:
> Ben, la macro de Denis que tu compl tes, avant le End Sub, par :
> Rg.NumberFormat = "General"
> Non ?
> Michel
> "joseph84" <youwangs...@gmail.com> a crit dans le message
> denews:821751fb-f77d-4001-8000-d1ec7b42db32@w21g2000yqm.googlegroups.co m...
> Merci MichD
> ce que je veux faire c est de convertir la colonne A en format
> standard
> merci
> On 25 mai, 07:47, "MichD" <michde...@hotmail.com> wrote:
> > Bonjour,
> > Tu adaptes le nom de la feuille et de la plage de cellules.
> > Ces 2 lignes ne sont pas obligatoires, si tu es certain qu'il
> > ne sont pas pr sents dans les cellules contenant des chiffres.
> > .Replace Chr(160), "" -> caract res Ascii -> espace ins cable
> > .Replace " ", ""
> > '-----------------------------------
> > Sub test()
> > With Worksheets("Feuil1")
> > With .Range("B1:B12")
> > .Replace Chr(160), ""
> > .Replace " ", ""
> > .Replace ".", ","
> > .Replace ",", "."
> > End With
> > End With
> > End Sub
> > '-----------------------------------
> > MichD
> > --------------------------------------------- Masquer le texte des
> > messages pr c dents -
> - Afficher le texte des messages pr c dents -- Masquer le texte des mes sages précédents -
- Afficher le texte des messages précédents -
La macro de Denis ne fonctionne pas ?
Chez moi elle roule parfaitement bien (Vista, Excel 2003).
Sub Tst_Mp()
Dim Rg As Range
Set Rg = Range("E6:E2000") 'D finit plage
With Worksheets("Feuil1")
With Rg
.Replace Chr(160), ""
.Replace " ", ""
.Replace ".", ","
.Replace ",", "."
End With
End With
Rg.NumberFormat = "General" '"#,##0.00"
Set Rg = Nothing
End Sub
Michel
"joseph84" a crit dans le message denews:cef3eee5
Merci bcp j apprecie votre aide
malheureusement sa fonctionne pas il me sort une erreur
variable objet ou variable de bloc with non defini
sub test ()
Dim rg As Range
With Worksheets("Feuil1")
With .Range("A2:A200000")
.Replace Chr(160), ""
.Replace " ", ""
.Replace ".", ","
.Replace ",", "."
End With
rg.NumberFormat = "General"
End With
end sub
j ai tester les deux j ai mis la ligne (rg.NumberFormat = "General")
apres le premier en with et apres le deuxieme end with mais sa
fonctionne pas
merci
On 25 mai, 09:25, P hemme wrote:
> Ben, la macro de Denis que tu compl tes, avant le End Sub, par :
> Rg.NumberFormat = "General"
> Non ?
> Michel
> "joseph84" a crit dans le message
> denews: m...
> Merci MichD
> ce que je veux faire c est de convertir la colonne A en format
> standard
> merci
> On 25 mai, 07:47, "MichD" wrote:
> > Bonjour,
> > Tu adaptes le nom de la feuille et de la plage de cellules.
> > Ces 2 lignes ne sont pas obligatoires, si tu es certain qu'il
> > ne sont pas pr sents dans les cellules contenant des chiffres.
> > .Replace Chr(160), "" -> caract res Ascii -> espace ins cable
> > .Replace " ", ""
> > '-----------------------------------
> > Sub test()
> > With Worksheets("Feuil1")
> > With .Range("B1:B12")
> > .Replace Chr(160), ""
> > .Replace " ", ""
> > .Replace ".", ","
> > .Replace ",", "."
> > End With
> > End With
> > End Sub
> > '-----------------------------------
> > MichD
> > --------------------------------------------- Masquer le texte des
> > messages pr c dents -
> - Afficher le texte des messages pr c dents -- Masquer le texte des mes sages précédents -
- Afficher le texte des messages précédents -
La macro de Denis ne fonctionne pas ?
Chez moi elle roule parfaitement bien (Vista, Excel 2003).
Sub Tst_Mp()
Dim Rg As Range
Set Rg = Range("E6:E2000") 'D finit plage
With Worksheets("Feuil1")
With Rg
.Replace Chr(160), ""
.Replace " ", ""
.Replace ".", ","
.Replace ",", "."
End With
End With
Rg.NumberFormat = "General" '"#,##0.00"
Set Rg = Nothing
End Sub
Michel
"joseph84" a crit dans le message
denews:
Merci bcp j apprecie votre aide
malheureusement sa fonctionne pas il me sort une erreur
variable objet ou variable de bloc with non defini
sub test ()
Dim rg As Range
With Worksheets("Feuil1")
With .Range("A2:A200000")
.Replace Chr(160), ""
.Replace " ", ""
.Replace ".", ","
.Replace ",", "."
End With
rg.NumberFormat = "General"
End With
end sub
j ai tester les deux j ai mis la ligne (rg.NumberFormat = "General")
apres le premier en with et apres le deuxieme end with mais sa
fonctionne pas
merci
On 25 mai, 09:25, P hemme wrote:
> Ben, la macro de Denis que tu compl tes, avant le End Sub, par :
> Rg.NumberFormat = "General"
> Non ?
> Michel
> "joseph84" a crit dans le message
> denews:
> Merci MichD
> ce que je veux faire c est de convertir la colonne A en format
> standard
> merci
> On 25 mai, 07:47, "MichD" wrote:
> > Bonjour,
> > Tu adaptes le nom de la feuille et de la plage de cellules.
> > Ces 2 lignes ne sont pas obligatoires, si tu es certain qu'il
> > ne sont pas pr sents dans les cellules contenant des chiffres.
> > .Replace Chr(160), "" -> caract res Ascii -> espace ins cable
> > .Replace " ", ""
> > '-----------------------------------
> > Sub test()
> > With Worksheets("Feuil1")
> > With .Range("B1:B12")
> > .Replace Chr(160), ""
> > .Replace " ", ""
> > .Replace ".", ","
> > .Replace ",", "."
> > End With
> > End With
> > End Sub
> > '-----------------------------------
> > MichD
> > --------------------------------------------- Masquer le texte des
> > messages pr c dents -
> - Afficher le texte des messages pr c dents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
La macro de Denis ne fonctionne pas ?
Chez moi elle roule parfaitement bien (Vista, Excel 2003).
Sub Tst_Mp()
Dim Rg As Range
Set Rg = Range("E6:E2000") 'D finit plage
With Worksheets("Feuil1")
With Rg
.Replace Chr(160), ""
.Replace " ", ""
.Replace ".", ","
.Replace ",", "."
End With
End With
Rg.NumberFormat = "General" '"#,##0.00"
Set Rg = Nothing
End Sub
Michel
"joseph84" <youwangs...@gmail.com> a crit dans le message
denews:cef3eee5-f363-4445-8a55-79ca983aa048@k27g2000pri.googlegroups.com...
Merci bcp j apprecie votre aide
malheureusement sa fonctionne pas il me sort une erreur
variable objet ou variable de bloc with non defini
sub test ()
Dim rg As Range
With Worksheets("Feuil1")
With .Range("A2:A200000")
.Replace Chr(160), ""
.Replace " ", ""
.Replace ".", ","
.Replace ",", "."
End With
rg.NumberFormat = "General"
End With
end sub
j ai tester les deux j ai mis la ligne (rg.NumberFormat = "General")
apres le premier en with et apres le deuxieme end with mais sa
fonctionne pas
merci
On 25 mai, 09:25, P hemme <x...@xx.xx> wrote:
> Ben, la macro de Denis que tu compl tes, avant le End Sub, par :
> Rg.NumberFormat = "General"
> Non ?
> Michel
> "joseph84" <youwangs...@gmail.com> a crit dans le message
> denews:821751fb-f77d-4001-8000-d1ec7b42db32@w21g2000yqm.googlegroups.com...
> Merci MichD
> ce que je veux faire c est de convertir la colonne A en format
> standard
> merci
> On 25 mai, 07:47, "MichD" <michde...@hotmail.com> wrote:
> > Bonjour,
> > Tu adaptes le nom de la feuille et de la plage de cellules.
> > Ces 2 lignes ne sont pas obligatoires, si tu es certain qu'il
> > ne sont pas pr sents dans les cellules contenant des chiffres.
> > .Replace Chr(160), "" -> caract res Ascii -> espace ins cable
> > .Replace " ", ""
> > '-----------------------------------
> > Sub test()
> > With Worksheets("Feuil1")
> > With .Range("B1:B12")
> > .Replace Chr(160), ""
> > .Replace " ", ""
> > .Replace ".", ","
> > .Replace ",", "."
> > End With
> > End With
> > End Sub
> > '-----------------------------------
> > MichD
> > --------------------------------------------- Masquer le texte des
> > messages pr c dents -
> - Afficher le texte des messages pr c dents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
La macro de Denis ne fonctionne pas ?
Chez moi elle roule parfaitement bien (Vista, Excel 2003).
Sub Tst_Mp()
Dim Rg As Range
Set Rg = Range("E6:E2000") 'D finit plage
With Worksheets("Feuil1")
With Rg
.Replace Chr(160), ""
.Replace " ", ""
.Replace ".", ","
.Replace ",", "."
End With
End With
Rg.NumberFormat = "General" '"#,##0.00"
Set Rg = Nothing
End Sub
Michel
"joseph84" a crit dans le message
denews:
Merci bcp j apprecie votre aide
malheureusement sa fonctionne pas il me sort une erreur
variable objet ou variable de bloc with non defini
sub test ()
Dim rg As Range
With Worksheets("Feuil1")
With .Range("A2:A200000")
.Replace Chr(160), ""
.Replace " ", ""
.Replace ".", ","
.Replace ",", "."
End With
rg.NumberFormat = "General"
End With
end sub
j ai tester les deux j ai mis la ligne (rg.NumberFormat = "General")
apres le premier en with et apres le deuxieme end with mais sa
fonctionne pas
merci
On 25 mai, 09:25, P hemme wrote:
> Ben, la macro de Denis que tu compl tes, avant le End Sub, par :
> Rg.NumberFormat = "General"
> Non ?
> Michel
> "joseph84" a crit dans le message
> denews:
> Merci MichD
> ce que je veux faire c est de convertir la colonne A en format
> standard
> merci
> On 25 mai, 07:47, "MichD" wrote:
> > Bonjour,
> > Tu adaptes le nom de la feuille et de la plage de cellules.
> > Ces 2 lignes ne sont pas obligatoires, si tu es certain qu'il
> > ne sont pas pr sents dans les cellules contenant des chiffres.
> > .Replace Chr(160), "" -> caract res Ascii -> espace ins cable
> > .Replace " ", ""
> > '-----------------------------------
> > Sub test()
> > With Worksheets("Feuil1")
> > With .Range("B1:B12")
> > .Replace Chr(160), ""
> > .Replace " ", ""
> > .Replace ".", ","
> > .Replace ",", "."
> > End With
> > End With
> > End Sub
> > '-----------------------------------
> > MichD
> > --------------------------------------------- Masquer le texte des
> > messages pr c dents -
> - Afficher le texte des messages pr c dents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -