VBA - Balayer les colonnes d'une feuille et les trier du plus grand au plus petit

[Arnaud81]

Bonjour,

J'ai un petit soucis sur une macro.

Je copie des données de la feuille 2 et je les colle dans la feuille 3. Jusque là, tout fonctionne.

Je voudrais pouvoir balayer les 122 colonnes à partir de la colonne C la feuille 3

Le début de la macro est ok :

Sub Macro1()

Sheets("Feuil2").Select
For j = 3 To 3
i = 122
While (Cells(i - 1, j).Value = 0)
i = i - 1
Wend
k = i - 1

Sheets("Feuil2").Select
Cells(k, j).Select

Range(Selection, Selection.End(xlUp)).Select
Range("C2:C26").Select
Range("C26").Activate
Selection.Copy
Sheets("Feuil3").Select
Cells(2, j).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Feuil3").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil3").Sort.SortFields.Add Key:=Range("C2"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal



A partir de là, ça coince...


With ActiveWorkbook.Worksheets("Feuil3").Sort
.SetRange Range(Cells(2,"& j &"):Cells(130, "& j &"))
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Next j


End Sub

Une idée?

 

[Pierrot93]

Re : VBA - Balayer les colonnes d'une feuille et les trier du plus grand au plus peti

Bonjour,

pas testé, mais j étant une variable, pas besoin de guillemets, ni de & :

.SetRange Range(Cells(2, j ):Cells(130, j))

bon après midi
@+

 

[Arnaud81]

Re : VBA - Balayer les colonnes d'une feuille et les trier du plus grand au plus peti

Bonjour Pierrot

Erreur de syntaxe qu'il me dit...

Je joins le fichier.

 

[Arnaud81]

Re : VBA - Balayer les colonnes d'une feuille et les trier du plus grand au plus peti

Toujours pas d'idées? J'ai beau chercher, je ne trouve rien.... :-(

 

[Pierrot93]

Re : VBA - Balayer les colonnes d'une feuille et les trier du plus grand au plus peti

Bonsoir,

Aarf désolé, mais pas 2007 sous le coude, je ne peux ouvrir ton fichier....

bonnne soirée
@+

 

[Gardien de phare]

Re : VBA - Balayer les colonnes d'une feuille et les trier du plus grand au plus peti

Bonjour,

Je dirais ...

.SetRange Range(Cells(2, j), Cells(130, j))

 

[Staple1600]

Re : VBA - Balayer les colonnes d'une feuille et les trier du plus grand au plus peti

Bonjour à tous

Bonjour,
Je dirais ...

.SetRange Range(Cells(2, j), Cells(130, j))

Je dirais même 😉 ...(tribute au Dupont et Dupont 😉 )
Code VBA:
.SetRange Cells(2, j).Resize(130)

PS: bon j'avoue, j'ai pas testé, mais cela doit le faire non ?

 

[Pierrot93]

Re : VBA - Balayer les colonnes d'une feuille et les trier du plus grand au plus peti

Bonjour à tous,

AArf, mal voyant moi, avait pas vu les : à remplacer par une ,

bonne journée
@+

 

[Arnaud81]

Re : VBA - Balayer les colonnes d'une feuille et les trier du plus grand au plus peti

Vous êtes des cracks!!! Un grand merci!!