(Résolu)Tri de colonne en auto

Calvus

XLDnaute Barbatruc

• 23 Décembre 2017

• #2

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

 

Vote positif 0 Vote négatif

F

Francky25

XLDnaute Nouveau

• 23 Décembre 2017

• #3

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

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 23 Décembre 2017

• #4

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+

 

Vote positif 0 Vote négatif

F

Francky25

XLDnaute Nouveau

• 23 Décembre 2017

• #5

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

Cdlt

 

Vote positif 0 Vote négatif

F

Francky25

XLDnaute Nouveau

• 23 Décembre 2017

• #6

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

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 23 Décembre 2017

• #7

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.

 

Vote positif 0 Vote négatif

F

Francky25

XLDnaute Nouveau

• 23 Décembre 2017

• #8

nickel ,

grand merci Calvus 😉

 

Vote positif 0 Vote négatif