Discussion :

[charlie8407]

Bonjour, je suis nouvelle sur ce forum, j'ai lu d'autres post qui abordent ce point mais je n'arrive pas à adapter leurs codes à mes besoins.

Je suis actuellement en stage et je dois optimiser un fichier Excel : dans l'onglet "Signataires" il y a la colonne G "certifié" qui est soit "oui" en vert ou "non" en rouge et je voudrais qu'une fois "non" coché, cette ligne se coupe pour se coller dans l'onglet "Archives signataires" à la suite des autres lignes.

Merci d'avance pour votre aide

[hyperion13]

...je voudrais qu'une fois "non" coché ...

Salut, qu'entendez-vous par "coché" ? la valeur NON sélectionnez dans G:G ? Ou cochez-vous une case en H ?

Copiez dans un module de votre classeur la routine :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Archiver()
    Dim LastCellG As Long
    Dim LastCellA As Long
    Dim i As Long
    LastCellG = Sheets("Stagiaires").Range("G65535").End(xlUp).Row + 1
    For i = LastCellG To 2 Step -1
        With Sheets("Stagiaires")
            If .Cells(i, 7).Text = "NON" Then
                .Cells(i, 7).EntireRow.Copy _
                    Destination:=Sheets("Archives signataires").Range("A65535").End(xlUp).Offset(1, 0)
                .Cells(i, 7).EntireRow.Delete
 
            End If
        End With
    Next i
    LastCellA = Sheets("Archives signataires").Range("A65535").End(xlUp).Row
    Sheets("Archives signataires").Range("A1:G" & LastCellA).Sort _
        Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range( _
        "B2"), Order2:=xlAscending, Header:=xlGuess, MatchCase _
        :=False, Orientation:=xlTopToBottom
End Sub

Ligne1 de Stagiaires identique dans Archives stagiaires !
Ajouter un Btn de commande associé à la routine Archiver pour exécuter l'archivage

[charlie8407]

Dans la colonne on note soit oui soit non (pas de case de coché) et une fois ce choix effectué, il faudrait que la ligne se coupe et se colle à la suite des autres lignes déjà présentes dans l'onglet "Archives signataires"

[charlie8407]

Merci beaucoup pour votre travail.

Oui la ligne 1 des 2 onglets est bien identique par contre j'ai recopié votre code mais sans succès, ça ne fonctionne, je ne comprends pas car vous avez bien saisi la demande quand je regarde votre capture écran

J'ai un message d'erreur lors de l’exécution du code : Erreur d'exécution : '1004' Erreur définie par l'application ou par l'objet

[charlie8407]

Malgré le message d'erreur ça fonctionne, j'ai bien eu le renvoi des lignes "non" dans l'autre onglet mais c'est juste que lorsque j'entre de nouvelles lignes et que j'exécute le code : il y a le message d'erreur tout en réalisant correctement la tâche demandé... Mais ça fonctionne et c'est déjà une grande aide pour moi, merci beaucoup

[charlie8407]

Quand j'exécute le code, j'ai le message suivant :

Erreur d'exécution '1004'
Référence de tri non valide. Vérifier qu'elle se trouve bien parmi les données à trier et que la zone Trier par n'est pas identique ou vide.

Et quand je clique sur débogage, ça surligne le passage suivant :

Code :

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

1
2
3
4
    Sheets("Archives signataires").Range("A1:G" & LastCellA).Sort _
        Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range( _
        "B2"), Order2:=xlAscending, Header:=xlGuess, MatchCase _
        :=False, Orientation:=xlTopToBottom

Petit détail : dans mon fichier la colonne G avec la condition à partir de laquelle s'effectue le tri n'est pas la dernière colonne du tableau, le tableau va de A à M. Comme dans votre exemple la colonne G est la dernière colonne, je ne sais pas si cette info peut aider pour supprimer ce message...

Hormis ce message d'erreur après l'exécution, tout se réalise bien, les lignes avec "non" dans la colonne G sont bien coupées du premier onglet pour se coller les unes à la suite à des autres dans le second onglet mais le message d'erreur s'affiche malgré tout !!!