XL 2019 Tri automatique

[dav59]

Bonjour je recherche une solution en VBA pour trier un programme que je télécharge

sur un robot , voir dans le fichier joint dans la colonne B9

Je voudrais faire le tri par séquence par ligne si possible

comme exemple sur la colonne A

Merci

 

[Dranreb]

Bonsoir.
Cette procédure :

Sub Séquences()
   Dim TDon(), LD&, TRés(), LR&, CR&
   TDon = Feuil1.[B9].Resize([B1000000].End(xlUp).Row - 8).Value
   ReDim TRés(1 To 6, 1 To 20)
   For LD = 1 To UBound(TDon, 1)
      If TDon(LD, 1) Like "SEQUENCE*" Then
         LR = LR + 1: CR = 1: TRés(LR, CR) = TDon(LD, 1)
      ElseIf Not TDon(LD, 1) Like "SENS*" Then
         If LR > 0 Then CR = CR + 1: TRés(LR, CR) = TDon(LD, 1)
         End If
      Next LD
   Feuil1.[A2].Resize(UBound(TRés, 1), UBound(TRés, 2)).Value = TRés
   End Sub

 

[dav59]

Bonsoir.
Cette procédure :

Sub Séquences()
   Dim TDon(), LD&, TRés(), LR&, CR&
   TDon = Feuil1.[B9].Resize([B1000000].End(xlUp).Row - 8).Value
   ReDim TRés(1 To 6, 1 To 20)
   For LD = 1 To UBound(TDon, 1)
      If TDon(LD, 1) Like "SEQUENCE*" Then
         LR = LR + 1: CR = 1: TRés(LR, CR) = TDon(LD, 1)
      ElseIf Not TDon(LD, 1) Like "SENS*" Then
         If LR > 0 Then CR = CR + 1: TRés(LR, CR) = TDon(LD, 1)
         End If
      Next LD
   Feuil1.[A2].Resize(UBound(TRés, 1), UBound(TRés, 2)).Value = TRés
   End Sub

Bonjour
le programme fonctionne très bien je te remercie beaucoup
cela me permettra de travailler plus vite sur mon programme
Mreci

 

[Hasco]

Bonjour,

Puisqu'excel 2019, une tentative par PowerQuery (Données/A partir d'un tableau ou d'une plage)

Cordialement