STEF67
XLDnaute Nouveau
Bonjour à tous,
J'avais sollicité le forum pour une marcro de tri avec les "-" systématiquement à la fin. L'un d'entre vous dont le nom m'echappe (désolé car je n'arrive plus à retrouver le post) m'avais trouvé une solution qui marche bien.
Avec
Call raz & Call remettre en debut et fin de chaque macro
puis
Sub raz()
Dim i As Long, nbl As Long, cel As Range
nbl = Range("B65500").End(xlUp).Row
For Each cel In Range("B6:b" & CStr(nbl))
If cel.Value = "-" Then cel.ClearContents
Next
End Sub
Sub remettre()
Dim i As Long, nbl As Long, cel As Range
nbl = Range("B65500").End(xlUp).Row
For Each cel In Range("B6:b" & CStr(nbl))
If cel.Value = "" Then cel.Value = "-"
Next
End Sub
Le pb est que le tri ne porte pas en fait sur des données brutes mais sur les resultats de formules.(je ne l'avais pas précisé Mea Culpa !) cf PJ
Cette macro efface donc les formules et avec à la mise à jour ultérieure de la base je suis planté
Avec vous une solution ?
Grand merci d'avance
J'avais sollicité le forum pour une marcro de tri avec les "-" systématiquement à la fin. L'un d'entre vous dont le nom m'echappe (désolé car je n'arrive plus à retrouver le post) m'avais trouvé une solution qui marche bien.
Avec
Call raz & Call remettre en debut et fin de chaque macro
puis
Sub raz()
Dim i As Long, nbl As Long, cel As Range
nbl = Range("B65500").End(xlUp).Row
For Each cel In Range("B6:b" & CStr(nbl))
If cel.Value = "-" Then cel.ClearContents
Next
End Sub
Sub remettre()
Dim i As Long, nbl As Long, cel As Range
nbl = Range("B65500").End(xlUp).Row
For Each cel In Range("B6:b" & CStr(nbl))
If cel.Value = "" Then cel.Value = "-"
Next
End Sub
Le pb est que le tri ne porte pas en fait sur des données brutes mais sur les resultats de formules.(je ne l'avais pas précisé Mea Culpa !) cf PJ
Cette macro efface donc les formules et avec à la mise à jour ultérieure de la base je suis planté
Avec vous une solution ?
Grand merci d'avance