::: Marco de tri avec lignes vides en bas. ::: Sort marco with empty lines at the end.
Le
infojacques
Bonjour, Quelqu'un peux-il m'aider à créer une macro de tri avec les
lignes vides en bas (voire fichier ci-joint pour les détails
http://cjoint.com/?hevVdaabOb) ? MERCI Jacques
Hello, I would like to create a marcro that sorts data and keep the
blank lines at the end (please see the attached file for details
http://cjoint.com/?hevVdaabOb)? THANK YOU Jacques
lignes vides en bas (voire fichier ci-joint pour les détails
http://cjoint.com/?hevVdaabOb) ? MERCI Jacques
Hello, I would like to create a marcro that sorts data and keep the
blank lines at the end (please see the attached file for details
http://cjoint.com/?hevVdaabOb)? THANK YOU Jacques
Poser une question
Ne peux-tu pas ajouter une fonction si
=SI('BD or DB'!A23="";"zzzzzzzz";'BD or DB'!A23)
(pour toute tes lignes bien sur)
c'est une idée !!
--
Cordialement
JP25
Bonjour, Quelqu'un peux-il m'aider à créer une macro de tri avec les
lignes vides en bas (voire fichier ci-joint pour les détails
http://cjoint.com/?hevVdaabOb) ? MERCI Jacques
Hello, I would like to create a marcro that sorts data and keep the
blank lines at the end (please see the attached file for details
http://cjoint.com/?hevVdaabOb)? THANK YOU Jacques
exemple fichier avec macr de tri,
formules et MEFC pour ne pas voir les lignes (faussement vides)
--
Cordialement
JP25
http://cjoint.com/?hewweGE66l
Bonjour, Quelqu'un peux-il m'aider à créer une macro de tri avec les
lignes vides en bas (voire fichier ci-joint pour les détails
http://cjoint.com/?hevVdaabOb) ? MERCI Jacques
Hello, I would like to create a marcro that sorts data and keep the
blank lines at the end (please see the attached file for details
http://cjoint.com/?hevVdaabOb)? THANK YOU Jacques
rattache cette macro à un bouton :
Sub tri()
Dim c As Range
For Each c In Range("A7:C30")
If c.Value c.Offset(, 9) = c
Else
c.Offset(, 9) = ""
End If
Next c
Range("A7:L30").Sort Key1:=Range("J7"), Order1:=xlAscending, _
Key2:=Range("K7"), Order2:=xlAscending, Key3:=Range("L7"), _
Order3:=xlAscending, Header:=xlNo
Range("J7:L30").Clear
End Sub
Cordialement.
Daniel
Bonjour, Quelqu'un peux-il m'aider à créer une macro de tri avec les
lignes vides en bas (voire fichier ci-joint pour les détails
http://cjoint.com/?hevVdaabOb) ? MERCI Jacques
Hello, I would like to create a marcro that sorts data and keep the
blank lines at the end (please see the attached file for details
http://cjoint.com/?hevVdaabOb)? THANK YOU Jacques
Sub Trip3()
Dim laligne As Long
laligne = Worksheets("BD or DB").[a65536].End(xlUp).Row
Worksheets("RESULTAT or RESULT").Range("a7", "h" & laligne).Sort _
Key1:=Range("A7"), Order1:=xlAscending, _
Key2:=Range("B7"), Order2:=xlAscending, _
Key3:=Range("C7"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
End Sub
'Cordialement
'lSteph
MERCI à tous pour vos réponses !
Je vais les tester et en adopter une :)))
Bonne journée à vous !
Jacques