Classer en masquant les lignes vides

bonjour le forum,

Voila j'ai un tableau qui est commence à la ligne A4 et se fini à la ligne A26.
Il est rempli de la ligne A4 à la ligne A13 et est classer par macro qui s'appellent CLasserAgilité et ClasserGénéral.
Ma question est , est-il possible de masquer les lignes non rempli en ajoutant le code à l'une ou l'autre macro ou bien au 2.
Je vous joins le fichier
merci
jacky

Bonjour

vu que tu n'as pas beaucoup de cellule, si

Citation:

---

les lignes non rempli

---

sont les lignes comprises dans la plage 4:26 et dont la colonne A est vide, tu peu parcourir cette plage et masquer les lignes correspondante :

Code:

---

1 2 3 4 5 6

Sub yaMasque() Dim yaC As Range For Each yaC In ThisWorkbook.Sheets("Feuil1").Range("A4:A26") If IsEmpty(yaC) Then yaC.EntireRow.Hidden = True Next End Sub

---

à toi de voir dans laquelle de tes 2 procédure faire appel à yaMasque, pense à modifier le nom de la feuille "Feuil1" si nécessaire


tu dis quoi ...

re le forum,JackOuYA,

Ou doit je mettre le code dans ma macro Agilité car j'ai essayé mais ça me met une erreure de compilation.
merci

dans ta macro (que j'ai pas vu) tu ne met pas le code tu met juste l'appel :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

sub Agilite ....   yaMasque End sub   sub yaMasque() Dim yaC As Range For Each yaC In ThisWorkbook.Sheets("Feuil1").Range("A4:A26") If IsEmpty(yaC) Then yaC.EntireRow.Hidden = True Next End Sub

---

si cela ne marche pas montre nous (sur le forum) ta macro agilité et la façon dont elle appelle yaMasque ..

re le forum, JackOuYA,

merci beaucoup JackOuYA, cela fonctionne impeccable.
jacky

re,le forum,

Donc comme je disais avant , cela fonctionne impeccable, mais Je voulais savoir si il y avait un moyen de contourner le problème qui vient de me survenir.
Je m'explique, j'ai voulu vérrouillé toutes les cellules ou il y avait des formules pour que personne ne puissent involontairement les supprimer mais la :
OUPS problème, la macro pour trier fonctionne mais elle bug au momment de masquer les cellules vides.
je ne sais pas s'il y a une solution mais des fois que !!!
merci d'avance.
jacky

pour pouvoir masquer des lignes il va te fallloir oter la protection de la la feuille, tu peu faire cela par le code.

Code:

---

1 2	ThisWorkbook.Sheets("Feuil1").Unprotect "MotDepasse"

---

puis une fois tes modifications effectués tu remet la protection :

Code:

---

ThisWorkbook.Sheets("Feuil1").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="MotDePasse"

---

tu dis quoi...

re,

je mets les codes avec le module ClassementAgilité ou bien dans ThisWorkbook.
merci
jacky

non tu encadre avec ces deux lignes de codes, la partie du code qui te cause probléme en modifiant la structure de la page (masquer/dé-maquer lignes...)

bonjour le forum,JackOuYA,

merci beaucoup de ton aide car cela fonctionne à merveille.
je reviendrais si j'ai encore besoin de ce super forum.
jacky