Discussion :

[Zak Blayde]

Bonjour,

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

Code :

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

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.

[zandru]

Bonjour,

essai comme ça :

Code :

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

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

[Zak Blayde]

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 :

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

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

[Godzestla]

Ca plante ou et avec quelle erreur ?

[fring]

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 :

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

1
2
Worksheets("Donnees").Activate
Range("C6:O490").Select

EDIT : à tester (sans Select)

Code :

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

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

[Zak Blayde]

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

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.

[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 :

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

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 .

[fring]

Sorry j'ai oublié un bout

Code :

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

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

[Zak Blayde]

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 :

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

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 ?

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

[Zak Blayde]

Sorry j'ai oublié un bout

Code :

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

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.