malcy45
XLDnaute Occasionnel
bonjour tout le monde,
je ne comprends pas pourquoi une macro qui fonctionnait ne semble plus fonctionner. Je m'explique :
Sauf erreur de ma part, pierrejean m'avait donné une excellente astuce pour classer par ordre alphabetique une liste en evitant que les cellules vides ne se retrouve en haut car je les désirais en bas. Tout fonctionnait enfin sur xl2000
et la avec un autre ordi sous 2003 cela ne fonctionne plus et je me retrouve de nouveau avec mes cases vides en haut ;
Je vous livre le code, si quelqu un peut regarder.
D'avance merci
Application.ScreenUpdating = False
Dim cel As Range
Sheets("Rec 1").Select
Sheets("Rec 1").Copy Before:=Sheets(1)
Sheets("Rec 1 (2)").Select
Sheets("Rec 1 (2)").Name = "récap compta"
For Each cel In Range("c4:c" & Range("c65536").End(xlUp).Row)
If cel.Value = 0 Then cel.Value = "ZZZZZ"
Next cel
Range("A4:m33").Select
Selection.Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For Each cel In Range("C4:C" & Range("C65536").End(xlUp).Row)
If cel.Value = "ZZZZZ" Then cel.Value = 0
Next cel
Application.ScreenUpdating = True
je ne comprends pas pourquoi une macro qui fonctionnait ne semble plus fonctionner. Je m'explique :
Sauf erreur de ma part, pierrejean m'avait donné une excellente astuce pour classer par ordre alphabetique une liste en evitant que les cellules vides ne se retrouve en haut car je les désirais en bas. Tout fonctionnait enfin sur xl2000
et la avec un autre ordi sous 2003 cela ne fonctionne plus et je me retrouve de nouveau avec mes cases vides en haut ;
Je vous livre le code, si quelqu un peut regarder.
D'avance merci
Application.ScreenUpdating = False
Dim cel As Range
Sheets("Rec 1").Select
Sheets("Rec 1").Copy Before:=Sheets(1)
Sheets("Rec 1 (2)").Select
Sheets("Rec 1 (2)").Name = "récap compta"
For Each cel In Range("c4:c" & Range("c65536").End(xlUp).Row)
If cel.Value = 0 Then cel.Value = "ZZZZZ"
Next cel
Range("A4:m33").Select
Selection.Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For Each cel In Range("C4:C" & Range("C65536").End(xlUp).Row)
If cel.Value = "ZZZZZ" Then cel.Value = 0
Next cel
Application.ScreenUpdating = True