Discussion :

[thierry_b]

Bonjour,

En utilisant une fonction VBA, je génère un certain tableau. Grce à l'utilisation de variables, je sais que :
- la première cellule en haut à gauche de mon tableau est en Cells(firstLigneDestination, firstColonneDestination)
- la toute dernière cellule en bas à droiteest en Cells(ligneCurrentDestination - 1, firstColonneDestination + 4)

Comment faire un select sur toute cette plage, pour ensuite appliquer un tri sur cette sélection?

pour le moment j'utilise ca (ci-dessous), sans utiliser mes variables

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
' Mettre le tout dans l'ordre croissant
  feuille2.Columns("A:E").Select
  Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess

Merci :-)

[DeaD78]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range(Cells(a,b),Cells(x,y)).select

D'ailleurs, les Select c'est le mal

[thierry_b]

Merci ça marche :-)

[Krovax]

Je suis tout a fait d'accord les select c'est le mal ca renlitie le code le rend ilisible et transforme l'écran en sapin de noel digne du concours de la plus belle illumination du millénaire.
Alors a chaque fois que tu as

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
quelquechose.select
selection.autrechose

remplace ca par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

quelquechose.autrechose

Dans ton exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  feuille2.Columns("A:E").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess

Et avec le code de Dead

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  feuille2.Columns(Cells(firstLigneDestination, firstColonneDestination) ,ells(ligneCurrentDestination - 1, firstColonneDestination + 4)).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess