[VBA-E]définir l'ensemble des cellules d'une feuille?

Bonjour,

J'amierais savoir comment sélectionner l'ensemble des cellules d'une feuille avec la propriété Range.

Actuellement, je fais le barbare en mettant Range("A1:H30000"), mais c'est pas très propre et rien ne me dit qu'un jour des valeurs n'aillent pas au delà de la ligne 30000.

Merci bcp !

Code:

---

Cells.Select

---

tous simplement!

d'ailleurs, ta un éditeur de macro pour te guider dans ces questions!

Ca ne fonctionne pas dans mon cas, car il faut nécessairement que j'utilise la propriété Range

Pourquoi ca fonctionne pas chez toi?

Au premier abord, ce code te donne la cellule la plus basse de ta colonne (je sais pas si ca peut t'aider?)

Code:

---

Selection.End(xlDown).Select

---

Par exemple, pour

Code:

---

Range("*").Sort

---

ou pour

Code:

---

With Worksheets(1).Range("*")

---

J'aimerais bien que tu m'expliques pourquoi tu dois utiliser Range et non Cells. Je ne vois pas ce qui peut t'empêcher de remplacer ton "barbarisme" par "Cells"

La méthode Sort ne peut s'appliquer qu'à un Range. Si je mets Cells, ça plante... Jette un coup d'oeil dans l'aide à Sort, tu verras...

Maintenant je me trompe peut être, mais qu'on m'explique :roll:

Alors voila. Ce code:

Code:

---

1 2 3 4

ActiveSheet.Cells.Select Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal

---

fonctionne très bien. (en tout cas, en Excel 2003)
Maintenant, je ne sais pas trop bien ce que je peux expliquer.

Et même, pour éviter le Select:

Code:

---

1 2 3

ActiveSheet.Cells.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal

---

Ok aussi.
:D

C'est OK pour Sort, merci !

Par contre, pour

Code:

---

With Worksheets(1).Range("*")

---

, on ne peut pas remplacer Range par Cells.Select

Non mais essaie

Code:

---

1 2 3 4 5 6

Worksheets(1).Select Cells.Select Plage = Selection.Address With Worksheets(1).Range(Plage) '.......... End With

---

Par contre, je me demande bien ce que tu vas faire de ça...

A+

OK ça fonctionne merci.

Par contre, les cellules restes sélectionnées une fois le code exécutées... Y'a une commande pour annuler la sélection ?

Alors pour le "With Worksheet(1)...", je propose ça:

Code:

---

1 2 3 4 5

Sub Color() With Worksheets(1).Cells .Interior.ColorIndex = 3 End With End Sub

---

Ensuite, pour ne pas avoir à "dé-selectionner", ne sélectionne pas. Comme je l'ai fait dans un de mes exemples au dessus.

Pour dé-sélectionner ? Tu sélectionne A1 :lol: :lol: :lol:
Cells(1,1).select ....

Je vais quand même pas mettre les balises...

A+

Si tu as plus simple, n'hésite pas à poser la question, on y répondra sûrement... :lol:

NB - Mais t'es pas obligé de sélectionner A1, tu peux tout à fait sélectionner une autre cellule que A1 :wink:

C'est pas bô de se moquer des infirmes :(

C'est tout bon, merci à tous pour cette aide...