améliorer macro

[gui59300]

Bonjour

J'utilise une macro dans un fichier excel.

En faite je remplis la 1ére feuille du fichier, avec différentes donnés. Quand j'ai renseigné cette feuille je clique sur le bouton tri par poste qui est rataché à une macro.

Fonctionnement de la macro :
Elle commence par aller dans le feuille poste 26, poste 27 .... elle vide tout les cellules.
Ensuite elle fait un filtre automatique
Puis elle filtre les donnés, elle range les donnés du poste 26 dans la feuille poste 26.... elle fait ça pour toutes les autre feuilles.
Ensuite les fait une mise ne forme sur toutes les feuilles afin de repositionner les lignes blanches et lignes grises correctement.

Je voudrais apporter uen modif à cette macro mais je suis bolqué car je ne sais pas comment faire.

Ce que je souhaiterais faire :
Dans la 1ere feuille on peut voir qu'il y a 100 lignes que l'on peut renseigner par défauts, et dans les autres feuilles 50 lignes.
Je souhaiterais que la macro, supprime la mise en forme des dernière lignes non utilisées (le nombre de ligne utilisé peut changer cela depends du nombre de défauts, ce qui n'est pas prévisible à l'avance)
Ce qui permettrait d'imprimer seulement les lignes avec du texte.
Car avec si j'imprime le fichier tel qu'il est aujourd'hui il m'inprime souvant plusieur feuilles sans texte.
je sais que je peux sectionner la parti qui m'intérrese et l'imprimer, mais je souhaite vraiment que la macro puisse me faire cette supprestion de msie ne forme, ce qui me permet de gagner beaucoups de temps et de rendre le fichier plus lisible.

Je suis pas tres bon en macro donc si vous trouvez des erreurs vous pouvez les corrigier merci d'avance.

 

[gui59300]

Re : améliorer macro

J'ai modifié la macro, en faite pour supprimer les lignes je lui ai dit de faire un filtre automatique de sectionner les cases vides et apres qu'il les suppriment.

Mais la j'aurais besoin que quelqu'un jette un œil pour voir si elle est bien faite s'il n'y a pas de ligne en trop ou qui ne servent à rien.

 

[youky(BJ)]

Re : améliorer macro

bonsoir gui59300,
Le nombre de postes n'ai pas limité
voici une macro à ma façon, fait des tests

Sub tri_par_poste()
For k = 1 To Sheets.Count
If Sheets(k).Name <> "Source" Then _
Sheets(k).[A10:AY59].Clear
Next
With Sheets("Source")
For k = 10 To .[K65536].End(xlUp).Row
onglet = IIf(IsNumeric(.Cells(k, 7)), "Poste " & .Cells(k, 7), "FNR")
lig = Sheets(onglet).[K65536].End(xlUp).Row + 1
If lig = 9 Then lig = 10
.Range("A" & k & ":AY" & k).Copy _
Sheets(onglet).Cells(lig, 1)
If .Cells(k, 1) = "OUI" Then
lig = Sheets("HABILITATION").[K65536].End(xlUp).Row + 1
onglet = "HABILITATION"
If lig = 9 Then lig = 10
.Range("A" & k & ":AY" & k).Copy _
Sheets(onglet).Cells(lig, 1)
End If
For onglet = 1 To Sheets.Count
If Sheets(onglet).Name <> "Source" Then
For lig = 10 To Sheets(onglet).[K65536].End(3).Row
If lig Mod 2 = 0 Then
Sheets(onglet).Range("A" & lig & ":AY" & lig).Interior.ColorIndex = 0
Else
Sheets(onglet).Range("A" & lig & ":AY" & lig).Interior.ColorIndex = 15
End If
Next lig
End If
Next onglet
Next k
End With
End Sub

 

[youky(BJ)]

Re : améliorer macro

re:
Plus rapide et plus court
A savoir que le format s'adapte aux nombre de lignes sur toutes les pages

Sub tri_par_poste()
For k = 1 To Sheets.Count
If Sheets(k).Name <> "Source" Then _
Sheets(k).[A10:AY59].Clear
Next
With Sheets("Source")
For k = 10 To .[K65536].End(xlUp).Row
onglet = IIf(IsNumeric(.Cells(k, 7)), "Poste " & .Cells(k, 7), "FNR")
lig = Sheets(onglet).[K65536].End(xlUp).Row + 1
If lig = 9 Then lig = 10
.Range("A" & k & ":AY" & k).Copy _
Sheets(onglet).Cells(lig, 1)
Sheets(onglet).Range("A" & lig & ":AY" & lig).Interior.ColorIndex = IIf(lig Mod 2 = 0, 0, 15)
If .Cells(k, 1) = "OUI" Then
lig = Sheets("HABILITATION").[K65536].End(xlUp).Row + 1
onglet = "HABILITATION"
If lig = 9 Then lig = 10
.Range("A" & k & ":AY" & k).Copy _
Sheets(onglet).Cells(lig, 1)
Sheets(onglet).Range("A" & lig & ":AY" & lig).Interior.ColorIndex = IIf(lig Mod 2 = 0, 0, 15)
End If
Next k
End With
End Sub