Discussion :

[mirage37]

Bonjour,


Voilà j'ai beau chercher à trouver une solution pour mon cas mais je n'ai rien trouvé donc je me retourne vers vous pour me donner un coup de main.

J'ai un tableau dans une feuille excel 2002 qui contient plusieurs cellules j'aimerais creer un macro une fois appuyer sur le bouton "TRIER" pour copier toutes les lignes qui contient au moins une croix dans la plage données de la colonne E à AK dans une autre feuille en gardant la meme structure du tableau dans l'autre feuille. "en gros trier avant de copier"

Comme c'est dur à expliquer je joint un exemple et le fichier en question !
Dans mon tableau il y a une croix dans les case F7 et H7 donc je veux avoir toute la ligne 7 sur l'autre feuille et pareil pour la ligne 8 car il y a une croix dans la case G8.

Toutes suggestions seront les bienvenues !

Merci d'avance

[Philippe Tulliez]

Bonjour,
Pour le tri, regarde cette procédure de tri, je pense que cela devrait t'aider

[Daniel.C]

Bonjour,

Je ne comprends pas ce que entends par "trier".

Sinon, la copie se fait comme ceci, à moins qu'il faille copier les lignes d'entête :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub tri()
    Dim Plage As Range, Ligne As Long, Ctr As Long
    Ctr = 0
    With Sheets("Feuil1")
        Ligne = .[E:AK].Find("*", , , , xlByRows, xlPrevious).Row
        For i = 6 To Ligne
            If Application.CountIf(.Rows(i), "X") > 0 Then
                Ctr = Ctr + 1
                .Rows(i).Copy Sheets("Feuil2").Cells(Ctr, 1)
            End If
        Next i
    End With
End Sub

[mirage37]

Merci bc c'est vraiment gentil de votre part.
Daniel, je veux garder les entêtes aussi avec leur couleurs s'il vous plaît. En gros je veux garder la meme structure de la feuil1 dans la feuil2 sauf que la feuil2 est remplie par les lignes avec des croix.

Merci d'avance.

[Daniel.C]

Alors :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub tri()
    Dim Plage As Range, Ligne As Long, Ctr As Long
    Ctr = 5
    With Sheets("Feuil1")
        .[A1:AK5].Copy Sheets("Feuil2").Cells(1, 1)
        Ligne = .[E:AK].Find("*", , , , xlByRows, xlPrevious).Row
        For i = 6 To Ligne
            If Application.CountIf(.Rows(i), "X") > 0 Then
                Ctr = Ctr + 1
                .Rows(i).Copy Sheets("Feuil2").Cells(Ctr, 1)
            End If
        Next i
    End With
End Sub

[mirage37]

Merci bc, ça marche tres bien. une petite dernière question s'il vous plaît, est ce que c est possible de ne pas copier le bouton dans la feuil2 ?

Comment faire pour effacer la feuil2 automatiquement quand j'appuye sur le bouton Trier avant de copier les lignes en question, comme ça, ça se met à jour automatiquement car sur un gros fichier, il m'a garder les autres lignes aussi et il m a mis les lignes avec des croix en premier ?

Merci d'avance.

[Daniel.C]

Pour ne pas copier le bouton, fais un clic droit dessus, choisis "format de contrôle, onglet "Propriétés et coche "ne pas déplacer ou dimensionner avec les cellules". et pour effacer Feuil2 :

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
Sub tri()
    Dim Plage As Range, Ligne As Long, Ctr As Long
    Ctr = 5
    Sheets("Feuil2").Cells.Clear
    With Sheets("Feuil1")
        .[A1:AK5].Copy Sheets("Feuil2").Cells(1, 1)
        Ligne = .[E:AK].Find("*", , , , xlByRows, xlPrevious).Row
        For i = 6 To Ligne
            If Application.CountIf(.Rows(i), "X") > 0 Then
                Ctr = Ctr + 1
                .Rows(i).Copy Sheets("Feuil2").Cells(Ctr, 1)
            End If
        Next i
    End With
End Sub

[mirage37]

Merci bc Daniel, vraiment vous m'avez rendu un grand service, je vous remercie encore une fois.