(Résolu)Tri de colonne en auto

Francky25 · 23 Décembre 2017

Bonjour a tous,

Novice en macros , j'ai créé un tableau de recherche avec un ajout depuis une feuille masqué , mais ma macros de classement des fournisseurs par ordre alphabétique me crée des soucis , j'ai seulement une colonne qui se classe se qui cause des décalages .
et mon autre soucis est de créé un sous total .
Je vous remercie pour votre aide

Cdlt

Calvus · 23 Décembre 2017

Bonjour Franky, le forum,

Remplace ton code du module 1 comme ceci :

VB:

Sub tri()
   
    Application.ScreenUpdating = False
   
    With Sheets("Recherche").Sort
        .SetRange Range("A1:E43")
        .SortFields.Add Key:=Range("B2"), Order:=xlAscending
        .Apply
    End With
   
    Application.ScreenUpdating = True

End Sub

Bonne journée

Francky25 · 23 Décembre 2017

Bonjour Calvus,

merci pour ta réponse , j'ai modifié le code mais certaine cellule s'efface lors d'un ajout et toujours mon décalage .

Cdlt

Calvus · 23 Décembre 2017

Re,

Dans ta feuille 1, essaye comme ceci :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("E2:E43")) Is Nothing Then
        Call tri
    End If
   
End Sub

A+

Francky25 · 23 Décembre 2017

Merci beaucoup Calvus , avec qq essais j'ai plus de soucis .
Me reste a trouver le sous total des prix .

Cdlt

Francky25 · 23 Décembre 2017

en voulant ré ouvrir mon fichier excel j'ai un message d'erreur :
'Enregistrements supprimés: Tri dans la partie /xl/worksheets/sheet1.xml'

Merci

cdlt

Calvus · 23 Décembre 2017

Bonsoir,

Essayer comme ceci :

VB:

Sub tri()
   
    Application.ScreenUpdating = False
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Recherche").Sort.SortFields.Clear
   
    With Sheets("Recherche").Sort
        .SetRange Range("A2:E43")
        .SortFields.Add Key:=Range("B2"), Order:=xlAscending
        .Apply
    End With
   
    Application.ScreenUpdating = True

End Sub

Dis nous ce que ça donne.

Francky25 · 23 Décembre 2017

nickel ,

grand merci Calvus

(Résolu)Tri de colonne en auto

Francky25

XLDnaute Nouveau

Pièces jointes

Calvus

XLDnaute Barbatruc

Francky25

XLDnaute Nouveau

Calvus

XLDnaute Barbatruc

Francky25

XLDnaute Nouveau

Francky25

XLDnaute Nouveau

Calvus

XLDnaute Barbatruc

Francky25

XLDnaute Nouveau

Discussions similaires