Discussion :

[Jeanvaljean44]

Bonsoir le Forum!!!

Je rencontre un souci avec cette procédure qui m'interverti la cellule A1 avec la cellule A2

Quelqu'un aurait-il une idée car je sèche complètement!!!!

Code :

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

1
2
3
4
5
6
7
8
9
10
Public DonneesAdministratives As Workbook
 
Private Sub TrierDonneesAdministratives()
 
Set DonneesAdministratives = GetObject("G:\DonneesClients\DonneesAdministartives\DonneesAdministratives.xlsx")
 
DonneesAdministratives.Sheets(1).Sort.SortFields.Clear                         
DonneesAdministratives.Sheets(1).Range("A2:" & Range("A2").SpecialCells(xlCellTypeLastCell).Address).Sort Key1:=DonneesAdministratives.Sheets(1).Range("A2"), Order1:=xlAscending
 
End Sub

Merci de votre coup de pouce

Jeanvaljean44

[tirex28]

Bonsoir,

Sans conviction n'ayant pas xl2007 et ne connaissant pas l'organisation de tes données, essaye de préciser le paramètre Header.

Ca n'a rien a voir mais tu peux alleger ton code:

Code :

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

1
2
3
4
5
With DonneesAdministratives.Sheets(1)
    .Sort.SortFields.Clear
    .Range("A2:" & .Range("A2").SpecialCells(xlCellTypeLastCell).Address).Sort _
        Key1:=.Range("A2"), Order1:=xlAscending, header:=xlYes
End With

Vérifie que la définition de ta plage de donnée correspond bien à ce que tu attend. Si ce n'est pas le cas essaye de remplacer SpecialCells par End(xlDown).

Cordialement,

Tirex28/

Ps: Il y une coquille dans le nom du dossier DonneesAdministartives