Bonjour,

il est préférable qu'il y ait une étiquette (nom de champs) avant tes chiffres
cette macro parcourt le classeur et ignore les feuilles où il n'y a pas de zéros dans la colonn A

Sub cacher_zero()
Dim cptr As Byte, nbre As Byte

Application.ScreenUpdating = False
nbre = ThisWorkbook.Sheets.Count
  For cptr = 1 To nbre
    Columns("A:A").AutoFilter Field:=1, Criteria1:="<>0"
   Next
End Sub

Je suis désolé michel_m mais je n'arrive pas a comprendre ta réponse. Je voudrais que ma macro ne fonctionne qu'avec certains onglets : ("Plan comptable Chateau", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Decembre", "Janvier", "Fevrier", "Mars").

Je suis vraiment débutant en macro, j'essai de comprendre ce que tu m'as envoyé mais malheureusement, je ne comprend pas grand chose. Désolé.

Merci d'avance,

Alex

Il y a peut être une petite subtilité en plus, les cellules que l'on retrouve dans l'onglet plan comptable sont reportés dans tous les autres onglets qui sont en fait des balances. Cependant, si j'arrivais a masquer toutes les cellules vides dans l'onglet plan comptable, serait il possible que dans les onglets suivants, les cellules soient masquées également. En espérant avoir été assez clair.

Merci d'avance,

Alex

Sub cacher_zero()
Dim cptr As Byte
Dim tablo

tablo = Array("Plan comptable Chateau", "Avril", "Mai", "Juin", "Juillet", "Aout", _
"Septembre", "Octobre", "Novembre", "Decembre", "Janvier", "Fevrier", "Mars")
Application.ScreenUpdating = False
For cptr = 0 To UBound(tablo)
    Sheets(tablo(cptr)).Columns("A:A").AutoFilter Field:=1, Criteria1:="<>0"
Next
End Sub

Qu'entends tu par "il est préférable qu'il y ait une étiquette (nom de champs) avant tes chiffres", je ne vois pas ce que tu veux dire. La macro que tu m'as donné est a modifier ou elle est censée fonctionner ?

Par exemple, en A1, l'indication "numéro de compte"

la macro va installer dans la colonne A dechacune de tes feuilles, un filtre masquant les valeurs=0
mais le filtre va s'installer dans la première cellule où il y a quelque chose d'écrit

regarde cette petite démo:
http://cjoint.com/?fsodGss0T6

je m'apercois d'un petit bug dans ma macro donc voici le dernier jus:

Sub cacher_zero()
Dim cptr As Byte
Dim tablo

tablo = Array("Plan comptable Chateau", "Avril", "Mai", "Juin", "Juillet", "Aout", _
"Septembre", "Octobre", "Novembre", "Decembre", "Janvier", "Fevrier", "Mars")
Application.ScreenUpdating = False
For cptr = 0 To UBound(tablo)-1
    Sheets(tablo(cptr)).Columns("A:A").AutoFilter Field:=1, Criteria1:="<>0"
Next
End Sub

Merci pour cette macro michel_m, mais je me suis rendu compte que le mieux serait de masquer toutes les lignes dont les cellules colonnes E = 0.

Dois je juste changer Columns("A:A") en Columns("E:E") ? Ou il y a t il autre chose a changer ?

OK pour juste colonne E pas de pb
Columns("E:E") Cordialement, Michel

A quoi correspond cette ligne : For cptr = 0 To UBound(tablo) - 1 ?

Il me lance le débogueur et me surligne cette ligne en jaune !!

Finalement, j'ai réussi en enlevant le -1 à la fin de la ligne.

J'ai un autre problème de macro mais cela concerne une macro couleur, faut il que je repose une autre question ? Ou peux tu m'aider sur ce post.

En gros, je voudrais faire une macro qui colore le texte d'une partie d'une colonne en rouge, si le résultat de la colonne n'est pas égal à une valeur d'une autre feuille.

En fait je voudrais que si D138 (feuille recap_bal) est différent de E199 (feuille avril) alors colorer les cellules allant de D6 à D137.

Ou alors si c'est plus simple de colorer seulement la cellule D138.

Merci d'avance,

Alex

Repose la question sur un autrre post
Merci; excuses moi pour le 61 (c'est lundi)
tagges "résolu" Cordialement, Michel