Quelque chose m'échappe (encore).
Cette macro dépose dans la colonne A
d'une feuille «flambant neuve» des nombres
issus d'une sélection multiple. Ensuite, elle y met de l'ordre.
Si «Option Base 1» est absent, elle ne fonctionne pas.
Pourquoi ? Je croyais que ReDim x ( 1 To n , 1 )
signifiait que le premier indice du tableau est 1, non ?
Option Base 1
Sub Ordre()
Set ici = Selection
Dim x()
n = ici.Cells.Count
ReDim x(1 To n, 1)
Sheets.Add
For Each c In ici
i = i + 1
x(i, 1) = c
Next
Range(Cells(1, 1), Cells(n, 1)).Value = x
ActiveSheet.UsedRange.Sort Key1:=Range("A1"), Order1:=xlAscending
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LeSteph
Bonjour, 0 to n LeSteph
"garnote" a écrit dans le message de news:Ut%tc.3246$
Bonjour,
Quelque chose m'échappe (encore). Cette macro dépose dans la colonne A d'une feuille «flambant neuve» des nombres issus d'une sélection multiple. Ensuite, elle y met de l'ordre. Si «Option Base 1» est absent, elle ne fonctionne pas. Pourquoi ? Je croyais que ReDim x ( 1 To n , 1 ) signifiait que le premier indice du tableau est 1, non ?
Option Base 1 Sub Ordre() Set ici = Selection Dim x() n = ici.Cells.Count ReDim x(1 To n, 1) Sheets.Add For Each c In ici i = i + 1 x(i, 1) = c Next Range(Cells(1, 1), Cells(n, 1)).Value = x ActiveSheet.UsedRange.Sort Key1:=Range("A1"), Order1:=xlAscending End Sub
Serge
Bonjour,
0 to n
LeSteph
"garnote" <rien@absent.net> a écrit dans le message de
news:Ut%tc.3246$CD4.1144@edtnps84...
Bonjour,
Quelque chose m'échappe (encore).
Cette macro dépose dans la colonne A
d'une feuille «flambant neuve» des nombres
issus d'une sélection multiple. Ensuite, elle y met de l'ordre.
Si «Option Base 1» est absent, elle ne fonctionne pas.
Pourquoi ? Je croyais que ReDim x ( 1 To n , 1 )
signifiait que le premier indice du tableau est 1, non ?
Option Base 1
Sub Ordre()
Set ici = Selection
Dim x()
n = ici.Cells.Count
ReDim x(1 To n, 1)
Sheets.Add
For Each c In ici
i = i + 1
x(i, 1) = c
Next
Range(Cells(1, 1), Cells(n, 1)).Value = x
ActiveSheet.UsedRange.Sort Key1:=Range("A1"), Order1:=xlAscending
End Sub
"garnote" a écrit dans le message de news:Ut%tc.3246$
Bonjour,
Quelque chose m'échappe (encore). Cette macro dépose dans la colonne A d'une feuille «flambant neuve» des nombres issus d'une sélection multiple. Ensuite, elle y met de l'ordre. Si «Option Base 1» est absent, elle ne fonctionne pas. Pourquoi ? Je croyais que ReDim x ( 1 To n , 1 ) signifiait que le premier indice du tableau est 1, non ?
Option Base 1 Sub Ordre() Set ici = Selection Dim x() n = ici.Cells.Count ReDim x(1 To n, 1) Sheets.Add For Each c In ici i = i + 1 x(i, 1) = c Next Range(Cells(1, 1), Cells(n, 1)).Value = x ActiveSheet.UsedRange.Sort Key1:=Range("A1"), Order1:=xlAscending End Sub
