Comment remplacer ...
Résolu
Looping38
Messages postés
91
Date d'inscription
Statut
Membre
Dernière intervention
-
Looping38 Messages postés 91 Date d'inscription Statut Membre Dernière intervention -
Looping38 Messages postés 91 Date d'inscription Statut Membre Dernière intervention -
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.
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 Integer
derncol = ActiveSheet.Cells(14, Cells.Columns.Count).End(xlToLeft).Column
For n = 7 To derncol
Columns(n).Hidden = False
Next n
Range(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
A voir également:
- Comment remplacer ...
- Remplacer disque dur par ssd - Guide
- Remplacer word - Guide
- Remplacer coco - Accueil - Réseaux sociaux
- Quel site pour remplacer coco - Accueil - Réseaux sociaux
- Remplacer carte graphique - Guide
4 réponses
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
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
Bonjour,
Il faut ajouter "Range" :
.SetRange Range(Cells(1, 7), Cells(145, derncol))
Cordialement,
didibonf
Il faut ajouter "Range" :
.SetRange Range(Cells(1, 7), Cells(145, derncol))
Cordialement,
didibonf
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
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
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.
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
