VBA de tri alpha sur CommandButton en erreur- cellules fusionnées

Version imprimable

11/09/2020, 13h57
xd-80

1 pièce(s) jointe(s)

VBA de tri alpha sur CommandButton en erreur- cellules fusionnées

Bonjour
J'ai créé un excel me permettant le suivi de présence.
Afin de trier la liste par ordre alphabétique pour simplifier le remplissage par mes collègues, j'ai mis en place une VBA (après recherche sur les forums) qui fonctionnait très bien jusqu'alors mais qui me renvoie un message d'erreur (" Erreur d'execution '1004':pour ce faire, la taille des cellules fusionnées doit être identique") depuis cet été.
Rien n'a été modifié et ça fonctionnait très bien de janvier 2019 à mars 2020. Je ne sais pas si une mise à jour a pu amener ces changements.
Je suis loin d'être un expert et suis autodidacte sur ce logiciel, ponctionnant les créations des uns et des autres pour progresser.

Le tri se fait par rapport à la colonne A à partir de la ligne 12 jusqu'à la colonne FV, ligne 179.
Les colonnes grises correspondent à du prévisionnel (enfant attendu) les heures sont les heures de présences réelles d'arrivée et de départ.
merci à celui qui voudra bien m'aider à résoudre ce problème ou me proposer une alternative sans modification de format car les résultats obtenus sont ensuite renvoyés sur d'autres onglets.

Bonjour,

Essayez ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Tri()
    Dim i As Long, j As Long
    Application.ScreenUpdating = False
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    For i = 12 To DerLig - 2 Step 2
        For j = 12 To DerLig - 2 Step 2
            If Cells(j + 2, "A") < Cells(j, "A") Then
                Rows(j + 2 & ":" & j + 3).Cut
                Rows(j & ":" & j).Insert Shift:=xlDown
            End If
        Next j
    Next i
End Sub

Cdlt

16/09/2020, 08h19
xd-80

1 pièce(s) jointe(s)

VBA de tri alpha sur CommandButton en erreur- cellules fusionnées

Bonjour

Merci de votre réponse.
Après test et adaptation au Commandbuton, le tri se fait bien mais les formats sont modifiés (bordures de cellules).
Auriez-vous une solution ?

merci bien
Bonne journée
16/09/2020, 08h54
ARTURO83

Bonjour,

Plutôt que de réécrire tous les formats conditionnels, je sauvegarde dans la nouvelle feuille "Format" un exemple des formats conditionnels à reproduire. Il suffit par la suite lors d'un tri d'effacer tous les formats de la feuille "Près 12 13" et de recopier ceux conservés dans la feuille "Format"
Tout ceci est intégré à la macro "Tri"
Le fichier:
Pièce jointe 579359

Cdlt