Discussion :

[rossemma]

Bonjour,
Je voudrais, que lorsque l'on change de feuille, que ce bout de code fonctionne afin d'attribuer un nom à une plage.

Code :

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

1
2
3
4
5
6
7
8
Worksheets("DATA").Sort.SortFields.Clear
Worksheets("DATA").UsedRange.Sort key1:=Range("A1"), order1:=xlAscending, DataOption1:=xlSortTextAsNumbers, _
                        key2:=Range("L1"), order2:=xlAscending, dataoption2:=xlSortNormal, _
                        Header:=xlYes

ThisWorkbook.Worksheets("DATA").UsedRange.Select
  Names.Add Name:="TABDATA", RefersTo:="=" & ThisWorkbook.Worksheets("DATA").Name & "!" & Selection.Address
    Range("A1").Select

Il bloque à la ligne en gras et je ne sais pas pourquoi car si je le lance simplement, ,cela fonctionne.
Merci pour votre aide.

[Patrice740]

Code :

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

1
2
3
4
5
6
7
8
Worksheets("DATA").Sort.SortFields.Clear
Worksheets("DATA").UsedRange.Sort key1:=Range("A1"), order1:=xlAscending, DataOption1:=xlSortTextAsNumbers, _
                        key2:=Range("L1"), order2:=xlAscending, dataoption2:=xlSortNormal, _
                        Header:=xlYes

ThisWorkbook.Worksheets("DATA").UsedRange.Select
  Names.Add Name:="TABDATA", RefersTo:="=" & ThisWorkbook.Worksheets("DATA").Name & "!" & Selection.Address
    Range("A1").Select

Il bloque à la ligne en gras et je ne sais pas pourquoi car si je le lance simplement, ,cela fonctionne.

Est-ce le même classeur ?
Ligne 1 et 2 c'est le classeur actif, ligne 6 c'est le classeur qui contient la macro !

[rossemma]

oui c'est le même classeur.
classeur actif.

a mon sens quand je désactive la feuille, la ligne Select (ligne6) bloque car je sors de la feuille.

[Philippe Tulliez]

Bonjour,
On ne répétera jamais assez qu'il ne sert à rien, sauf cas exceptionnel, d'utiliser en VBA, les méthodes Select, Activate, etc
En effet il est impossible de sélectionner la plage d'une feuille qui n'est pas active

Un exemple qui fonctionne (à condition bien entendu que la feuille existe dans le classeur ThisWorkbook )

Code :

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

1
2
3
 Dim rng As Range
 Set rng = ThisWorkbook.Worksheets("Data").UsedRange
 MsgBox rng.Address(External:=True)

[rossemma]

j'ai modifié le code
cela semble correct ?

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
22
23
24
Private Sub worksheet_deactivate()
 
Call tri
 
End Sub
 
Sub tri()
 
Dim rng As Range
Dim wsh As Object
Set wsh = ThisWorkbook.Worksheets("DATA")
Set rng = wsh.UsedRange
    Debug.Print rng.Address(External:=True)
 
wsh.Sort.SortFields.Clear
rng.Sort key1:=Range("A1"), order1:=xlAscending, DataOption1:=xlSortTextAsNumbers, _
            key2:=Range("L1"), order2:=xlAscending, dataoption2:=xlSortNormal, _
            Header:=xlYes
 
rng.Select
  Names.Add Name:="TABDATA", RefersTo:="=" & wsh.Name & "!" & Selection.Address
    Range("A1").Select
 
End Sub

[Philippe Tulliez]

Bonjour,

cela semble correct ?

Tu le sauras vite, as-tu essayé le programme?

Je vois qu'on a beau taper sur le clou. Tu utilises encore la méthode Select

INUTILE D'UTILISER SELECT cela ralenti l'exécution du programme et cela ne sert à rien donc ligne 20 et 22 à supprimer

Petite remarque encore : Pourquoi en ligne 10 Dim wsh As Object au lieu Dim wsh As Worksheet

[EDIT]
Cela m'avait échappé. Si tu supprimes la ligne 20, il est évident que la ligne suivante provoquera une erreur. Il faut donc remplacer l'objet Selection par Rng

Personnellement, je ne suis pas fan de UsedRange, je préfère CurrentRegion
donc, je remplacerais Set rng = wsh.UsedRange par Set rng = wsh.Range("A1").CurrentRegion (à adapter A1 est la première cellule de la table à trier)