Explication de programme

[OLIVIER]

BONSOIR
dans ce petit progr quel attribut sert a choisir les colonnes à trier
merci à vous tous
Option Explicit
Sub TrierPlages()
Dim i As Byte, lig As Integer
Dim Plage As Range, Cell As Range
For i = 7 To 23 Step 4

Set Plage = Range(Cells(6, i), Cells(25, i + 2))
Plage.Sort Key1:=Cells(6, i), Order1:=xlDescending
For Each Cell In Range(Cells(6, i), Cells(25, i))
If Application.CountIf(Plage, Cell) = 1 Then
Cell.Offset(0, 2) = Cell.Offset(-1, 2) + 1
Else
If Cell <> Cell.Offset(-1, 0) Then
Cell.Offset(0, 2) = Cell.Offset(-1, 2) + 1
Else
Cell.Offset(0, 2) = Cell.Offset(-1, 2)
End If
End If
Next Cell
Plage.Sort Key1:=Cells(6, i + 1), Order1:=xlAscending
Next i
End Sub

 

[Baside]

Bonsoir Olivier le forum

Quand tu vois Cells(L,C) L pour Ligne et C pour colonne

Dans ton code, il ya des i qui remplacent les n° de colonnes

Bonne soirér, Baside

 

[olivier]

oui cela j'avais reussit a comprendre mais pour changer l'emplacement comment on fait merci

 

[Baside]

Rebonsoir Olivier le forum

Simple

Tu regardes o&ugrave; est définit ce i et il y a une ligne

For i = 7 To 23 Step 4

Cette ligne signifie qu'elle boucle sur les colonnes 7 à 23 avec un pas de 4 donc sur les colonnes: 7 11 15 19 et 23
Pour les plages sélectionnées

Baside

 

[olivier]

Je te remercie beaucoup BASIDE comme cela c'est beaucoup plus claire et a ma porte encore une petite question :
cette formule me permet de trier et de ranger par ordre les résultats dans la feuille que je joint il y a une colonne de couleur rouge je voudrais envoyer le reculotta de cette colonne dans un autre endroit de la feuille pourrais tu me dire slt comment je dois faire merci beaucoup [file name=essai_20050529205556.zip size=13110]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_20050529205556.zip[/file]

 

[Baside]

Le fichier [file name=essai_20050529210750.zip size=13164]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_20050529210750.zip[/file]

 

[OLIVIER]

OUI MAIS
le probleme est que lorsque j'appuis sur le bouton trier je veus que les colonnes de couleur se remplisse avec les chiffres des colonnes de couleur corespondante
merci pour ton aide [file name=essai_20050529212149.zip size=13110]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_20050529212149.zip[/file]

 

[Baside]

Voir le fichier [file name=EssaiOlivier.zip size=14095]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/EssaiOlivier.zip[/file]

 

[OLIVIER]

MERCI beaucoup cela est tres bien et je vais travailler sur ces formules pour realiser ma feuille
merci et bonne soirée

 

[Baside]

Bonne soirtée et merci de la réponse