Tri Sélectif

[ted_etbill]

Bonsoir à toutes et à tous

je fini par vous soumettre un problème sur lequel je planche depuis des jours ....

je dispose d'un tableau et je souhaite extraire des données et les classer selon
un critère de colonne qui est variable ....😱

je ne maitrise pas correctement Visual basic, c'est pour cela que je me tourne vers vous...

je vous joint le fichier qui contient plus d'explications a mon probleme.


Merci de votre aide

 

[Paritec]

Re : Tri Sélectif

Bonjour ted_etbill,
voilà ton fichier en retour, clique sur le bouton et redis moi
a+
papou 🙂

 

[Paritec]

Re : Tri Sélectif

Re bonjour ted_etbill,
j'avais fait une petite erreur dans la restitution des données et la mise en forme voilà qui est modifié
a+
papou 🙂

 

[BOISGONTIER]

Re : Tri Sélectif

Bonjour,


Voi PJ

Private Sub Worksheet_Activate()
  Sheets("feuil2").Select
  [1:10000].Delete
  Sheets("feuil1").[A2].CurrentRegion.Copy [A1]
  [A1].CurrentRegion.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess
  i = 2
  Do While Cells(i, 3) <> ""
    temp = Cells(i, 3)
    Rows(i).Insert
    Cells(i, 1) = temp
    Cells(i, 1).Resize(, 4).Interior.ColorIndex = 6
    Cells(i, 1).Resize(, 4).Merge
    Cells(i, 1).HorizontalAlignment = xlCenter
    i = i + 1
    Do While Cells(i, 3) = temp:  i = i + 1: Loop
  Loop
End Sub

JB
http://boisgontierjacques.free.fr/

 

[ted_etbill]

Re : Tri Sélectif

Re bonjour ted_etbill,
j'avais fait une petite erreur dans la restitution des données et la mise en forme voilà qui est modifié
a+
papou 🙂

Merci !!! excellent, c'est exactement ce que je cherchais a faire. j'ai ajouté d'autres items et ca fonctionne super !!

Vous etes des cracks !!! 🙂

 

[ted_etbill]

Re : Tri Sélectif

Bonjour,


Voi PJ

Private Sub Worksheet_Activate()
  Sheets("feuil2").Select
  [1:10000].Delete
  Sheets("feuil1").[A2].CurrentRegion.Copy [A1]
  [A1].CurrentRegion.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess
  i = 2
  Do While Cells(i, 3) <> ""
    temp = Cells(i, 3)
    Rows(i).Insert
    Cells(i, 1) = temp
    Cells(i, 1).Resize(, 4).Interior.ColorIndex = 6
    Cells(i, 1).Resize(, 4).Merge
    Cells(i, 1).HorizontalAlignment = xlCenter
    i = i + 1
    Do While Cells(i, 3) = temp:  i = i + 1: Loop
  Loop
End Sub

JB
Formation Excel VBA JB

Merci pour votre aide précieuse, je vais reflechir a la solution que je vais utiliser !!
merci a vous 2 !!
🙂

 

[ted_etbill]

Re : Tri Sélectif

Bonjour,


Voi PJ

Private Sub Worksheet_Activate()
  Sheets("feuil2").Select
  [1:10000].Delete
  Sheets("feuil1").[A2].CurrentRegion.Copy [A1]
  [A1].CurrentRegion.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess
  i = 2
  Do While Cells(i, 3) <> ""
    temp = Cells(i, 3)
    Rows(i).Insert
    Cells(i, 1) = temp
    Cells(i, 1).Resize(, 4).Interior.ColorIndex = 6
    Cells(i, 1).Resize(, 4).Merge
    Cells(i, 1).HorizontalAlignment = xlCenter
    i = i + 1
    Do While Cells(i, 3) = temp:  i = i + 1: Loop
  Loop
End Sub

JB
Formation Excel VBA JB

Une dernière chose, j'ai perdu les titres de mes colonnes source ... comment modifier le code pour les avoir 2 lignes au dessus du premier tri ?