simple range ne fonctionne pas

Version imprimable

02/07/2008, 14h03
Zak Blayde

simple range ne fonctionne pas

Bonjour,

J'en deviens fou, je ne comprends absolument pas pourquoi j'ai une erreur sur le range dans l'expression :

Code:

Worksheets("Donnees").Range("C6:O490").Select

Si quelqu'un peut éclairer ma lanterne parce que là je me sens vraiment idiot -_-.
Même résultat avec un activate, même résultat en activant la feuille avant de procéder à la sélection.
02/07/2008, 14h07
zandru

Bonjour,

essai comme ça :

Code:

Worksheets("Donnees").Range(Cells(3, 6), Cells(15, 490)).Select

J'ai cette fois une "Erreur définie par l'application ou par l'objet" sur cette ligne.
Voici les deux sub de ma feuille, peut-être une histoire de conflit :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
 
Private Sub trier_button_Click()
    Worksheets("Donnees").Range(Cells(1, 6), Cells(15, 490)).Select
    'Worksheets("Donnees").Range("C6:O490").Select
    Selection.Sort Key1:=Range("C6"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ISCT As Range
 
    Set ISCT = Intersect(Target, Range("A3:A14"))
    If Not ISCT Is Nothing Then
        If Target.Value = "" Then
        ElseIf Left(Target.Value, 1) <> "*" Then
            Target.Value = "*" & Target.Value & "*"
        End If
    End If
End Sub

02/07/2008, 14h37
Godzestla

Ca plante ou et avec quelle erreur ?

Bonjour,

Je n'ai pas étudié le code dans lequel on peut probablement supprimer les Select mais pour info, on ne peut sélectionner une cellule que sur la feuille active, il faut donc s'assurer que la feuille en question est bien la feuille active en décomposant comme ceci :
Code:

1 2 Worksheets("Donnees").Activate Range("C6:O490").Select
EDIT : à tester (sans Select)
Code:

1 2 3 Worksheets("Donnees").Range("C6:O490").Sort Key1:=Range("C6"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal

02/07/2008, 14h46
Zak Blayde

J'ai déjà essayé ta seconde solution et j'ai l'erreur suivante :

Citation:

Référence de tri non valide. Vérifiez qu'elle se trouve bien parmi les données à trier et que la zone Trier par n'est pas identique ou vide.

La première, déjà essayé aussi et j'ai toujours l'erreur sur le range.

Ca ne pourrais- pas être parce que il ne trouve pas le header de tes colonnes ?

Généralement je fais comme ceci (je regroupe les instructions relatives au tri pour plus de clarté)
Code:

1 2 3 4 5 6 7 Start_Range_Id = Get_Range_Id(ActiveSheet.UsedRange.Name) 'Sort By 1)DateFrom 2)DateTO 3)Category Range(Start_Range_Id).Select Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("G2") _ , Order2:=xlAscending, Key3:=Range("Y2"), Order3:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ce qui sous-ententd qu'entre mon range et la ligne de tri, j'ai 1 décallage de + 1. je ne le vois pas chez toi .

Sorry j'ai oublié un bout

Code:

1
2
3
Worksheets("Donnees").Range("C6:O490").Sort Key1:=Worksheets("Donnees").Range("C6"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal

Citation:
Envoyé par Godzestla
Ca ne pourrais- pas être parce que il ne trouve pas le header de tes colonnes ?

Généralement je fais comme ceci (je regroupe les instructions relatives au tri pour plus de clarté)
Code:

1 2 3 4 5 6 7 Start_Range_Id = Get_Range_Id(ActiveSheet.UsedRange.Name) 'Sort By 1)DateFrom 2)DateTO 3)Category Range(Start_Range_Id).Select Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("G2") _ , Order2:=xlAscending, Key3:=Range("Y2"), Order3:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ce qui sous-ententd qu'entre mon range et la ligne de tri, j'ai 1 décallage de + 1. je ne le vois pas chez toi .
J'ai bien mis le paramètre Header:= xlGuess pourtant. J'ai mal compris ? :?

02/07/2008, 15h11
Godzestla

Justement !

J'avais l'impression que la clé devait etre sur la deuxième ligne du range sélectionné, comme dans mon exemple.

C'était juste une suggestion....

Citation:
Envoyé par fring
Sorry j'ai oublié un bout
Code:

1 2 3 Worksheets("Donnees").Range("C6:O490").Sort Key1:=Worksheets("Donnees").Range("C6"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal
Ca fonctionne, ça venait du C6 ne se trouvant pas dans la feuille où la macro était lancée ! Evidemment -_-

Merci.