Discussion :

[steeeve34]

Bonjour ,
J'ai un petit problème avec mon fichier lorsque je veux trier les données. En fait, il ne tri rien du tout. Voici la situation, je prends des lignes de la feuille INSPECTION que je recopie sur la feuille RAPPORT. Jusqu'à là tout fonctionne, ma macro fait le travail (bouton crayon). Une fois recopiée cependant je veux trier mes lignes selon la colonne cellule (en ordre croissant), mais ça ne fonctionne pas. Le bouton avec les 2 flèches actionne cette macro qui devrait trier mes données et faire la mise en page de ma feuille.

De plus j'imagine qu'il serait possible de simplifier la macro de triage et de la combiner avec mon autre macro (bouton crayon) de façon à n'avoir qu'un seul bouton à faire pour réaliser tout le travail.

Merci

[mercatog]

Pour trier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Trier()
Dim LastLig As Long
 
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("RAPPORT")
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    If LastLig > 8 Then .Range("A8:J" & LastLig).Sort key1:=.Range("C8"), Order1:=xlAscending, Header:=xlNo
End With
End Sub

[steeeve34]

J'ai essayé ta macro dans mon vrai fichier, mais il ne se passe toujours rien lorsque je l'actionne. Est-ce que ça se peut que le fait que j'aille une protection sur ma feuille empêche le tri ? Pourtant j'ai rajouté une ligne au début de la macro pour enlever cette protection.

Je l'ai testé sur le fichier TEST TRIER que j'avais mis en pièce jointe est ça marche super bien. Je ne comprends donc pas pourquoi ça ne fonctionne pas dans mon vrai fichier.

[sdispro]

Salut,

tu as des bugs car tu as des cellules fusionnés

[steeeve34]

Oui j'ai des cellules fusionnées mais seulement dans mon en-tête. Les cellules à trier ne sont pas fusionnées.

[sdispro]

Oui mais tu fait le tri en fonction des noms de colonnes dans ton code