Trier par groupe

[supermax]

Bonsoir à tous !
Voila j'ai une nouvelle fois besoin de vous....j'ai essayé de résoudre ce problème étape par étape, mais cela poser bcp de problème alors autant poser le problème en entier.Je m'explique
J'ai une liste de machine,Cette liste est décomposer en groupe (Presses, Régulateurs, etc).
Je souhaiterais pouvoir ajouter une machine par l'intermédiaire du bouton.En cliquant dessus, l'usf s'affiche et on sélectionne le type de machine. Une fois cliquer sur Enregistrer, la machine s'ajoute dans le bon groupe.
Seulement elle va se mettre dans la 1ere ligne du groupe, alors que je voudrais qu'elle soit classer par ordre par rapport à son groupe(ordre qui est respecter dans la pièce jointe).Le triage doit me bouger toute la ligne et non la cellule.
Merci pour toute l'aide que vous pouvez m'apporter.

 

[BOISGONTIER]

Re : Trier par groupe

Bonsoir,

Sub Tri()
  nbCol = 2
  PremLig = 7
  couleurPremier = Cells(PremLig, 1).Interior.ColorIndex
  Columns("A:A").Offset(0, nbCol).Insert Shift:=xlToRight
  i = PremLig 
  Do While i <= [A65000].End(xlUp).Row
    temp = Cells(i, 1)
    Cells(i, 1).Offset(0, nbCol) = temp
    i = i + 1
    Do While Cells(i, 1).Interior.ColorIndex <> couleurPremier And i <= [A65000].End(xlUp).Row
       Cells(i, 1).Offset(0, nbCol) = temp
       i = i + 1
    Loop
  Loop
  Range(Cells(PremLig, 1), [C65000].End(xlUp)).Sort Key1:=Range("A7").Offset(0, nbCol), Order1:=xlAscending, Header:=xlNo
  [A:A].Offset(0, nbCol).Delete Shift:=xlToLeft
End Sub

JB
Formation Excel VBA JB

 

[supermax]

Re : Trier par groupe

Merci de ton aide BOISGONTIER.
Serais t'il possible que le groupe Presses/Robots soit classer en 1er ?

 

[supermax]

Re : Trier par groupe

ah j'avais pas vu un truc, peut être me suis je mal exprimé.
je souhaiterais que les machines soit classer par ordre dans chaque groupe.
admettons que je rajoute une 30T001, elle doit se situer entre 25T003 et 35T001
ton code classe les groupes par ordre alphabétique selon le titre du groupe.
Cordialement

 

[BOISGONTIER]

Re : Trier par groupe

Voir PJ

Un A invisible a été ajouté devant Presse/Robots

JB

 

[supermax]

Re : Trier par groupe

Re, c'est presque sa, je sais pas si tu as remarqué mais l'ordre dans le groupe broyeurs, régulateurs, etc, est le suivant : R1, R11, R12, R2, R20. Il faudrait qu'ils suivent cet ordre : R1, R2, R3, etc

 

[BOISGONTIER]

Re : Trier par groupe

Bonjour,

Voir PJ

JB

 

[supermax]

Re : Trier par groupe

Bonsoir !
Merci! Par contre, que dois je modifier si j'ai 15 colonnes au lieu de 2 dans le fichier joint ?
j'ai essayé : nbCol = 15
Range(Cells(PremLig, 1), [AD65000].End(xlUp)).Sort _
Mais sa ne marche pas

 

[BOISGONTIER]

Re : Trier par groupe

Bonsoir,

Voir PJ

JB

 

[supermax]

Re : Trier par groupe

Bonsoir BOISGONTIER
dsl du retard, merci c'est exactement sa ! je te remercie bcp.
@+