::: 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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JP25
Le #4605691
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




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
JP25
Le #4605661
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

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
Daniel
Le #4605641
Bonsoir.
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
LSteph
Le #4605601
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



infojacques
Le #4605091
Bnojour,
MERCI à tous pour vos réponses !
Je vais les tester et en adopter une :)))
Bonne journée à vous !
Jacques
Publicité
Poster une réponse
Anonyme