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

**yaya54** · 01/03/2006, 14h59

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 !

**repié** · 01/03/2006, 15h17

Code :

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

Cells.Select

tous simplement!

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

**yaya54** · 01/03/2006, 15h26

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

**repié** · 01/03/2006, 15h29

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 :

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

Selection.End(xlDown).Select

**yaya54** · 01/03/2006, 15h33

Par exemple, pour

Code :

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

Range("*").Sort

ou pour

Code :

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

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

**Megaxel** · 01/03/2006, 16h08

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"

**yaya54** · 01/03/2006, 16h11

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

**Megaxel** · 01/03/2006, 16h16

Alors voila. Ce code:

Code :

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

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.

**Megaxel** · 01/03/2006, 16h18

Et même, pour éviter le Select:

Code :

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

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

Ok aussi.

**yaya54** · 01/03/2006, 16h24

C'est OK pour Sort, merci !

Par contre, pour

Code :

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

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

, on ne peut pas remplacer Range par Cells.Select

**ouskel'n'or** · 01/03/2006, 16h36

Non mais essaie

Code :

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

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+

**yaya54** · 01/03/2006, 16h53

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 ?

**Megaxel** · 01/03/2006, 17h02

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

Code :

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

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.

**ouskel'n'or** · 01/03/2006, 18h14

Pour dé-sélectionner ? Tu sélectionne A1

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...

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