Discussion :

[alainbreton]

bonjour
je n'arrive pas a trouver la syntaxe pour faire fonctionner mon code. erreur au niveau de range
desole pour envoi du code je ne sais pas faire autrement

nomcompte="BCA"
nombase="CA"
ActiveWorkbook.Worksheets(nomcompte).ListObjects(nombase).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(nomcompte).ListObjects(nombase).Sort.SortFields.Add2 _
Key:=Range("(nombase)[[#All],[date]]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("nomcompte").ListObjects("nombase").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

[deedolith]

Hello,

Utilises le bouton code (celui qui ressemble à #) pour poster tes sources. Là, c'est illisible.

Utilise des références, ça allègera ton code.
Ajoutes Option Explicit en tête de chaque module.
Déclare tes variables.

Concernant tu erreur, concatène la variable nombase pour obtenir une adresse valide.
Voici ton code revu et corrigé:

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
    Const NomCompte As String = "BCA"
    Const NomBase As String = "CA"
 
    Dim Wb As Excel.Workbook
    Set Wb = ThisWorkbook
 
    Dim Ws As Excel.Worksheet
    Set Ws = Wb.Worksheets(NomCompte)
 
    Dim List As ListObject
    Set List = Ws.ListObjects(NomBase)
 
    List.Sort.SortFields.Clear
    List.Sort.SortFields.Add2 _
        Key:=Ws.Range(NomBase & "[[#All],[date]]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
    With List.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

[alainbreton]

merci beaucoup deedolith tout est ok.