pb trier les données d'une feuille

Question

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.

ccm81 · Answer

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

Pb trier les données d'une feuille

1 réponse

Votre réponse

Discussions similaires

Newsletters