Microsoft 365 RESOLU Trie en VBA à partir d'une base

B

Bambi35

XLDnaute Occasionnel
Bonjour à tous
Je viens vers vous pour de l'aide.
Je cherche à partir des informations de la Feuille "Base" d'obtenir sur la feuille "Résultat "une liste dans l'ordre alphabétique en colonne "E" en passant par du VBA
Un premier trie sur la Feuille "Base" de la colonnes "N" pour enlever les "Appr"
Puis sur la colonne "B" enlever les ID commençant par "FH;HM;HA"
et transféré le résultat des colonnes "B;C;D;H;L;M;N;P" sur la feuille "Résultat" en colonnes "A;B;C;D;E;F;G;H"
avec un ordre alphabétique sur la colonne "E"
Je vous ai déjà demandé il y a quelque temps de l'aide sur d'autres sujets mais là je m'arrive pas.


Merci de votre aide


Bambi35
 

Pièces jointes

  • Trie.xlsx
    20.6 KB · Affichages: 7
Trier par date Trier par votes
Cousinhub

Cousinhub

XLDnaute Barbatruc
Inactif
Bonjour,
Bonjour @vgendron
En complément...
Tu demandes à enlever les "HA" -> "Ha" ou "HA"?
Dans la colonne L (qui devient la colonne E ensuite), et qui doit faire l'objet du tri alphabétique, est-ce que les données sont toujours sous la forme V1, V12, V11, V2... -> et le tri, serait donc V1, V2, V11, V12?
PS, une requête power query serait tout aussi envisageable en lieu et place d'une macro, peut-être?
 
Vote positif 0 Vote négatif
B

Bambi35

XLDnaute Occasionnel
Bonjour vgendron

1) Erreur de ma part c'est la feuille "Rapport" et non "Base"
2) Pour le bouton je n'ai pas de code associe car je n'arrive pas à créer le VBA
3) Pour le trie de la colonne "E" c'est sur la feuille "Résultat"
après le transféré des colonnes "B;C;D;H;L;M;N;P" de la feuille "Rapport" sur la feuille "Résultat" en colonnes "A;B;C;D;E;F;G;H"
Désolé d'avoir mal expliqué
Merci de ton retour

Bambi35
 
Vote positif 0 Vote négatif
sylvanu

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Bambi, Vgendron, Bhbh, Chris,
Un essai avec ce que j'ai compris, et :
VB: 
Sub Extraire()
    Application.ScreenUpdating = False
    Sheets("Résultat").[A:Z].Delete                                 ' Tout Résultat éffacé
    DL = Range("A65500").End(xlUp).Row                              ' Dernière ligne du tableau
    Range("A3:P" & DL).Copy                                         ' Copie tableau
    With Sheets("Résultat")
        .Select
        .[A1].Select
        ActiveSheet.Paste                                           ' Collage valeurs et formats
        f = "=SI(OU(GAUCHE(N2;4)=""Appr"";GAUCHE(B2;2)=""FH"";GAUCHE(B2;2)=""HM"";GAUCHE(B2;2)=""HA"");car(1);0)"                           ' Formule utilisée. Attention ajouter 1 aux colonnes pour compenser nouvelle colonne en A.
        With .Range("A2:A" & DL)                                    ' Plage où coller la formule en colonne A qui sera triée
            .FormulaLocal = f                                       ' Coller formule
            .EntireRow.Sort .Cells, xlDescending                    ' Tri pour regrouper et accélérer
            .SpecialCells(xlCellTypeFormulas, 2).EntireRow.Delete  ' Suppression des lignes concernées
        End With
        .[A:A].Delete Shift:=xlToLeft                               ' Effacement colonne formules
        Columns.AutoFit: Rows.AutoFit                               'Ajustement largeurs colonnes
        With ActiveSheet.UsedRange: End With                        'Ajustement barres de défilement
        .[A1].Select
    End With
End Sub
 

Pièces jointes

  • Trie.xlsm
    25.5 KB · Affichages: 4
Vote positif 0 Vote négatif
B

Bambi35

XLDnaute Occasionnel
bhbh à dit:
Bonjour,
Bonjour @vgendron
En complément...
Tu demandes à enlever les "HA" -> "Ha" ou "HA"?
Dans la colonne L (qui devient la colonne E ensuite), et qui doit faire l'objet du tri alphabétique, est-ce que les données sont toujours sous la forme V1, V12, V11, V2... -> et le tri, serait donc V1, V2, V11, V12?
PS, une requête power query serait tout aussi envisageable en lieu et place d'une macro, peut-être?
Cliquez pour agrandir...
Bonjour bhbh
Cela peut être des Majuscules comme des Minuscules
Le résultat de la colonne "L" de la feuille "Rapport" après avoir fait
premier trie de la colonnes "N" pour enlever les "Appr"
Puis sur la colonne "B" enlever les ID commençant par "FH;HM;HA"
passe en colonne "E" de la feuille "Résultat"
et dernier action à faire sur cette colonne est le tri alphabétique
Pour la forme de la colonne "E" c'est des noms par la suite.
Merci de ton retour

Bambi35
 
Vote positif 0 Vote négatif
B

Bambi35

XLDnaute Occasionnel
sylvanu à dit:
Bonjour Bambi, Vgendron, Bhbh, Chris,
Un essai avec ce que j'ai compris, et :
VB: 
Sub Extraire()
    Application.ScreenUpdating = False
    Sheets("Résultat").[A:Z].Delete                                 ' Tout Résultat éffacé
    DL = Range("A65500").End(xlUp).Row                              ' Dernière ligne du tableau
    Range("A3:P" & DL).Copy                                         ' Copie tableau
    With Sheets("Résultat")
        .Select
        .[A1].Select
        ActiveSheet.Paste                                           ' Collage valeurs et formats
        f = "=SI(OU(GAUCHE(N2;4)=""Appr"";GAUCHE(B2;2)=""FH"";GAUCHE(B2;2)=""HM"";GAUCHE(B2;2)=""HA"");car(1);0)"                           ' Formule utilisée. Attention ajouter 1 aux colonnes pour compenser nouvelle colonne en A.
        With .Range("A2:A" & DL)                                    ' Plage où coller la formule en colonne A qui sera triée
            .FormulaLocal = f                                       ' Coller formule
            .EntireRow.Sort .Cells, xlDescending                    ' Tri pour regrouper et accélérer
            .SpecialCells(xlCellTypeFormulas, 2).EntireRow.Delete  ' Suppression des lignes concernées
        End With
        .[A:A].Delete Shift:=xlToLeft                               ' Effacement colonne formules
        Columns.AutoFit: Rows.AutoFit                               'Ajustement largeurs colonnes
        With ActiveSheet.UsedRange: End With                        'Ajustement barres de défilement
        .[A1].Select
    End With
End Sub
Cliquez pour agrandir...
Bonjour B
C'est bien cela mais sur la feuille "Résultat" il ne faut que les informations des colonnes
"B;C;D;H;L;M;N;P" de la feuille "Rapport"
Merci encore

Bambi35
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
Bonjour
VB: 
Sub test1()
Dim tablo, r As Range, I&
    Feuil2.[A4].Resize(1000, 100).Clear
   Application.ScreenUpdating = False
   With Feuil1
    Set r = Union(.[B4:b10000], .[C4:C10000], .[D4:D10000], .[H4:H10000], .[L4:L10000], .[M4:M10000], .[N4:N10000], .[P4:P10000])
    End With
  
    r.Copy Feuil2.[A4]
    With Feuil2.Range("A4").Resize(Feuil2.UsedRange.Rows.Count, Feuil2.UsedRange.Columns.Count)
        For I = .Rows.Count To 1 Step -1
            If UCase(.Cells(I, 1).Value) Like "[FM|HA|FH]*" Then .Cells(I, 1).EntireRow.Delete
        Next

        For I = .Rows.Count To 1 Step -1
            If Cells(I, 7) = "Appr" Then Cells(I, 1).EntireRow.Delete T
        Next

        .Sort key1:=Range("E4"), order1:=xlAscending, Header:=xlNo
    End With

End Sub
 
Vote positif 0 Vote négatif

Discussions similaires

J
  • Résolu(e)
Microsoft 365 [RESOLU] VBA boucle, insertion plusieurs lignes, exécution formules, suppression sur si
Réponses
5
Affichages
379
Phil69970
Phil69970
S
  • Résolu(e)
Microsoft 365 [RESOLU] Excel : Calcul de prix en fonction d'un type
Réponses
4
Affichages
149
JHA
J
C
  • Question
XL 2016 Excel Macro permettant de masquer une ligne lorsque les cellules de 2 colonnes contigües sont vides
Réponses
11
Affichages
211
chris63
C
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
107
sebastien176
S
C
  • Question
Microsoft 365 MFC colonnes + description +date du jour
Réponses
5
Affichages
234
fanfan38
fanfan38
J
  • Résolu(e)
XL 2021 Aide code VBA - à partir de deux listes, créer une base de donnée
2
Réponses
22
Affichages
808
merinos
merinos
M
  • Résolu(e)
XL 2021 PUBLIPOSTAGE : Mise en forme du corps de message issu d'une cellule excel (VBA)
Réponses
4
Affichages
319
Minus&Cortex
M
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
1 K
Banbara
B
G
  • Question
Microsoft 365 Export données d'une listview
Réponses
5
Affichages
411
GClaire
G
W
  • Résolu(e)
XL 2016 Gestion de liste transposée dans une autre feuille avec décalage d'une colonne et exclusion de certains éléments
Réponses
9
Affichages
364
Webperegrino
W

Membres actuellement en ligne

19 membres et 189 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 626
Messages
2 111 294
Membres
111 093
dernier inscrit
Yvounet