Pb trier les données d'une feuille

Arthyss Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   -  
Arthyss Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Pour stage j'ai besoin de récupérer chaque ID d'une colonne sans doublons. Et les copier sur une autre feuille.
J'ai donc voulu trier les données par ordre alphabétique.
(première question, existe-il une méthode pour récupérer chaque ID sans trier les données)


Si je ne spécifie pas la feuille, le code fonctionne 
Dim nblig As Long
    'compter le nombre ligne
    nblig = WorksheetFunction.CountA(ThisWorkbook.Worksheets.Item(2).Columns.Item("A"))    Range("A2:AO" & nblig).Sort Key1:=Range("H:H"), Order1:=xlAscending
End Sub


sauf que je veux spécifier la feuille sur la quelle faire le trie et là ça ne fonctionne pas :/ 
 Dim nblig As Long
    'compter le nombre ligne
    nblig = WorksheetFunction.CountA(ThisWorkbook.Worksheets.Item(2).Columns.Item("A"))

    'test1 trier les ID par odre alphabétique
    Worksheets.Item(3).Range("A2:AO" & nblig).Select
    Selection.Sort Key1:=Range("H:H"), Order1:=xlAscending
   
    'test2
     'Worksheets.Item(3).Range("A2:AO" & nblig).Sort Key1:=Range("H:H"), Order1:=xlAscending




j'ai essayé par le nom, ça ne fonctionne pas non plus.
A voir également:

1 réponse

Réponse 1 / 1
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour

Avant de lancer le tri, il te faut activer la feuille à traiter 
Dim nbli As Long, plage As Range, lideb As Long
lideb = 2
nbli = Application.WorksheetFunction.CountA(Sheets(2).Columns("A"))
Sheets(1).Activate
With ActiveSheet
  Set plage = .Range("A2:B" & nbli + lideb - 1)
  plage.Sort key1:=.Range("A2")
End With

Cdlmnt
0
Arthyss Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   5
 
Je vais essayer merci !
0

Discussions similaires

Feuille de score belote
nulleeninfo -
brucine -

7 réponses
Les feuilles Diddl
TiiteBaakaa -
soso -

8 réponses