Comment remplacer ... Résolu/Fermé

Question

Bonjour, 
Je souhaite remplacer la ligne 

.SetRange Range("G1:Co121") qui a une donnée fixes par la ligne 

.setRange (Cells(1, 7), Cells(145, derncol)) qui a une donnée variable 

Et dans la première partie 

Range( _
    "G10:CO10")
par également la reprise de la variable derncol à la place de la colonne (CO)

dans la macro suivante mais il me dit qu'il y a une erreur de syntaxe... et je ne connais évidemment pas bien tous ça car fait avec l'enregistreur de macro...

Merci d'avance pour votre attention et votre aide.

Dim derncol As Integerderncol = ActiveSheet.Cells(14, Cells.Columns.Count).End(xlToLeft).ColumnFor n = 7 To derncol    Columns(n).Hidden = False    Next nRange(Columns(7), Columns(derncol)).Select    ActiveWorkbook.Worksheets("Panorama FM").Sort.SortFields.Clear       ActiveWorkbook.Worksheets("Panorama FM").Sort.SortFields.Add Key:=Range( _    "G10:CO10"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _        xlSortNormal    With ActiveWorkbook.Worksheets("Panorama FM").Sort        .SetRange Range("G1:Co121") ' à remplacer par  .setRange (Cells(1, 7), Cells(145, derncol))        .Header = xlGuess        .MatchCase = False        .Orientation = xlLeftToRight        .SortMethod = xlPinYin        .Apply    End With

Patrice33740 · Answer

Bonjour,

Pour ça il existe une touche "Miracle" : F1
VBA indique la ligne de code en erreur, il suffit de mettre le pointeur texte sur chaque mot de la ligne et de taper F1

didibonf · Answer

Bonjour,
Il faut ajouter "Range" : 
.SetRange Range(Cells(1, 7), Cells(145, derncol))

Cordialement,
didibonf

Looping38 · Answer

Un grand merci didibonf. Ca marche du tonnerre.
Et dans la partie supérieur  je souhaite également remplacer (en souligné)

ActiveWorkbook.Worksheets("Panorama FM").Sort.SortFields.Add Key:=Range( _
"G10:CO10"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal

par quelque chose comme :

ActiveWorkbook.Worksheets("Panorama FM").Sort.SortFields.Add Key:=Range( _
"G10:COderncol"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal

C'est également un problème de syntaxe ;-)
Merci d'avance. 
Looping38

Looping38 · Answer

Bonjour Didibonf et merci pour ce retour. 
Avec du temps, j'ai pu adapter ta réponse à mon cas, puisqu'il s'agissait de colonnes et non de lignes...
J'avais mal exprimé ma demande. 

Voila ce que j'ai fais et qui manifestement marche. 

Range(Columns(7), Columns(derncol - 1)).Select    ActiveWorkbook.Worksheets("Panorama FM").Sort.SortFields.Clear      ActiveWorkbook.Worksheets("Panorama FM").Sort.SortFields.Add2 Key:=Range( _Cells(10, 7), Cells(10, derncol)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal          ActiveWorkbook.Worksheets("Panorama FM").Sort.SortFields.Add2 Key:=Range( _Cells(8, 7), Cells(8, derncol)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal    With ActiveWorkbook.Worksheets("Panorama FM").Sort        .SetRange Range(Cells(1, 7), Cells(145, derncol))        .Header = xlGuess        .MatchCase = False        .Orientation = xlLeftToRight        .SortMethod = xlPinYin        .Apply    End With

Comment remplacer ...

4 réponses

Discussions similaires