Bonjour,
Je voudrais, que lorsque l'on change de feuille, que ce bout de code fonctionne afin d'attribuer un nom à une plage.
Il bloque à la ligne en gras et je ne sais pas pourquoi car si je le lance simplement, ,cela fonctionne.
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
Merci pour votre aide.
Partager