Jidé
XLDnaute Nouveau
Bonjour,
PS : Désolé pour cette fausse alerte, mais je crois que j'ai un problème de format par aileurs. Merci.
Je n'arrive pas à effectuer un tri sur des nombres relatifs décimaux.
Voici mon code :
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
Range("C10:E69").Sort Key:=Range("E10"), Order:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption:=xlTextAsNumers
Range("B1").Select
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
Contexte :
Format cellules : Nombre avec une décimale.
Remplacement préalable des éventuels "." par des "," avec le code suivant :
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
Dim c As Variant, pos As Variant
For Each c In Range("E10:E69")
pos = Replace(c, ".", ",")
c = pos
Next
With Range("E10:E69")
.NumberFormat = "0.0"
.HorizontalAlignment = xlRight
.VerticalAlignment = xlCenter
End With
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
Commentaire : Le Tri manuel fonctionne parfaitement. Le code généré correspondant ne fonctionne pas mieux que le mien !!!
Merci pour votre aide.
Cordialement,
Jidé
PS : Désolé pour cette fausse alerte, mais je crois que j'ai un problème de format par aileurs. Merci.
Je n'arrive pas à effectuer un tri sur des nombres relatifs décimaux.
Voici mon code :
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
Range("C10:E69").Sort Key:=Range("E10"), Order:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption:=xlTextAsNumers
Range("B1").Select
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
Contexte :
Format cellules : Nombre avec une décimale.
Remplacement préalable des éventuels "." par des "," avec le code suivant :
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
Dim c As Variant, pos As Variant
For Each c In Range("E10:E69")
pos = Replace(c, ".", ",")
c = pos
Next
With Range("E10:E69")
.NumberFormat = "0.0"
.HorizontalAlignment = xlRight
.VerticalAlignment = xlCenter
End With
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
Commentaire : Le Tri manuel fonctionne parfaitement. Le code généré correspondant ne fonctionne pas mieux que le mien !!!
Merci pour votre aide.
Cordialement,
Jidé
Dernière édition: