Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

::: Marco de tri avec lignes vides en bas. ::: Sort marco with empty lines at the end.

5 réponses
Avatar
infojacques
Bonjour, Quelqu'un peux-il m'aider =E0 cr=E9er une macro de tri avec les
lignes vides en bas (voire fichier ci-joint pour les d=E9tails
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

5 réponses

Avatar
JP25
Bonsoir,
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



a écrit dans le message de news:

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
Avatar
JP25
Encore moi
exemple fichier avec macr de tri,
formules et MEFC pour ne pas voir les lignes (faussement vides)
--
Cordialement
JP25


http://cjoint.com/?hewweGE66l
a écrit dans le message de news:

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
Avatar
Daniel
Bonsoir.
rattache cette macro à un bouton :

Sub tri()
Dim c As Range
For Each c In Range("A7:C30")
If c.Value <> "" And c.Value <> 0 Then
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
a écrit dans le message de news:

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
Avatar
LSteph
Bonsoir,

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

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



Avatar
infojacques
Bnojour,
MERCI à tous pour vos réponses !
Je vais les tester et en adopter une :)))
Bonne journée à vous !
Jacques