Débutant... fonction replace

[zanrf]

Bonjour,
il doit manquer quelquechose dans ma macro car elle excel rame un peu...
Merci
Franz

Sub Macro1()
For Each cel In ActiveSheet.UsedRange
For n = Len(cel.Value) To 1 Step -1
Selection.Replace What:="janvier", Replacement:="01"
Selection.Replace What:="février", Replacement:="02"
Selection.Replace What:="mars", Replacement:="03"
Selection.Replace What:="avril", Replacement:="04"
Selection.Replace What:="mai", Replacement:="05"
Selection.Replace What:="juin", Replacement:="06"
Selection.Replace What:="juillet", Replacement:="07"
Selection.Replace What:="aout", Replacement:="08"
Selection.Replace What:="août", Replacement:="08"
Selection.Replace What:="septembre", Replacement:="09"
Selection.Replace What:="octobre", Replacement:="10"
Selection.Replace What:="novembre", Replacement:="11"
Selection.Replace What:="decembre", Replacement:="12"
Selection.Replace What:="décembre", Replacement:="12"
Selection.Replace What:="1er", Replacement:="01"
Next n
Next cel
End Sub

 

[pierrejean]

Re : Débutant... fonction replace

bonjour zarnf
A mon avis i y a plus d'exces que de manque

Teste:

Sub Macro1()
For Each cel In ActiveSheet.UsedRange
cel.value = Replace(cel.value,"janvier","01")
cel.Value = Replace(cel.Value, "février", "02")
cel.Value = Replace(cel.Value, "mars", "03")
cel.Value = Replace(cel.Value, "avril", "04")
cel.Value = Replace(cel.Value, "mai", "05")
cel.Value = Replace(cel.Value, "juin", "06")
cel.Value = Replace(cel.Value, "juillet", "07")
cel.Value = Replace(cel.Value, "aout", "08")
cel.Value = Replace(cel.Value, "septembre", "09")
cel.Value = Replace(cel.Value, "octobre", "10")
cel.Value = Replace(cel.Value, "novembre", "11")
cel.Value = Replace(cel.Value, "decembre", "12")
cel.Value = Replace(cel.Value, "1er", "01")
Next cel
End Sub

 

[Roland_M]

Re : Débutant... fonction replace

bonjour, essai comme ceci

Sub Macro1()
For Each cel In ActiveSheet.UsedRange
cel.Select
Selection.Replace what:="janvier", replacement:="01"
Selection.Replace what:="février", replacement:="02"
Selection.Replace what:="mars", replacement:="03"
Selection.Replace what:="avril", replacement:="04"
Selection.Replace what:="mai", replacement:="05"
Selection.Replace what:="juin", replacement:="06"
Selection.Replace what:="juillet", replacement:="07"
Selection.Replace what:="aout", replacement:="08"
Selection.Replace what:="août", replacement:="08"
Selection.Replace what:="septembre", replacement:="09"
Selection.Replace what:="octobre", replacement:="10"
Selection.Replace what:="novembre", replacement:="11"
Selection.Replace what:="decembre", replacement:="12"
Selection.Replace what:="décembre", replacement:="12"
Selection.Replace what:="1er", replacement:="01"
Next
End Sub

Roland

 

[zanrf]

Re : Débutant... fonction replace

effectivement c'est beaucoup mieux!
merci